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33  of  the  all-time 
from  COMPUTI 
and  Gazette 


dazzling,  two-player  strategy 
je  that  moves  chess  into 
'21  St  century. 


PLUS: 


Snapshot       64+ 


Store  up  to  56  different 
screens  and  instantly 

P    retrieve  any  one  for 

:       display. 

Miami  Ice 

Frozen  roads  in  South  Florida?  A  frantic 
driving  experience  is  guaranteed  in  this 
challenging  game  with  versions  for  the 
128  and  64. 


Add  lots  of  useful 
features  to  your  64's 
operating  system. 
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Now  the  world  of    . 
Wizardry  comes  to 
Commodore  64/128 
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Also  available  for 
/\pple  H  Series,      & 
IBJVI  PC  &  compatibJes, 
Tkjdy  WOO  SX  &  EX, 
Micintosh . 
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With  your  Commodore  64  or  128  you  can 
now  experience  an  exciting  initiation  into  the 
interhationally-acclaimed  world  of  the  Wizardry 
Gaming  System. 
Begin  with  the  first  scenario* :  Proving 
Grounds  of  the  Mad  Overlord.  It  challenges  you 
to  overcome  devious  tricks  and  sudden  traps, 
strange  and  mysterious  encounters,  maze  upon 
maze  of  puzzles,  stimulating  and  intricate  sub- 
plots and  sophisticated  themes.  Ingenious  multi- 
level, mind-bending  tests  abound  with  vile 
creatures,  unspeakable  villains,  courageous 
adventurers  and  strong  allies  to  hinder  and        | 
help  you  achieve  ultimate  victory.  .; 
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Sir-tech  Software,  Inc, 

P.O,  Sox  245,  Ogdensburg,  NY  13669 

(315)  393-6633 
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Many  other  Wizardry  scenartos  carttitf;l(rConinio<)ore  players. 


Exciting  &  Neiv! 


Commodore  64/128  Books 

from  COMPUTE! 


64/128 
POWER 
BASIC 


COMPUTEI's: 


THIRD  BOOK 

GAMES 


Get  more  power,  education,  and  relaxation  from  your  Commodore  64  or  128  witti  these 

new  books  from  COMPUTE!.  And,  as  always,  ttie  programs  are  thoroughsly  tested  and  easy 

to  enter  using  our  special  program  entry  system.  (Disks  are  available,  too.) 


COMPUTEI's  Commodore  64/128 
Power  BAStC 

Edited 

Collected  in  this  one  volume  dfe  more 
than  two  dozen  short  BASIC  programs 
from  COMPUJEVs  Gazette's  popular 
monthly  column,  "Power  BASIC."  In- 
cluded are  utilities  that  odd  on  8K  RAM 
disk;  read  and  write  to  disk  sectors; 
make  programs  read  Jovstlcks  more 
quickly;  and  automatically  generate  l-ne 
numbers.  There  ore  also  programs  such 
as  "Stop  and  Go."  which  creates  a 
pause  button  to  temporarily  halt  a  pro- 
gram, and  "Time  Clock,"  which  puts  a 
digital  clock  on  your  screen.  There  is  a 
companion  disk  avaHabte  for  $12.95 
whict^  includes  dll  the  programs  from 
ttie  book.  (998BDSK) 
$1«.»5     ISBN  0-87/155-099-8 


COMPUTEI's  More  Machine  Language 
Oamet  for  the  Commodore  64 

Edited 

Seven  of  the  best  machine  language 
games  for  the  64  have  been  gathered 
into  one  volume  in  this  follow-up  to  the 
popular  COMPUTEi's  Macl^ine  Language 
Gomes  for  the  Commodore  64.  Selected 
from  recent  issues  of  COMPUTE!  and 
COMPUTEt's  Gazette,  the  games  range 
from  the  frontic  "Prisonball"  to  the 
delightful  "Biker  Dave."  This  is  more  than 
Just  a  collection  of  exciting  fost-action 
games,  though,  because  complete  and 
commented  source  code  for  each  pro- 
gram is  included  in  the  book.  Machine 
language  programmers  can  see  exactly 
how  each  game  is  written  and  whot  de- 
sign techniques  are  used.  A  disk  Is  avail- 
oble  for  $12.95  which  Includes  oil  the 
programs  in  the  book,  irtctuding  source 
code.  (9478DSK). 
$16.95     ISBN  0-87455-094-7 


COMPUTEI's  Third  Book  of  Commodore 
64  Games 

Edited 

COMPUTE!  Publications,  the  leading  pub- 
lisher of  programs  for  the  Commodore 
64.  has  brought  together  another  excit- 
ing collection  of  nerve-tingling  gomes 
that  will  delight  the  whole  family— from 
preschoolers  to  teenage  orcode  fans  to 
those  who  enjoy  games  of  logic.  Cleorly 
written,  with  non-technical  instructions, 
this  book  contains  hours  of  challenging 
entertainment  for  beginning  computer 
fans  as  well  as  experienced  pro- 
grammers. There  is  a  companion  disk 
ovoilobie  for  $12.95  that  includes  oil  the 
programs  in  the  book.  C9558DSK). 
$15.95     ISBN  0-87455-095-5 


These  books  are  now  available  at  your  local  book  or  computer  store. 

You  can  also  order  directly  from  COMPUTE!  by  calling  toll  free  800-346-6767 

(in  l^y  call  212-887-8625)  or  mailing  your  order  to  COMPUTE!  Books.  P.O.  Box  5038, 

F.D.R,  Station,  New  York,  NY  10150. 
Customer  Service  hours  are  10:00  a.m.- 12:30  p.m.  and  1:30  p.m.-3:Q0  p.m.  EST  Mon.-Fri. 

Please  include  S2.00  postage  and  handling  per  book  or  disk.  NC  residents  add  5  percent  sdles  tax  and  NV  residents 
ddd  8.25  percent  sales  tax.  Pleas©  allow  4-6  weeks  for  deliveiy. 


COMPUTE!  Publicationsjnc® 

A  Copltal  Cities/ AQC.  inc.  Compcinv  ^^^^^ 


COMPUTEI  books  are  available  outside  the  United  States 
from  subsidiaries  of  McGraw-Hill  International  Book  Company. 
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No  matter  what  kind  of  game  you're  in  the 
mood  for,  you'll  find  that  if  it's  in  a  box 
marked  FIREBIRD,  it's  really  hot! 

Firebird  offers  tjie  excitement  of  a  whole 
range  of  challenges  —  Adventures  and 
Strategies  for  long  rainy  weekends,  Aiade 
games  for  exhilarating  e\'enings,  Simulations 
when  you  need  to  get  away  from  it  all, 
Productivity  software  when  you're  feeling  — 
well,  productive. 

Look  for  the  Firebird  —  it  stands  for  top- 
quality  software  in  virtually  evety  categoi>'. 

How  About  This 

Ball  of  Fire  From  Firebird! 

This  is  SENfniY,  a  unique  Suategy  game  with 
over  10,000  flilf  color  3D  veaor  landscapes 
and  four-way  scrolling.  Do  you  have  truly 
exceptional  concentration  and  near  perfect 


hand/eye  cooKlination?  Then  maybe  —  just 
maybe  —  you  possess  the  skill  to  outwit  die 
Sentry  at  each  level  of  the  extraordinary' 
challenge. 

Firebird  Fireworks 
Unlimited 

When  your  mood  shifts  from  the  deliberation 
of  strategic  planning  to  the  axitement  of  fest- 
paced  Arcade  action,  look  for  Firebird's  ELITE, 
a  unique  game  which  encompasses  the  best  of 
both  wodds.  Or  tiy  SMGLIDER,  an  amazing 
3D  combat  flight  simulation. 

If  it's  Adventure  you're  after,  here's  the 
breathtakingiy  illustrated  GUILD  OF  THIEVES, 
with  its  revolutionary  text-handling  system. 

Firebird  even  offers  economical, 
professional- quality  Produttivit}'  software! 
ADVANCED  ART  STUDIO  is  a  comprehensive 
ait  package  with  powerfal  graphics  routines. 


This  is  Firebird  —  the  best  in  interactive 
software  of  every  description.  We'll  prove  to 
you  that  you  don't  have  to  keep  switching 
brands  to  satisfy  your  obsession  for  challenge! 


CREDIT  CARD  HOTLINK 

(201)  444-5700 


m 

s 

"The  First  Full  Line  In  Software" 

Firebird  Uceiisccs,  Inc. 

RO.  Box  49,  Ramsey,  NJ  07446 

(201)4«-5700 

Firebird  software  for  Ornimodoa'  64  syaems,  Irtcluding  lire 
popular  GolJen  Rath,  hvn,  Colossus  Cfiess  IV,  Cholo,  Maiig 
"Radier,  Coftdw  Mu*  Svstem  and  Advarn-ed  Music  System,  is 
a\'3ilable  from  (24.95  It)  (59.95. 
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When  we  first  decided  to  launch  a  compilation  of  our  best-ever 
Commodore  programs,  we  looked  through  the  archives  of  COM- 
PUTE! and  GAZETTE.  We  had  our  favorites,  and  there  were  those 
that  drew  impressive  responses  from  our  readers.  We  compiled  a 
hst  of  these  and  discovered  that  there  was  enough  material  (over 
100  programs)  to  fill  at  least  two  magazines. 

Our  initial  offering,  Best  of  COMPUTE!  &  GAZETTE  For  Com- 
modore 64  &  128,  contains  many  of  the  programs  from  our  "best 
of"  list.  It  hit  the  newsstand  last  October  and  was  received  very 
well.  This  issue  contains  33  more  of  our  best-ever  ready-to-type- 
in  64  and  128  programs,  spanning  several  categories:  games, 
education,  graphics,  disk  and  programming  utilities,  applica- 
tions, and  128-only  programs.  For  those  of  you  unfamiliar  with 
our  program  listing  conventions,  see  "How  To  Type  In  COM- 
PUTEl's  Gazette  Programs,"  "Automatic  Proofreader,"  and 
"MLX"  before  beginning  your  typing  session.  For  those  who 
would  rather  spend  a  little  money  and  save  a  lot  of  typing  time, 
we  have  a  special  disk  offer  (see  page  26).  For  $6.95  plus  $2  post- 
age and  handling,  we're  offering  a  companion  disk  that  contains 
all  the  programs  in  this  issue.  The  disk  contains  an  easy-to-use 
menu  that  calls  the  programs  with  the  press  of  a  key. 

We  carefully  selected  the  programs  for  this  issue,  so  that  reg- 
ular GAZETTE  subscribers  will  have  many  programs  that  never 
appeared  in  GAZETTE.  And  newer  subscribers  (the  past  12 
months)  will  see  some  GAZETTE  programs  that  are  no  longer 
available  by  back  order.  We're  confident  that  this  collection  offers 
some  of  the  finest  Commodore  programs  ever  published,  and  rep- 
resents an  excellent  value  for  the  Commodore  64  and  128  owner. 


COMPUTE!  Publications,  Inc.  ® 

On9  at  tho  ABC  Consumer  Ma^oiln*!,  Irw.     ^^ 
A  Copllal  Cttin/ktC,  Inc.  Componv 

ABC  Puti3isnir>g.,  Prftbdeni.  E?oC"efT  G  BLBion 
U^OA^ronuo  ot  irw  AmW'CQS.  I^*ew  V£x»i,  Now  Yorii  10015 


]lu*  UiMi'ijuiv  (-A/I  t  II  ^ulmftlM?r  lisE  i^  um\o  wmUWv  (o 
tJiHuHv  HTLt-nfil  wf^iniAilrtWii  wiEh  a  jwriilm't  fw  sentK.v 
vvhkh  may  be  ol  iriTifeiJ  It*  intr  TLMdefS,  Jl  you  pfpiet  ihA  lo 
iet.eiii,e  iuth  ruaifin};-^,  j)J(MU*  i^-ixi  J.t%  (t^l  <^np^  ot"  yuur 
subM-riptiari  LlM  To;  f  imitHES  OVEi  TE,  I^O.  Box  10956, 
Dei.  Moims.  I A  lit  W  50.  lEHlude  a  ixiie  indKolin^  yuvt  puef- 
CTertce  lo  rf<"eive  {mly  ^iHir  suljvnp^Kin. 

Auif KIR  n(  iTunuitrifrti  wnttAfil  rlul  .id  malwijK  submilTprE  lo  r{»m;i  i  -^v  C V[  1 1  [  ,Mi'  wiftioil  rtiiif  utv  wilh  fuB  mwwrtWp 
ti^i%  it^ik^nt  m  vikI  .iuI}ii^k\  By  M.il»mrtli[Tg  tUtKtw  ro  roupiJTi'*  i*VLME.  .iuUkws  .vLncMtefl^i*  Eh.il  %lx h  m,i!(rTi,iK.  utxm 
.KcepiAiKi'  Uk  \mb\KMH»x  lh^f>nn'  tin-  t-julume  \ifu\yrt\y  (iE  COMPUII!  E\il»lit.ieuHn  In.    \o  (xkIkmi  tt(  ihrt  nvthfi^UK* 
nuy  In*  ffpttxlijteil  iii  >iny  litfm  Mitlujui  ^snitefi  ix-rmt*i«>n  IrtMn  \\h*  puWrtFuf,  (nine  itMiTi*n1%  LUfjiyrt}^!)  S'  U*HH  COM* 
PUTIl  I'tiNK.iliom,  Im   Rri/^\\\  lo  pnrff,m'\\  dt-vt-loprtf  *tnci  Mjl:>milTitl  ii^'  ,tuttM»ri  mc  expLiirK'il  m  uur  .lullux  cnnlfHUl.  Un- 
uijiiiltfl  iTUik-rwtv  rKif  .kii'jiTifi  kwr  publK^iEion  smM  U-  rHufnrti  tE  jul>vur  fycAtcles  ^  v('H..Mkla^M?fl,  -iMriiinKl  (Hivi'lope. 
U'bffr  |vi>|^.i[ns  .irr  irukKkil  m  Jti  jrtitk'  subnuvtion,  -i  Lape  or  drtk  mirt)  ,>«  < tjflifynv  Ibv  subnussion,  f*nntwl  lailifiRs  are 
ii'pdJiii.iL  bin  Iw'IjjIijL  Afbtleb  should  he  iurnnhed  Ji  typetl  ct>()>  (iipjXT  iful  kftvifLaw.  pkMs<0  vviEh  tJiHjbk'  ^^xiciiit;,  t.icb 
,ir!n  I*'  (»,i;gt'  shiiukj  U.MJ  Elif  Eiitt*  of  ihe  artKEe,  dalt?,  dnd  r^m<?  ot  the  auihur.  COMPUTIl  l\jhlitLiEi(jfjv,  IrK  ,  assurnfs  no 
[ntukv  tinf  rn<)f>  111  .iftkk."*  or  .KivrrtiMzmenk.  Opiniorts  espressed  by  aulEiurv  ,ire  iKfE  iHti'S^iftly  itum^  oE  COMPUTE 
Pubtitaiioii:.,  IfK.  COMPUTtl  Pubfitjltortv  jssiJnws  no  rcsponsLbtlity  Iw  danwg^s,  di^lay*,  nr  Ijjlurc  of  sbifjmeni  in  connec- 
li<ni  vpith  aullmrv"  iffli-r  to  niakf  tajx-  w  dhk  cnpies  ul'  pro^jtim  psjt>lishrd  herein. 

f V>mnuMi(]rc-  M,  l1iiv/4.  J  h,  anrf  MH  are  tfjdemjrks  o(  Cominofkire  BuHoms  Mjtbiru'*,,  lof..  aofj/o*  Qjnintoijori?  \  IrUrontcs 
I  jonli'd  t  JiEnf  Ib.iri  .i'*  arv  inrlepcntk-nl  ^upptivr  ol  quality  infnrnuEwjn  jnd  utTvin-*;  En  owm-r^  and  uiri-ri*  ni  CorniTiofiore 
IJTodLKli,  COMPUTE!  F\il]lkH9tKiin,  Int.,  n  in  i^i  'iwiy  ^Wiocialed  wWh  Commodnrf  UmJot-ss  Mjt.hlrU'v,  liK  ,  or  any  of  tli. 

M.lllMllt.llML'V. 


Preview  The  Future! 
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•xeann  arrcran  ...  me  nonest  lopic  or  aiscusston  in  aviation  circles  lo< 

Space  age  technology  and  engineering  make  these  aircraft  virtually 
undetectable  by  enemy  radar.  Sleatth  fighters  are  believed  to  now  be 
operating  from  top  secret  military  bases,  flown  only  on  the  most  sensttiufl 
missions  and  only  by  the  most  experienced  pilots.  f 

Precise  information  about  this  next  generatio 

of  Air  Force  jots  is  higlily  classified.  But  exlonJ 

sive  research  has  onablod  the  aviation  experts     ' 

at  MicfoPfose  to  incorporate  the  potential 

design  and  performance  characteristics  in  a  "'"         ^ 

powerlul  new  simulation.  1 
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Slip  into  the  cockpit  of  PROJECT;  STEALTH  FIGHTERand 

familiarize  yourself  «fith  the  advanced  "f\eads-ijp  display "(HUDt  and 
sophisticated  3-D  out-tho-cockpit  view.  At  your  disposal  is  a  dazzling  :Sr^ 
array  of  stnto-of-the-art  electronics,  weapons  and  counter  measures.  j 

But  rememtier.  tlyitifl  a  stealth  aircraft  takes  more  than  just  ttghtor  pilot  redexes. 

The  real  challenge  is  mastering  the  jet's  electromagnetic  prolile  to  avoid  enemy 

radar,  while  executing  a  deep-strike  mission  into  Nodh  Africa  or  conducting  delicate  photo  reconnaissance  over  Eastern  Block 

seaports.  Also  featured  are  carrier  and  land-based  takeoHs  and  landings,  as  well  as  land,  sea.  and  air  targets  and  threats, 

PROJECT:  STEALTH  FtGHTER  Combines  the  combat  action  thrills  of  the  best-selling  F-15  STRIKE  EAGLE  with  the 
sophisticated  llight  environment  pioneered  In  GUNSHIP.  Add  the  danger  and  suspense  of  clandestine  missions  in  an 
Innovative  •■inwisil>le  aircraft"  and  you  have  PROJECT:  STEALTH  FIGHTER,  the  latest  Hying  challenge  Irom  H/licroProsel; 

PROJECT;  STEALTH  FIGHTER  is  available  (rom  a  "Valued  MicroProse 
Retailer"  (VMR)  near  you.  Call  us  (or  localions! 
For  Commodore  64/128.  IBM-PC/compalibles  and  Apple  II  Wc.  Call  or 
write  lor  specilic  macfiine  availability,  and  (or  MC/VISA  orders  if  product 
riol  found  locally. 
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Laser  Chess^ 


Mike  Duppong 


Laser  Chess'^'*^  won  First  Prize  in  our  $10,000  programming  con- 
test for  COMPUTE'S  Atari  ST  Disk  &  Magazine.  Azvarded  $5,000 
for  its  ariginalitji  and  skillful  pragramming,  Laser  Chess  is  a 
two-player  strategy  game  patterned  after  traditional  chess — luith 
some  fascinating  new  twists.  The  original  version  was  ivritten  in 
the  Modula-2  language  for  the  Atari  ST.  Here  we  provide  a  ma- 
chine language  translation  for  the  Commodore  64  (and  Commo- 
dore 128  in  64  mode).  At  least  one  joystick  is  required. 


Laser  Oicss™,  as  the  name  implies, 
is  a  chesslil<e  strategy  game  for  two 
players.  The  goal  is  to  manipulate  a 
laser-firing  piece  and  various  reflec- 
tive objects  to  eliminate  your  oppo- 
nent's king.  As  in  traditional  chess, 
there  are  an  infinite  number  of 
ways  to  accomplish  this. 

Since  the  program  is  written  in 
machine  language,  it  must  be  typed 
in  with  the  "MLX"  machine  lan- 
guage entry  program  printed  else- 
where in  this  issue.  Here  are  the 
starting  and  ending  addresses  for 
MLX: 

Starting  address:     0801 
Ending  address:       IBBS 

There  are  eight  basic  types  of 
pieces  in  Laser  Chess,  and  each  has 
unique  capabilities.  Over  time, 
you'll  learn  each  piece's  advantages 
and  limitations.  Obviously,  the 
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more  you  play  Laser  Chess,  the 
more  you'll  understand  the  pieces 
in  your  arsenal,  which  in  turn  will 
make  you  a  better  player.  So  let's 
start  with  a  description  of  the 
pieces. 

A  Geometric  Army 

!-'igure  1  shows  each  piece  and  its 
name.  {The  appearance  of  game 
pieces  may  differ  slightly  in  the 
Commodore  version.}  Notice  that 
some  sides  of  certain  pieces  are 
highlighted  with  a  different  color. 
This  indicates  a  reflective  surface. 
When  a  laser  beam  strikes  a  reflec- 
tive surface,  it  bounces  off  without 
harming  the  piece.  But  if  a  piece  is 
hit  by  a  laser  on  a  nonreflective  sur- 
face, it  is  destroyed. 

A  piece  can  also  be  removed 
from  the  board  if  it  is  captured  by 


Figure  1:  These  are  the  basic 
pieces  in  Laser  Chess. 
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an  Opposing  piece.  This  is  similar  to 
traditional  chess;  to  capture  a  piece, 
you  simply  move  one  of  your  own 
pieces  onto  its  square. 

In  addition  to  their  ability  to 
move  from  square  to  square,  pieces 
with  reflective  surfaces  can  also  be 
rotated  in  place  in  90-degree  incre- 
ments. This  lets  you  orient  the  piece 
to  protect  it  against  opposing  laser 
shots,  or  to  set  up  bounce  shots 
with  your  own  laser. 

The  king  is  the  most  important 
piece  in  Laser  Chess.  When  the  king 
is  eliminated,  the  other  player  wins 
the  game.  Since  it  has  no  reflective 
surfaces,  it  can  be  destroyed  by  a  la- 
ser from  any  angle.  It  can  also  be 


Strategic  Studies  Group  Presents 
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Js  of  Montezuma 

A  Battle  History  of  the 
United  States  Marine  Gorps 

Fight  the  battles  of  Mexico  City,  Belleau  Wood, 
I  wo  Jima,  Okinawa  —  The  Shuri  Line,  Okinawa  — 
The  Last  Redoubt,  Pusan  Perimeter,  Inchon  and 
Hue  with  the  elite  fighting  men  of  the  US  Marines. 

Halls  of  MontezMtna  uses  the  Battle/ront  Game  System  with  a 
number  of  enhancements.  These  include:  night  capable  units, 
brittle  units,  new  reports  structure,  new  graphics,  improved  movetnent 
and  regimental  integrity,  and  enhanced  Al  routines.  The  battles  are 
accompanied  by  detailed  historical  articles  and  players  notes. 
Be  the  architect  of  victory  with  the  complete  wargame  construction 
set  War/jlan''^'  and  the  total  graphics  editor  Warpainf^K  Alter  any 
scenario  or  create  new  games  with  Warplan.  Change  the  appearance 
and  color  of  any  game  icon  with  Warpaint. 
Fight  with  the  best  in  Halls  of  Montezuma  from  SSG. 

How  to  purchase.  Visit  your  retailer  or  call  Electronic  Arts 
800-245-4525  (in  CA  call  800-562-1112)  for  VISA  or 
Mastercard  orders  or  write  to  Electronic  Arts,  P.O.  Box  7530, 
San  Mateo,  CA  94403. 


Strategic  Studies  Group  Presents 


'^^^ClWrtr   /Decisive  Battles  of 

Vol.  1  BiiU  Run 
to  Chancellorsville 

First  Bull  Run,  Shiloh,  Second  Bull  Run, 
Antietam,  Federicksburg,  Chancellorsville, 

Six  crucial  bultlcs  spuiiiilng  the  i'irst.  hali'of'l'he  American  Civil  War 
arc  recreated  in  SSG's  Decisive  Bodies  System. 

Decisive  Bnlllcs  is  SSG's  new  grand  tactical  sitmilaiion,  suitable  for 
battles  of  the  eightcenlli  and  nineteenth  centuries.  The  many  aspects  of 
warfare  are  integrutCfl  into  an  easy  to  use  system  that  takes  ien 
minutes  lo  learn. 

Like  (iniiit  at  Shlloli  and  Iax  at  Atitictnni,  yon  command  an  entire  uriny. 
V»nir  C"i)rps,  Divisions  nnd  Ih-i^udes  depend  unon  your  direction  In  buttles 
histinjj  njj  to  foui-  thiys.  Tile  Aineriean  Civil  War  faitht'tdly  reflects  the 
.'(Hulitions  und  eomtnand  structures  of  the  time.  On  a  pre-rudio  bnttlcficld, 
(>ur  command  ahililics  will  be  strelehcd  to  tbc  limit. 
Take  control  of  your  battlefield  with  SSG's  eomprchensive  warganic 
construction  set  Wurplan'"''  and  the  revolutionary  (graphics  editor 
Warpaiiil'-^'.  Total  conunsnid  can  be  yours  with  The  American  Chil  War 
from  SSG. 

Iltnv  to  pttrchase.  Visit  your  retailer  or  call  Electronic  Arts 
80()-24o-*535  (in  CA  call  800-562-1112)  for  VISA  or 
Mustercurd  orders  or  write  to  Electronic  Arts,  P.O.  Box  7530, 
San  Mateo.  CA  94403. 


captured  by  an  opposing  piece.  Tlie 
Icing  is  not  totally  defenseless,  how- 
ever. It  can  capture  any  opposing 
piece  by  moving  onto  its  square. 
But  you  can  use  it  for  a  capture  only 
once  per  turn. 

The  second  most  important 
piece  is  the  iiiser.  This  piece  is  your 
primary  offensive  weapon;  it's  the 
only  piece  which  can  fire  a  laser 
shot.  To  take  aim,  you  can  rotate  it 
in  place  at  90 -degree  angles.  Like 
the  king,  the  laser  is  completely 
vulnerable  to  enemy  laser  strikes, 
because  it  has  no  reflective  sur- 
faces. ]f  you  lose  your  laser,  the 
game  is  not  over,  but  only  the  most 
skillful  (or  incredibly  lucky)  plaver 
can  overcome  its  loss. 

Tricky  Pieces 

The  hypercubc  is  an  interesting 
piece.  It  can't  harm  an  opposing 
piece  directly,  but  may  very  well  do 
so  indirectly.  When  the  hypercube 
is  moved  onto  another  piece  (even 
your  own),  that  piece  disappears 
from  its  original  position  and  reap- 
pears on  a  randomly  selected  emp- 
ty square.  This  can  happen  only 
once  per  turn.  The  hypercube  can 
be  a  two-edged  sword;  it  may  relo- 
cate a  piece  to  a  vulnerable  posi- 
tion, or  it  may  make  it  possible  for 
the  piece  to  capture  an  important 
opposing  piece  on  the  next  move. 
The  hypercube  has  no  reflective 
surfaces  and  cannot  be  rotated.  It  is 
invulnerable  to  laser  shots,  howev- 
er, because  it's  made  of  transparent 
material — a  laser  beam  passes  right 
through  it.  Remember  that. 

The  bcijiii  splitter  is  another 
tricky  piece.  When  a  laser  beam 
strikes  a  splitter's  vertex  (the  point 
opposite  its  base),  the  beam  splits  in 
two.  The  two  neiv  beams  travel  in 

Figure  2:  As  seen  in  this 
magnified  view,  a  beam  splitter's 
vertex  reflects  a  laser  shot  in  two 
perpendicular  directions. 


opposite  directions,  perpendicular 
to  the  original  beam's  path.  (See 
Figure  2.)  When  a  laser  shot  hits 
one  of  the  beam  splitter's  reflective 
surfaces,  it  bounces  off  at  a  90 -de- 
gree angle  without  splitting.  If  the 
beam  splitter's  base  is  hit  by  a  laser 
shot,  it  is  destroyed.  The  beam 
splitter  can  be  rotated. 

The  blocks  are  fairly  simple 
pieces.  However,  they  may  impose 
some  complex  situations.  A  block 
can  capture  any  opposing  piece  by 
moving  onto  that  piece's  square, 
much  like  a  king.  But  unlike  a  king, 
a  block  has  one  reflective  side  and 
can  be  rotated  as  the  situation  de- 
mands. Therefore,  blocks  can  be 
used  either  offensively  or  defen- 
sively. A  laser  beam  that  hits  the  re- 
flective  surface  of  a  block  is 
deflected  180  degrees — bouncing 
the  beam  back  where  it  came  from. 

A  diagojial  mirror  cannot  be  de- 
stroyed by  a  la.ser,  because  both  of 
its  surfaces  are  reflective.  Diagonal 
mirrors  can  be  removed  from  the 
board  only  when  captured  by  a 
block  or  a  king.  When  a  laser  beam 
strikes  a  diagonal  mirror,  the  beam 
is  deflected  90  degrees.  Diagonal 
mirrors  can  be  flipped  to  their  op- 
posite diagonal,  but  cannot  be  ro- 
tated to  face  horizontally  or 
vertically. 

The  horizontal  mirrors  and  i»rr- 
tical  mirrors  (known  collectively  as 
straight  niirron)  are  also  invulnera- 
ble to  lasers  due  to  their  reflective 
surfaces.  When  a  laser  hits  a 
straight  mirror  on  its  flat  surface, 
the  beam  is  deflected  180  degrees. 
If  the  laser  hits  a  straight  mirror 
edgewise,  the  beam  passes  straight 
through  it.  (Look  closely  at  Figure 
2;  a  laser  beam  is  passing  through  a 
horizontal  mirror  just  to  the  left  of 
the  red  beam  splitter.)  Straight  mir- 
rors can  be  rotated  to  become  either 
horizontal  or  vertical  mirrors,  but 
not  diagonal  mirrors. 

The  triaugtiiar  mirrors  deflect 
laser  beams  just  as  diagonal  mirrors 
do,  but  they  are  vulnerable  to  hits 
on  their  two  nonreflective  sides.  A 
triangular  mirror  can  be  rotated  in 
90-degree  increments. 

Making  Moves 

As  in  the  conventional  game  of 
chess,  a  move  in  Laser  Chess  con- 
sists of  moving  or  otherwise  ma- 
nipulating a  game  piece.  A  cursor 
indicates  your  position  on  the 


board.  Use  the  joystick  to  move  the 
cursor  over  the  piece  you  wish  to 
move.  (If  you  have  only  one  joy- 
stick, plug  it  into  port  2.  You  can 
simulate  the  second  joystick  by 
pressing  the  left-arrow,  1,  2,  and 
CTRL  keys  to  move  the  joystick 
left,  right,  up,  and  down,  respec- 
tively, and  pressing  the  space  bar  as 
a  substitute  for  the  button.) 

To  select  a  piece,  hold  down 
the  fire  button.  To  rotate  a  piece, 
move  the  joystick  and  press  the 
button  at  the  same  time.  To  move  a 
piece,  move  the  pointer  to  the  desti- 
nation square  after  you  have  select- 
ed a  piece;  then  press  the  button  a 
second  time. 

The  same  player  always  moves 
first  in  Lnser  Owss.  There's  no  par- 
ticular advantage  or  disadvantage 
to  moving  first. 

A  turn  consists  of  two  moves. 
The  number  of  moves  remaining  in 
a  turn  is  indicated  visually  on  the 
screen.  (See  Figure  3.) 

Figure  3:  This  full-screen  view  of 
Laser  Chess  shows  its  9  X  9  board 
grid  and  game  controls. 


Before  you  move  or  rotate  a 
piece,  you  must  select  it.  When  a 
piece  is  selected,  the  appearance  of 
the  piece  changes. 

If  you  accidentally  select  the 
wrong  piece,  you  can  deselect  it  by 
the  same  means  used  to  select  it,  as 
long  as  you're  still  in  the  same 
square.  Deselecting  is  usually  done 
after  rotating  a  piece — more  on  this 
in  a  moment. 

After  you've  selected  a  piece, 
your  next  decision  is  whether  to 
move  or  rotate  it.  Moving  a  distance 
of  one  square  takes  one  move;  mov- 
ing two  squares  takes  two  moves 
(although  you  can  move  a  piece 
two  squares  in  one  step).  Since  you 
have  only  two  moves  per  turn,  the 
maximum  distance  a  piece  can  be 
moved  in  one  turn  is  two  squares. 
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New  books 
from  COMPUTE! 


COMPUTE!  Books  is  bringing  you  a  brand  new 
line  up  of  books  for  your  Commodore  64  and 
128.  Tinese  recent  releases  offer  you  everytlning 
from  programming  i^ints  to  exciting  games,  from 
educationai  to  home  and  business  appiications, 


Pascal  for  Beginners 

$14.95  0-87455-068-8 

Book/disk  combinatton  for  the  Commodore  64 
$29.96  ISBN  0-87455-069-6 

Tr\ls  Introductory  text  to  standard  Pascal  on  any  computer  is 
an  Ideal  tutorial  for  anyone  who  wants  to  learn  this  powerful 
computer  language.  It  Includes  everything  you  need,  includ- 
ing an  introductory  Pascal  Interpreter*  for  the  Commodore  64 
and  1 28  In  64  mode,  reody  to  type  in  and  use.  Written  in  plain 
English  and  offering  numerous  program  examples,  it  gently 
and  clearly  explains  standard  Pascal  and  structured  program- 
ming. Latter  sections  include  discussions  of  advanced  topics 
such  OS  files  and  dynamic  data  storage.  There  is  also  an  op- 
Hono/  disk  available  for  $12.95  for  the  Commodore  64  which 
Includes  mosf  of  the  programs  In  the  book.  688BDSK. 

•The  Commodore  64  Pascal  interpreter  is  not  full-featured, 
but  still  a  powerful  Implementation  of  Pascal  which  suits  the 
needs  of  most  beginners. 


COMPUrtCs 
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Seopnd  Bonk  of 
Corr 
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MSCAL 


COMPUTEI's  Music  System 

for  the  Commodore  64  and  1 28 

Book/disk  combination  only 

$24,95  ISBN  0-87455-074-2 

Sidplayer,  the  feature-pocked,  popular  music  player  and  edi- 
tor program,  is  now  more  versatile  and  more  impressive  than 
before,  Enlxsnced  Sidplayer  for  the  Commodore  1 28  and  64 
includes  two  new  vefslons — one  for  the  Commodore  1 28  run- 
ning in  1 28  mode  and  another  for  the  Commodore  64,  Take 
advantage  of  every  feoture  the  SiD  chip  (the  sound  chip  in 
the  1 28  and  64)  has  to  offer.  Just  like  the  original.  Enhanced 
Sidplayer  is  easy  to  leom  and  use,  with  many  powerful  new 
features.  The  accompanying  disk  contains  the  editor,  player 
programs  (including  a  Singaiong  program),  utilities,  and  som- 
ple  music  that  you  con  enjoy  immediately  or  chonge.  The 
new  Sidplayer  plays  any  songs  created  by  the  original 
Sidplayer  for  the  Commodore  64. 


User's  Guide  to  GEOS:  geoPaInt  and  geoWrlte 

$3  8,95  ISBN  0-87455-080-7 

Leom  the  ins  and  outs  of  GEOS,  the  new  icon-based  operat- 
ing system  for  the  new  Commodore  64C  and  the  64,  with  this 
step-by-step  guide.  Everything  from  creating  simple  letters 
with  geoWfite  and  pictures  with  geoPaint  to  merging  text  and 
grophics  and  using  desk  accessories  is  cleariy  and  concisely 
explained. 

COMPUTEI'S  Second  Book  of  the  Commodore  128 

SI 6.95  ISBN  0-87455-077-7 

The  editors  at  COWPUTEI  Publications  have  collected  some  of 
the  best  gomes,  programs,  and  tutoriais  for  the  Commodore 
128  (in  128  mode)  from  COMPUTFt  mogazine  and  COMPUTEI's 
Gazette.  Like  COMPUTEI's  First  Book  of  the  Commodore  128. 
this  book  offers  a  variety  of  programs  and  articles  for  ever^ 
1 28  user.  Each  progrom  has  been  fully  tested  and  Is  ready  to 
type  In  and  use  on  the  Commodore  128  running  In  128  mode. 
There  Is  also  o  disk  available  for  $12.95  which  includes  the  pro- 
grams In  ttw  book.  777BDSK. 

Mopping  the  Commodore  64,  Revised 

SI 6.95.  ISBN  0-87455-082-3 

An  update  of  the  bestseiling  memor/  map  and  programming 
guide.  It's  o  necessity  for  intermediate  and  advanced  pro- 
grammers. This  definitive  sourcebook  has  been  expanded  and 
now  covers  the  new  icon-based  GEOS  (Graphics  Environment 
Operating  System)  with  clear  descriptions  of  how  to  moke  it 
wort<  for  you,  For  BASIC  ond  mochine  language  programmers 
of  both  the  Commodore  64  and  64C. 


Look  for  COMPUTE!  Books  at  your  local  computer  or  book  store. 

Or,  to  order  directly  from  COMPUTE!,  call  toll  free  T-800-346-6767  (In  NY  212-887-8525)  or 

write  COMPUTE!  Books,  P.O.  Box  5038,  F.D.R.  Station,  New  York,  NY  10150. 

Pleose  Include  shipping  and  handling:  $2.00  per  book  in  U.S.  and  surface  mall:  S5.00  airmail.  NC  residents  odd 

5  percent  sales  tax  and  NV  residents  add  8.25  percent  sales  tax.  Please  allow  4-6  weeks  for  delivery. 

Customer  Service  hours  are  10:00  a.m. -12:30  p.m.  and  1:30  p.m. -3:00  p.m.  EST  Mon.-Fri. 


COMPUTE!"  Publications  JncgJ 


A  Copi'al  GiNOi/ABC,  Inc  Com  cany 


COMPUTEl  Books  ore  ovaiiabie  outside  the  United  Stotes  from 
subsidiaries  of  McGraw-Hill  International  Book  Company. 


The  computer  does  not  ailow  illegal 
moves. 

Pieces  can  be  moved  forward, 
backward,  left,  or  right,  but  not  di- 
agonally. You  can  effectively  move 
a  piece  diagonally  by  using  two 
moves — forward  and  right,  for  in- 
stance. 

You  cannot  move  a  piece  onto 
a  square  occupied  by  another  piece. 
The  only  exceptions  are  captures 
with  blocks  and  kings,  and  moves 
of  the  hypercube  as  described 
above. 

Rotating  A  Piece 

The  computer  does  not  allow 
you  to  rotate  a  piece  that's  incapa- 
ble of  rotation.  Otherwise,  the  piece 
rotates  90  degrees  (one-quarter 
turn)  clockwise.  You  may  continue 
rotating  the  piece  to  any  desired  po- 
sition before  de-selecting  it.  Rotating 
a  piece  to  face  any  direction  takes 
only  one  move,  and  the  move  is 
subtracted  after  the  piece  is  dese- 
lected. If  you  deselect  the  piece  in 
its  original  position,  no  move  is 
subtracted. 

You  can  combine  a  rotation 
and  a  move  in  a  single  action.  First, 
select  the  piece.  Then  rotate  it  to  the 
direction  you  wish  it  to  face.  Final- 
ly, move  to  any  adjacent  square  (ex- 
cept a  diagonal)  as  you  would 
normally  do.  The  piece  moves  to 
that  square  and  faces  in  the  direc- 
tion you've  chosen.  Since  rotating  a 
piece  and  moving  a  piece  each  take 
one  move,  this  uses  up  your  turn. 

Special  Features 

At  the  center  of  the  9X9  board  is  a 
sfJecial  square  called  a  hypersqimre. 
It  absorbs  laser  beams  and  acts  like 
a  stationary  hypercube.  That  is,  if 
you  try  to  move  a  piece  onto  it,  the 
piece  disappears  from  its  original 
position  and  reappears  on  a  ran- 
domly selected  empty  square.  This 
can  happen  only  once  per  turn, 
however. 

Along  the  board  on  the  left 
side  of  the  screen  are  some  geomet- 
ric button  shapes.  The  button  la- 
beled Q  allows  you  to  quit  playing 
at  any  time.  When  selected,  this  op- 
tion requires  that  you  confirm  your 
decision. 

The  restart  button  (R)  lets  you 
start  a  new  game  without  finishing 
the  current  game.  (For  instance,  a 
player  may  be  so  hopelessly  behind 
that  he  or  she  wants  to  resign.) 


Again,  the  program  asks  that  you 
confirm  this  choice. 

Firing  The  Laser 

The  last  button  is  the  laser  trigger. 
When  it's  your  turn,  you  can  select 
this  button  to  fire  your  laser.  If  your 
laser  piece  has  been  captured  or  de- 
stroyed, the  laser  button  won't  ap- 
pear on  the  screen  during  your  turn. 
Figure  4  illustrates  the  general 
effect  of  firing  the  laser.  Firing  your 
laser  takes  only  one  move,  but  can 
be  done  only  once  per  turn.  There- 
fore, you  may  want  to  use  your  first 
move  in  a  turn  to  aim  the  laser,  ro- 
tate a  reflecting  piece  to  set  up  a 
bounce  shot,  or  move  another  piece 
into  position. 

Figure  4:  The  combination  of 
reflective  and  transparent  surfaces 
of  the  various  pieces  can  result  in 
complex  bounce  patterns.  Here,  the 
red  laser  takes  advantage  of  the 
green  beam  splitter  to  destroy  two 
blocks. 


Of  course,  you  won't  necessar- 
ily be  firing  the  laser  on  every  turn. 
Much  of  the  strategy  in  Laser  Chess 
involves  moving  and  rotating  your 
pieces  to  set  up  complex  shots.  It's 
important  to  realize  that  ani/  laser 
hit  on  a  piece's  nonreflective  or 
nontransparent  surface  will  destroy 
that  piece.  You  can  destroy  your 
own  pieces  just  as  easily  as  you  can 
destroy  your  opponent's.  You  can 
even  zap  your  own  laser,  particu- 
larly if  you  fire  directly  into  the 
180-degree  reflective  surface  of  a 
straight  mirror  or  block,  or  if  you 
fail  to  anticipate  the  effects  of  a 
beam  splitter.  Be  forewarned. 

Laser  Chess  Strategy 

As  in  the  conventional  game  of 
chess,  much  of  the  strategy  in  Laser 
Chess  revolves  around  thoughtful 
placement  of  your  pieces.  Howev- 
er, the  character  of  the  game  differs 


from  that  of  chess  in  many  ways. 
The  laser,  for  example,  can  strike  at 
long  distances  and  in  more  than 
one  direction  at  once.  And  the  hy- 
percube adds  an  extra  element  of 
uncertainty.  The  best  strategy  for 
any  particular  game  depends  to  a 
great  extent  on  the  skill  and  person- 
ality of  your  opponent.  However, 
here  are  some  general  tips  you  may 
find  helpful. 

Get  your  mirrors  out  early.  Use 
them  to  gain  the  fullest  potential  of 
your  laser.  Try  to  position  mirror 
networks  on  both  sides  of  the  beam 
splitter  so  you  can  inflict  as  much 
damage  as  possible. 

Take  advantage  of  the  blocks. 
Since  they  "control"  an  area 
around  them  with  their  threat  of 
capture,  no  other  pieces  can  safely 
move  within  their  range.  Make 
your  opponent  work  to  displace 
them.  Remember  to  rotate  the  re- 
flective side  of  a  block  to  the  most 
probable  direction  of  laser  fire.  If 
you  can  prevent  a  laser  from  de- 
stroying the  block,  your  opponent 
will  most  likely  have  to  gang  up  on 
it  with  two  or  more  of  his  or  her 
own  blocks. 

Use  mirrors  to  protect  your 
king.  If  you  surround  your  king 
with  straight  and  diagonal  mirrors, 
there  is  no  way  it  can  be  hit  by  a  la- 
ser. Therefore,  your  opponent  will 
have  to  break  through  your  defense 
with  blocks.  {This  is  a  pretty  dirty 
trick,  because  when  all  of  your  op- 
ponent's blocks  have  been  used, 
your  king  is  almost  invulnerable.) 
Defending  your  king  with  blocks  is 
also  a  good  strategy. 

The  hypercube  should  be  used 
sparingly,  since  you  have  no  idea 
where  a  relocated  piece  will  reap- 
pear. Most  players  use  the  hyper- 
cube as  a  last  resort — if  another 
piece  is  going  to  be  destroyed  any- 
way, it  doesn't  hurt  to  take  a  chance 
and  relocate  it  with  the  hypercube. 
Also,  if  your  opponent's  king  is  en- 
circled with  mirrors,  you  can  march 
right  in  with  your  hypercube,  fol- 
lowed by  a  block.  This  tactic  may 
displace  your  opponent's  defense, 
forcing  him  to  evacuate  the  king 
from  its  mirrored  fortress.  Escorting 
the  hypercube  with  an  adjacent 
block  prevents  the  opponent  from 
attacking  the  hypercube  with  his  or 
her  king.  Your  opponent's  only  op- 
tions will  be  to  flee  or  be  displaced. 
See  program  listing  on  page  83.      Q 
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WmiUSONA 
PRORSSNMIAL 


Some  people  really  like  work- 
ing on  their  machines.  And  then 
there  are  some  who  prefer  to  do 
their  tinkering  under  the  hood.  For 
those  of  you  who  can't  wait  to  gef 
your  hands  greasy,  we  proudly 
introduce  geoProgrammer.  The 
most  sophisticated  machine 
language  programming  tool  on 
the  market. 

With  geoProgrammer,  you  get 
the  same  kind  of  technology  we  use 
for  developing  our  other  products. 
Which  means  you  can  write  super- 
charged software.  Pump  your  own 
programs.  And  assemble  just  about 
any  kind  of  application  you  can 
imagine. 

It  reads  and  writes  and 
stomps  on  bugs. 

The  first  three  tools  that 
any  serious  programmer  needs  JjHK 
are  an  assembler,  a  linker  and    ^^^' 
a  debugger.  So  we've  installed  all 
three,  complete  with  sample  GEOS 
applications  that  teach  you  the  latest 
programming  tricks  in  seconds. 

geoAssembler  not  only  reads 
directly  from  geo Write  files,  but 
contains  enough  Pseudo  Ops  to 
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•Also  available  to  80  col.  Cl2Sk 


allow  all  kinds  ••         / 

of  conditional  assem- 
blies. It  has  all  the  state-of-the-art 
features  you'd  expect,  including 
some  you  probably  never  thought 
possible.  Kor  example,  integrating 
graphics  is  as  simple  as  cutting  and 
pasting  the  image  from  geoPaint 
directly  into  your  program. 

geoLinker  ties  your  program 
modules  together,  supporting 
GEOS  SEQ  and  VLIR  applications 
and  desk  accessories.  You  can  even 
use  geoAssembler  and  geoLinker  to 
create  non-GEOS  applications. 

H  Berkeley 


geoDebugger  allows  your  pro- 
gram to  be  tested  in  memory  with 
■  symbolic  disassembly,  along 
with  line  assembly  for  patching 
code  in  niemory.  It  also  allows 
your  code  to  be  single-stepped  or 
top-stepped,  with  sub-routines  fully 
executed.  It  can  stop  a  running  pro- 
gram with  one  key,  or  use  up 
to  eight  conditional  break- 
points. When  your  program 
hits  the  breakpoint,  it  promi- 
nently displays  the  error  in  an 
overlay  window,  leaving  the 
applications  screen  intact. 

Pro  enough  for  you  yet?  Well, 
that's  only  a  partial  list  of  what 
you're  in  for. 

If  you  understood  all  that, 
read  on. 

Chances  are  that  we  lost  a  lot 
of  readers  by  now.  But  if  you're  still 
with  us,  hang  in  there.  You  have  the 
makings  of  a  real  GEOS  pro.  All  you 
need  now  are  the  right  tools. 

And  all  of  them  come  in  this 
one  handy  box. 

So  if  you're  serious  about  pro- 
gramming,consider  geoProgrammer. 
After  all,  you've  got  nothing  to  lose 
— except  your  amateur  status. 


To  order  call  1-800'443-0100  exl.  234 
geoProgrammer  $69.95 

(Qilifornia  residents  add  7'?  salts  lax.) 
$2.50  US/$5.50  Foruian  for  sliippitiK  and 
handling.  Allow  six  weeks  fcir  delivtTy. 


GEOPROGRAMMEIt 


Softworks 

The  brightest  minds  are  working  at  Berkeley. 


JdISI^ 


Basketball  Sam  &  Ed 


Rhetl  Anderson  and  David  Henslev,  Jr. 


What  better  way  to  score  a  goal  than  to  go  through  the  hoop 
jiourseif?  This  deUghtfuUy  clever  arcade-style  game  for  the 
Coniiitodorc  64  is  guaranteed  to  provide  hours  of  enfertaifuuent 
for  young  or  old.  Included  are  one-  and  two-player  Diodes.  Ex- 
cellent playabilify  and  outstanding  graphics  and  sound  make 
"Basketball  Sam  &  Ed"  a  niusf  for  any  game  lover.  One  joy- 
stick is  required  for  the  one-player  mode;  two  are  required  for 
the  two-player  mode. 


"Basketball  Sam  &  Ed"  is  a  whimsi- 
cal version  of  one-on-one  basket- 
ball that  can  be  enjoyed  by  the 
whole  family,  young  and  old,  Al- 
though the  game  is  most  fun  when 
played  by  two  people,  a  computer 
opponent  is  always  ready  for  the 
challenge. 

Basketball  Sam  &  Ed  is  written 
entirely  in  machine  language,  so 
you'll  need  to  use  the  "MLX"  ma- 
chine language  entry  program 
found  elsewhere  in  this  issue  to  en- 
ter it.  When  MLX  asks  for  a  starting 
and  ending  address,  respond  with 
these  values: 

Starting  address:     0801 
Ending  address:       18C0 

Be  sure  to  save  a  copy  to  disk 
or  tape  after  you  finish  typing. 
Name  the  program  SAM  &  ED  if 
you  wish  to  be  able  to  use  the  ac- 
companying Basketball  Sam  &  Ed 
Customizer  program.  (See  below.) 
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Tip-off 

If  you  plan  on  playing  the  two- 
player  version,  plug  two  joysticks 
into  the  joystick  ports  before  you 
turn  on  the  computer.  If  you're 
playing  against  the  computer,  use  a 
joystick  plugged  into  port  2. 

Although  Basketball  Sam  &  Ed 
is  a  machine  language  program,  it 
can  be  loaded,  saved,  and  run  just 
like  a  BASIC  program.  When  you're 
ready  to  play,  load  the  program  and 
type  RUN,  The  program  prompt 
asks  ONE  PLMER  OR  TWO?  Re- 
spond by  pressing  1  or  2. 

At  the  top  of  the  screen  is  a 
scoreboard  that  shows  Sam's  score, 
Ed's  score,  the  period  (1-4),  and  the 
amount  of  time  left  in  the  period.  A 
scrolling  message  board  provides 
you  with  announcements  and  im- 
portant information  about  the 
game. 

Sam  and  Ed,  true  to  their  dedi- 


n 


Sam  boiincvs  off  of  Ed  lo  make  one  hist 
basket  in  Ihh  high-scoring  game. 


cation  to  the  sport,  are  basket- 
balls— ^with  arms,  legs,  and  faces, 
Sam  is  the  orange  ball  and  Ed  is  the 
blue  one.  In  one-player  mode  you 
control  Sam,  while  the  computer 
handles  Ed,  This  mode  offers  a 
good  way  to  learn  to  play  Basket- 
ball Sam  &  Ed,  since  the  computer 
plays  a  Httle  better  than  most  begin- 
ning players.  In  two-player  mode, 
Ed  is  controlled  by  the  player  using 
the  joystick  in  port  1,  Sam  is  con- 
trolled by  the  player  using  the  joy- 
stick in  port  2, 

The  joystick  controls  are  easy 
to  learn.  You  can  run  either  left  or 
right  by  moving  the  joystick  in  the 
appropriate  direction.  To  jump, 
press  the  fire  button.  You  can  jump 


to  the  left,  the  right,  or  straight  up 
into  the  air,  depending  on  the  direc- 
tion of  the  joystick  when  you  press 
the  fire  button. 

As  in  real  basketball,  the  only 
way  to  score  is  by  shooting  the  ball 
through  the  hoop.  In  Basketball 
Sam  &  Ed  you  can  score  in  any  of 
the  three  goals.  Since  you  can't 
jump  high  enough  to  score  by  going 
through  the  hoop,  you'll  have  to 
bounce  off  of  your  opponent.  It's 
not  uncommon  to  bounce  off  your 
opponent,  the  floor,  and  a  back- 
board before  scoring — any  way 
that  you  can  make  it  into  the  basket 
counts.  As  in  the  real  game,  each 
goal  is  worth  two  points. 

Once  you're  airborne,  you 
have  no  control  over  your  path,  so 
you'll  have  to  time  your  jump  just 
right  to  score.  If  you  miss  with  your 
jump,  your  opponent  may  be  able 
to  take  advantage  of  your  helpless 
bouncing  to  score. 

The  game  begins  with  Sam  and 
Ed  bouncing  wildly  around  the 
screen.  When  both  players  land  on 
their  feet,  the  first  of  four  periods 
begins.  Each  period  lasts  for  10 
game  minutes,  which  is  ecjuivaient 
to  about  2  minutes  and  40  seconds 
in  realtime.  At  the  end  of  each  peri- 
od— when  the  timer  reaches  00:00 
and  you  hear  "Sweet  Georgia 
Brown" — the  players  lose  control 
of  Sam  and  Ed,  but  if  either  scores 
before  he  stops  bouncing,  the  goal 
counts. 

If  the  score  is  tied  at  the  end  of 
the  fourth  quarter,  an  overtime  pe- 
riod, which  is  the  same  length  as  a 
regular  game  period,  must  be 
played.  You'll  be  given  as  many 
overtime  periods  as  you  need  to  de- 
termine a  winner. 

When  the  game  ends,  the 
screen  freezes  so  that  you  can  view 
the  score.  To  start  a  new  game, 
press  any  key.  If  no  key  is  pressed 
after  approximately  15  seconds,  an- 
other game  begins  automatically. 

Press  the  Commodore  key  to 
pause  the  game.  Press  it  again  to  re- 
sume play.  RUN/STOP/RESTORE 
stops  the  game.  Type  RUN  to 
restart. 

Strategy 

Basketball  Sam  &  Ed  looks  and 
plays  like  an  arcade  action  game, 
but  after  playing  a  few  games  you'll 
develop  strategies.  Most  players 
eventually  come  up  with  their  own 


"plays" — ways  of  timing  their 
jumps  so  that  they  score  or  keep 
their  opponent  from  scoring.  For 
example,  it's  possible  to  block  a 
goal-bound  opponent  by  hitting 
him  with  the  side  of  your  head  as 
he  bounces  on  the  ground.  It's  also 
possible  to  score  two  baskets  in  a 
row  after  your  opponent  scores 
one.  Both  moves  (especially  the  lat- 
ter one)  demand  quick  thinking  and 
some  practice. 

Keep  your  eye  on  the  clock  and 
don't  forget  to  make  that  last  scor- 
ing attempt  as  time  runs  out. 

Customizing  The  Game 

If  you  use  a  black-and-white  TV  or 
monitor  to  play  Basketball  Sam  & 
Ed,  you  may  not  be  able  to  tell  Sam 
and  Ed  apart.  To  solve  this  prob- 
lem, we've  included  a  customizing 
program  written  in  BASIC,  You  can 
use  this  program  to  make  your  own 
modifications.  (A  disk  drive  is  re- 
quired to  use  this  program.)  The 
screen  colors  and  the  body  and  fea- 
ture colors  of  both  Sam  and  Ed  can 
be  changed.  Three  of  the  scrolling 
messages  can  also  be  changed.  You 
can  also  make  the  periods  shorter 
so  the  game  takes  less  time  to  play. 

Type  in  Programs  2  and  3 
(using  the  Automatic  Proofreader 
program  found  elsewhere  in  this  is- 
sue), and  save  them  on  the  same 
disk  as  SAM  &  ED  (Program  1). 
You  should  save  Program  3  with 
the  name  S  &  E  CUSTOMIZER, 
since  this  is  the  name  Program  2  at- 
tempts to  load  {line  40).  Then  load 
and  run  Program  2,  the  Basketball 
Sam  &  Ed  Customizer  Loader.  This 
program  will  first  reconfigure  mem- 
ory, then  automatically  load  Pro- 
gram 3.  (Do  not  run  Program  3 
directly — certain  BASIC  pointers 
need  to  be  set  by  the  customizer 
loader,  Program  2.)  Follow  the  in- 
structions and  prompts  given  by 
the  Customizer,  When  you've  fin- 
ished making  your  changes,  you 
are  prompted  to  put  a  disk  into  the 
drive.  After  inserting  the  disk,  press 
RETURN.  A  new  file  called  CUS- 
TOM SAM  &  ED  is  written  to  this 
disk.  If  the  disk  already  contains  a 
previous  version  of  CUSTOM  SAM 
&  ED,  the  old  version  will  be 
scratched  before  the  new  one  is 
written.  The  customizer  program 
does  not  alter  the  original  SAM  & 
ED  program  file. 
See  program  listings  on  page  86.     • 


are  now 
available 


Clearinghouse. 

For  more  information 
about  the  Clearinghouse, 
please  fill  out  and  mail  back 
the  coupon  below. 

■lOMrArticlc. 
Creani^ouse 


Yes!  I  would  like  to  know  more  about  UMf 

Article  Clearinghouse.  1  am  interested  in 

electronic  orderinfi  through  the  following 

system(s): 

D  DIALOG/Dialorder  D  ITT  Dialcom 

DOnTyme  DOCLCILL 

Subsystem 
n  other  (please  specify). 


D 1  am  interested  in  sending  my  order  by 

mail. 
n  Please  send  me  your  current  catalog  and 

user  instructions  for  the  syslem(s)  I 

checked  above. 


Name- 
Title— 


Institution/Company- 


DepartmenL 

Address 

City. 

Phone  ( 


-State. 


.Zip. 


Mail  to:  Univtrsity  M'crofilms  Internationil 

300  North  Zeeb  Road,  Box  91  Ann  Arbor,  Ml  481M 
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Chain  Reaction 


Mark  Turtle 


In  this  explosive  strategy  game,  the  contest  is  never  finished 
until  your  last  bomb  has  been  thrown.  A  joystick  is  recjuired. 


"Chain  Reaction"  is  a  clever  strate- 
gy game  for  one  or  two  players. 
Whether  you  play  against  the  com- 
puter or  another  human,  the  objec- 
tive is  the  same;  to  eliminate  all  of 
your  opponent's  bomb-shaped 
pieces  from  the  field  of  play.  The 
game  is  played  on  a  5  X  6  grid  of 
squares,  and  the  players  alternate 
turns,  placing  one  bomb  in  a  square 
on  each  turn. 

The  results  of  a  move  depend 
on  how  many  bombs  are  already  in 
the  chosen  square  and  adjacent 
squares.  Whenever  any  square 
reaches  "critical  mass,"  it  explodes 
and  sends  its  bombs  into  neighbor- 
ing squares.  If  those  squares  are  al- 
ready loaded  to  capacity,  they 
explode  too,  creating  a  chain  reac- 
tion that  can  engulf  a  large  area  of 
the  board. 

Type  in  and  save  a  copy  of  the 
program. 

Bomb  Begets  Bomb 

When  you  run  Chain  Reaction,  it 
begins  by  asking  whether  you  wish 
to  play  with  one  or  two  players.  If 
you've  never  played  before,  you 
may  want  to  play  a  game  or  two 
against  the  computer  to  learn  what 
sort  of  strategies  it  favors.  When 
you  choose  to  play  against  the  com- 
puter, the  program  also  asks 
whether  you'd  like  the  computer  to 
take  the  first  turn. 

The  first  part  of  most  games  in- 
volves placement  of  initial  pieces, 
without  many  explosions.  As  the 
board  fills  up,  however,  explosions 
occur  with  increasing  frequency. 
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Play  continues  until  one  player's 
pieces  are  completely  eliminated 
from  the  board. 

The  position  of  a  square  in  the 
grid  determines  how  many  bombs 
it  requires  to  create  an  explosion.  A 
corner  square  can  hold  a  maximum 
of  one  bomb.  When  you  place  a  sec- 
ond bomb  in  a  corner  square  that 
already  holds  one,  both  bombs  ex- 
plode, sending  a  bomb  of  your 
color  into  two  neighboring  squares. 
After  an  explosion,  the  original 
square  is  emptied. 

Other  squares  require  more 
bombs  to  create  an  explosion.  A 
border  square  that  isn't  on  a  comer 
can  hold  a  maximum  of  two  bombs. 
When  you  place  a  third  bomb  in  a 
border  square,  its  explosion  sends 
three  bombs  into  the  squares  that 
adjoin  it.  Squares  in  the  center  of 
the  game  board  hold  the  most 
bombs  and  also  create  the  most 
devastating  explosions.  When  you 
place  a  fourth  bomb  in  a  central 
square,  it  sends  four  bombs  into 
squares  which  adjoin  that  position. 

When  an  explosion  sends 
bombs  into  adjacent  squares,  any 
bombs  in  that  square  change  color 
to  match  the  color  of  the  exploding 
bombs.  Should  one  of  the  adjoining 
squares  surpass  its  limit,  that 
.square,  too,  will  explode,  creating 
the  potential  for  even  more  explo- 
sions. This  process  continues  until 
no  more  explosions  are  possible. 

Thus,  the  situation  in  Chain 
Reaction  is  often  volatile.  The  lead 
frequently  seesaws  back  and  forth 
between  players,  as  each  creates  in- 


"Chaiu  Reaclioti"  for  the  Commodore 
64,  an  explosive  strategy  game. 


crea  singly  more  widespread  chain 
reactions.  Even  if  defeat  seems  al- 
most certain,  you  can  often  regain 
the  lead  with  clever  play.  When  a 
game  ends,  the  program  announces 
the  winner  and  permits  you  to  play 
a  new  game  or  quit. 

Like  other  games  of  strategy 
and  placement,  Chain  Reaction  re- 
wards the  player  who  can  think 
ahead.  At  first,  you  may  be  tempted 
to  start  making  explosions  as  quick- 
ly as  possible.  But  that's  not  always 
the  best  long-term  tactic.  By  spread- 
ing bombs  of  your  color  throughout 
the  board,  you  may  be  able  to  sur- 
vive chain  reactions  that  would 
otherwise  wipe  you  out. 

The  game  requires  at  least  one 
joystick  (plug  the  joystick  into  port 
2  if  you  are  using  one  joystick).  If 
you  choose  the  two-player  option, 
the  program  also  asks  whether  you 
wish  to  use  one  or  two  joysticks.  A 
movable  cursor  of  your  color  indi- 
cates your  current  position  on  the 
board.  To  place  a  bomb,  move  the 
cursor  to  the  desired  square  and 
press  the  joystick  button. 
See  program  listuig  on  page  95.     Q 


Ringside  Boxing 


Anthony  Bertram 

It's  the  Friday  tught  title  bout  in  this  exciting  two-player  ar- 
cade-style game  for  the  Commodore  64.  Two  joysticks  are 
required. 


The  bell  rings  just  in  time — you're 
on  your  last  legs.  But  after  a  short 
breather,  you're  ready  to  try  again 
for  the  heavyweight  title  in  "Ring- 
side Boxing." 

Ringside  Boxing  is  a  two-play- 
er game  that  requires  skill,  strategy, 
and  endurance.  The  match  lasts 
three  rounds — unless  there's  a 
knockout,  of  course. 

Jabs,  Hooks,  And  Blocks 

The  game  is  simple  to  play — there 
are  only  a  few  moves  to  learn — but 
with  two  evenly  matched  players 
it's  not  easy  for  either  to  win.  Move 
the  stick  diagonally  up  and  toward 
the  other  player  for  a  jab.  Move  it 
diagonally  down  and  toward  your 
opponent  for  a  hook.  To  block, 
push  the  joystick  straight  up  or 
down.  A  push  on  the  fire  button  ex- 
ecutes your  command.  To  move  left 
orright,  just  push  the  joystick  in  the 
corresponding  direction. 

Each  round  lasts  for  three  min- 
utes. The  clock  at  the  top  of  the 
screen  keeps  the  time.  When  the 
bell  sounds  at  the  end  of  the  round, 
the  two  fighters  automatically  re- 
turn to  their  corners.  During  the 
break,  the  boxers'  energy  goes  up 
slightly. 

Displayed  above  each  player  is 


an  energy  rating.  It's  important  to 
keep  an  eye  on  this  number.  If  your 
energy  sinks  to  25  percent  or  less, 
you'll  be  knocked  down  with  the 
next  punch,  If  it  sinks  to  15  percent 
or  less,  the  next  punch  landed  will 
be  a  knockout.  Energy  is  lost  two 
ways:  by  punching  and  by  getting 
punched.  Throwing  a  jab  costs  one 
point  of  energy;  getting  hit  costs 
two.  Throwing  a  hook  costs  two 
points;  getting  hit  with  one  costs 
four.  Energy  is  constantly  being  re- 
plenished. If  you  find  that  yours  is 
getting  too  low,  it's  a  good  idea  to 
block  and  back  away  until  the  end 
of  the  round. 

If  the  fight  goes  the  full  three 
rounds,  the  score  will  decide  the 
champion.  Five  points  are  given  for 
a  scoring  jab  and  ten  for  a  hook.  In 
case  of  a  tie,  the  match  goes  to  the 
defending  champion — the  boxer  on 
the  left  who  wears  the  purple 
trunks. 

In  the  event  of  a  knockdown, 
the  count  clock  begins  a  ten-second 
count.  If  the  player  can't  get  up  in 
time,  the  match  is  over. 

Typing  It  In 

Ringside  Boxing  is  written  entirely 
in  machine  language.  Type  it  in 
using  "MLX,"  the  machine  lan- 


You  can  employ  jabs,  books,  and  blocks 
in  this  two-player  action  game  for  the 
64. 


guage  entry  program  found  else- 
where in  this  issue.  When  you  run 
MLX,  you'll  be  asked  for  a  starting 
address  and  an  ending  address.  The 
correct  values  for  Ringside  Boxing 
are: 


stalling  address: 
Ending  address; 


0801 
lABO 


When  you're  finished  typing  in  all 
the  data,  be  sure  to  save  a  copy  to 
disk  or  tape  before  you  exit  from 
MLX.  Although  Ringside  Boxing  is 
written  entirely  in  machine  lan- 
guage, it  can  be  loaded  and  run  just 
like  a  BASIC  program.  To  load  the 
program,  type  L0AD"/iJenflHie",8 
(tape  users  should  substitute  a  1  for 
the  8  in  this  statement)  where  file- 
name is  the  name  you  used  to  save 
the  file.  Then  type  RUN  to  start  the 
game. 
See  program  listing  on  page  89.     (B 
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Euchre 


David  Shimoda 


Here's  a  finely  detailed  implementation  of  the  popular  card 
game  of  Euchre.  The  author  originally  wrote  the  program  in 
Pascal  on  an  IBM  PC.  He  then  translated  the  Pascal  program 
to  BASIC  for  the  Commodore  64.  A  joystick  is  optional. 


"Euchre"  is  a  four-handed  transla- 
tion of  the  popular  card  game  of  the 
same  name.  In  this  version,  you 
play  with  a  computer  partner 
against  two  computer  opponents, 
The  computer  will  deal  the  cards, 
keep  score,  and  play  your  partner's 
as  well  as  your  opponents'  hands. 
Even  better,  it  never  gets  bored  or 
commits  blunders  such  as  trumping 
your  ace.  Nearly  all  the  subtleties  of 
the  original  card  game  are  repro- 
duced faithfully,  including  lone 
hands,  short  suits,  and  more.  You 
can  even  choose  different  personal- 
ities for  your  partner  and  oppo- 
nents. Type  in  the  program  for  your 
computer  and  read  the  special-ap- 
plication notes  before  you  run  it. 

Computer  Personalities 

The  game  begins  by  asking  you  to 
choose  personalities  for  your  part- 
ner and  your  opponents.  Move  the 
reverse-video  cursor  to  your 
choices,  and  make  selections  by 
pressing  the  joystick  button  or  the 
Return  key. 

The  normal  personality  plays  a 
more  cautious  game,  while  the  ag- 
gressive personality  tends  to  take 
more  risks.  Both  opponents  must 
have  the  same  personality,  but  the 
partner's  personality  is  chosen  sep- 
arately. This  makes  the  game  much 
more  varied  than  if  the  computer 
players  always  stick  to  the  same, 
predictable  strategy.  One  of  the 
more  difficult  combinations  is  to 
choose  a  normal  partner  and  ag- 
gressive opponents.  Of  course,  your 
ou'n  style  of  play  will  have  an  im- 
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pact  on  which  combination  you 
prefer. 

Dealing  And  Trump 

This  Euchre  variation  uses  only  24 
cards  from  the  standard  52-card 
deck.  Each  suit  includes  only  the  9, 
10,  jack,  queen,  king,  and  ace,  (The 
ace  is  high.)  Before  actual  play  be- 
gins, the  first  dealer  must  be  select- 
ed. This  is  done  by  dealing  out 
cards  until  a  black  jack  is  thrown. 
The  first  person  who  receives  a 
black  jack  becomes  the  first  dealer. 
After  each  hand,  the  position  of 
dealer  passes  to  the  next  player  in 
clockwise  order. 

The  dealer  deals  out  5  cards  to 
each  player  and  then  places  1  card, 
face  up,  on  the  center  of  the  table. 
The  program  automatically  deals 
the  cards,  as  it  handles  many  other 
details  in  this  game.  As  a  conse- 
quence of  this  scheme,  only  21  of 
the  24  cards  are  in  play  for  any  giv- 
en hand.  (Three  cards  are  always 
left  unplayed.) 

The  next  step  is  to  choose 
trutiip;  the  trump  suit  is  the  most 
powerful  of  the  four  suits  for  the 
current  hand.  Trump  is  determined 
by  moving  around  the  table  in 
clockwise  order,  giving  each  player 
an  opportunity  to  choose  whether 
the  dealer  should  pick  up  the  center 
card.  Each  player  can  either  pass  or 
order  up — order  the  dealer  to  pick 
up  the  center  card.  When  the  dealer 
is  forced  to  take  the  center  card,  that 
card's  suit  becomes  trump,  and  the 
dealer  discards  one  card.  The  com- 
puter players,  of  course,  decide  for 


"Euchre"  for  the  Commodore  64 
(and  128  in  64  ntode)  reprodttces  the 
subtleties  of  the  familiar  card  game. 


themselves  whether  to  pass  or  or- 
der up  in  this  phase  of  the  game. 

If  no  player  chooses  to  order 
up  in  the  first  circuit  of  the  table, 
each  player  then  has  a  chance  to 
pick  any  other  suit  as  trump.  If  no 
piayer  chooses  trump  on  the  second 
circuit,  the  hand  is  thrown  out  com- 
pletely, and  another  is  dealt. 

Lone  Hands 

On  certain  occasions,  a  player  may 
choose  to  exclude  his  partner  from 
play,  a  tactic  which  is  known  as 
playing  lonehand.  The  player  who 
chooses  trump  must  choose  at  the 
same  time  whether  or  not  to  play 
lonehand.  If  a  player  orders  up  a 
card  into  his  partner's  hand,  the 
player  who  ordered  up  must  play 
lonehand.  (If  your  partner  is  the 
dealer  and  you  order  up,  you  must 
play  lonehand). 

For  instance,  you  might  want 
to  play  lonehand  in  a  case  where 
you  hold  most  of  the  high  cards  in  a 
suit,  and  your  partner  is  the  dealer, 
and  the  center  card  is  a  high  card  of 
your  strong  suit.  By  excluding  your 
partner  and  playing  lonehand,  you 
are  in  a  very  strong  position  to  take 
most  or  all  of  the  tricks. 


Tricks  And  Hands 

A  hand  consists  of  five  tricks.  A 
trick  consists  of  all  players  laying 
down  one  card.  The  player  to  the 
left  of  the  dealer  throws  down  the 
first  card  in  the  first  trick.  Subse- 
quent tricks  are  begun  by  the  win- 
ner of  the  previous  trick.  Suit  must 
be  followed  within  a  trick.  That  is, 
you  must  throw  a  card  of  the  suit 
which  was  led,  as  long  as  you  have 
any  card  of  that  suit. 

If  no  trump  cards  are  thrown  in 
a  trick,  the  trick  is  won  by  the  play- 
er who  laid  the  highest  card  of  the 
leading  suit.  If  trump  is  thrown, 
then  the  highest  trump  card  takes 
the  trick. 

For  all  suits  except  the  trump 
suit,  the  rank  of  the  cards  follows 
the  usual  order.  (The  9  is  low,  and 
the  ace  is  high.)  For  the  trump  suit, 
however,  the  jack  is  the  highest- 
ranking  card.  The  jack  of  the  same 
color,  but  different  suit,  is  consid- 
ered part  of  the  trump  suit — and  it 
is  the  second  highest  ranking  card. 
For  example,  if  the  trump  suit  is 
chosen  as  clubs,  it  follows  this 
ranking: 

jack  of  clubs 
jack  of  spades 
ace  of  clubs 
king  of  clubs 
queen  of  clubs 
10  of  clubs 
9  of  clubs 

A  hand  is  won  by  the  side 
which  wins  a  majority  of  tricks 
(three  or  more).  If  you  or  your  part- 
ner orders  up  a  card,  your  side  must 
take  the  majority  of  tricks  in  that 
hand  or  else  be  euchred,  meaning 
that  the  opposite  side  gets  two  extra 
points. 

Scoring 

A  game  of  Euchre  ends  when  one 
side  accumulates  ten  or  more 
points.  You  score  one  point  for  win- 
ning a  hand,  two  points  for  winning 
all  the  tricks  in  a  hand,  and  four 
points  for  winning  all  the  tricks 
lonehand. 

The  game  can  be  played  with 
either  a  joystick  or  the  keyboard.  To 
play  with  the  keyboard,  use  the 
cursor  keys  to  move  the  colored 
cursor,  and  press  RETURN  to  make 
a  selection. 
See  program  listing  on  page  108.   V 


Miami  Ice 


jeff  Kulczycki 


Here's  an  action  game  that  challenges  both  your  driving  skills 
and  powers  of  concentration.  Originally  written  for  the  Com- 
modore 128  with  a  disk  drive,  "Miami  Ice"  has  been  translated 
to  work  on  the  Commodore  64  as  well.  A  joystick  is  required. 


Ah,  Miami — sun  city  of  the  South. 
A  sparkling  metropolis  blessed 
with  a  tropical  climate,  palm  trees, 
beaches,  revived  art  deco  architec- 
ture, stylish  pastels,  and  classy  ele- 
gance. Almost  paradise. 

You  wake  up  on  another 
bright,  sunny  Miami  morning,  sip  a 
glass  of  freshly  squeezed  orange 
juice,  don  your  white  linen  suit  and 
sunglasses,  and  stroll  outside — 
then  get  the  shock  of  your  life. 

What's  going  on  here?  Over- 
night, a  freak  shift  in  the  jet  streams 
has  piped  a  blistering  cold  front 
down  from  Ohio.  The  weatherman 
had  predicted  a  brief  shower  last 
evening,  but  that's  not  what  hap- 
pened. Instead,  the  Florida  penin- 
sula was  blasted  by  the  worst  ice 
storm  in  400  years.  The  Everglades 
are  frozen  solid.  The  pink  flamin- 
gos are  blue.  And  the  streets  of  Mi- 
ami are  coated  with  a  shimmering 
layer  of  slippery  ice. 

As  you  start  your  car — the 
pampered  engine  coughs  and  sput- 
ters in  the  bitter  cold — you  wonder 
what  it's  going  to  be  like  driving  to 
work.  A  Miami  native,  you've  nev- 
er driven  on  ice  before.  In  fact, 
you've  never  even  seen  this  much 
ice  since  your  boss's  retirement  par- 
ty last  year,  when  the  caterers  made 
that  life-size  ice  sculpture  of  Ponce 
de  Leon,  You've  heard  the  horror 
stories  told  by  tourists  about  winter 
driving  conditions  up  North,  but 


never  thought  it  could  happen  to 
you — not  here,  in  Miami. 

The  minute  you  pull  out  onto 
the  street,  your  worst  fears  come 
true.  When  you  step  on  the  gas  ped- 
al, the  wheels  spin  and  the  car  ac- 
celerates sluggishly.  When  you  turn 
the  steering  wheel,  the  car  slides  all 
over  the  road.  And  when  you  step 
on  the  brakes — well,  forget  it. 

You  realize,  desperately,  that 
you've  got  to  make  it  to  the  parking 
garage  across  town  without  smash- 
ing your  car  to  smithereens.  It 
won't  be  easy.  But  at  least  there's 
one  thing  in  your  favor — you've 
got  the  whole  road  to  yourself.  Ev- 
eryone else,  it  seems,  had  the  good 
sense  to  stay  home. 

Out  Of  Control 

Despite  minor  variations,  the  two 
versions  of  "Miami  Ice"  work  basi- 
cally the  same.  Using  a  joystick, 
you  have  to  drive  your  car  over  ice- 
covered  streets  to  reach  the  safety 
of  a  garage.  The  joystick  button  is 
the  gas  pedal,  and  pushing  the  stick 
right  or  left  steers  the  car  in  the  cor- 
responding direction. 

But  here's  the  twist — the  car 
doesn't  respond  instantly  to  your 
commands.  It  tends  to  slide  in  the 
same  direction  even  after  you've 
steered  it  toward  another  direction. 
Then,  when  you  try  to  recover,  you 
often  overcorrect  and  start  sliding 
in  yet  another  new  direction.  It's  an 
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inertia!  nightmare— much  Hke  real 
winter  driving. 

When  you  hit  a  guardrail  or 
some  other  obstruction,  your  car 
cracks  up.  You  get  three  cars  per 
game.  If  you  reach  the  safety  of  the 
garage,  the  game  isn't  over.  Instead, 
you  advance  to  another  screen 
whose  streets  are  even  harder  to 
navigate. 

The  number  of  points  you 
score  depends  on  how  soon  you 
reach  the  garage.  As  an  incentive  to 
recklessness,  a  timer  starts  counting 
down  when  you  begin  each  new 
screen.  If  you  reach  the  garage,  you 
score  the  number  of  points  left  on 
the  timer.  If  the  timer  runs  out,  you 
can  still  reach  the  garage,  but  you 
won't  get  any  points.  However,  you 
will  advance  to  the  next  screen. 

Do  sure  to  rend  the  special  in- 
structions for  each  version  before 
typing  in  the  program  and  playing 
the  game. 

Commodore  128 

The  128  version  of  Miami  Ice  {Pro- 
gram 1)  is  written  completelv  in 
BASIC  using  BASIC  7.0's  excellent 
sprite  commands.  It  runs  as  fast  and 
as  smoothly  as  the  other  version, 
which  employs  machine  language. 

Plug  a  joystick  into  port  2  and 
leave  a  disk  in  the  drive.  After  each 
game,  if  your  score  ranks  you 
among  the  top  players,  the  program 
lets  you  enter  your  initials  and  then 
saves  the  high  score  data  to  disk. 

To  complete  each  level,  you 
merely  have  to  steer  your  car  into 
the  parking  garage  from  any  angle. 
There  are  a  total  of  four  screens, 
and  each  screen  displays  the  timer 
value  in  the  upper-left  corner  and 
your  current  score  immediately  to 
i'lic  right. 

The  128  version  of  Miami  Ice 
attempts  to  keep  a  high  score  file  on 
the  disk.  If  yoLi  want  the  program  to 
keep  track  of  high  scores,  be  sure  to 
copy  the  program  to  a  disk  that  is 
not  write  protected. 

Commodore  64 

The  64  version  of  Miami  Ice  is  writ- 
ten completely  in  machine  lan- 
guage and  must  be  entered  with  the 
Commodore  64  version  of  the 
"MLX"  machine  language  entry 
program  found  elsewhere  in  this  is- 
sue. Be  sure  you  read  and  under- 
stand the  instructions  for  using 


MLX  before  you  begin  entering  the 
data  from  Program  2.  When  you 
first  run  MLX,  you'll  be  asked  to 
supply  a  starting  address  and  an 
ending  address.  Here  are  the  ad- 
dresses you'll  need  for  Miami  Ice: 

Starling  address:  0801 
Ending  address:  1320 

Be  sure  to  save  at  least  one 
copy  before  you  exit  MLX.  Al- 
though the  64  version  of  Miami  Ice 
is  written  in  machine  language,  you 
start  the  program  as  if  it  were  writ- 
ten in  BASIC:  load  the  program, 
then  type  RUN  and  press  RETURN. 

Plug  a  joystick  into  port  L  To 
steer  your  car  safely  into  the  park- 
ing garage  and  advance  to  the  next 
screen,  you  have  to  enter  the  front 
of  the  garage  without  bumping  into 
the  black  lines  which  mark  its  three 
walls.  Indicators  on  the  screen 
show  the  timer  value  and  your  cur- 
rent score. 

There  are  seven  screens  in  all. 
The  game  normally  starts  at  screen 
1,  but  you  can  begin  a  new  game  at 
any  screen  you  want  by  moving  the 
joystick  up  or  down  to  change  the 


screen  number.  This  lets  you  skip 

the  easier  screens  as  you  become  a 

better  player,  or  peek  at  the  hardest 

screens  while  you're  still  a 

beginner. 

See  program  lisiings  on  page  103.  (ffi 


COMPUTEI's  Gazette  is  look- 
ing for  utilities,  games, 
applications,  educational  pro- 
grams, and  tutorial  articles.  If 
you've  created  a  program  that 
you  think  other  readers  might 
enjoy  or  find  useful,  send  it, 
on  tape  or  disk,  to: 

Submissions  Reviewer 
COMPUTE!  Publications 
P.O.  Box  5406 
Greensboro,  NC  27403 

Please  enclose  an  SASE  if  you 

wish  to  have  the  materials 

returned. 

Articles  are  reviewed  within 

four  weeks  of  submission. 


Cases: 

S7,96  each: 
3  for  S21 .95; 
6  for  S39.95 


Binders 

S9,95  each; 
3  for  S27.95; 
6  for  S52.95 


{Plao5«  add  S2.50  per  unit  tor  orders 
outside  the  U.S.) 

Send  In  your  prepaid  order  with  the 
attached  coupon 


Address . 
City_^ 


/ ^ 

Save  Your  Copies  of  COMPUTE! 


Protect  your  back  Issues  of  COMPUTE! 
in  durable  binders  or  library  cases. 
Each  binder  or  case  is  custom-made 
in  flag-blue  binding  with  embossed 
white  lettering.  Each  holds  a  year  of 
COMPUTE!.  Order  several  and  keep 
your  Issues  of  COMPUTE!  neatly  or- 
ganized for  quick  reference. 
(These  binders  make  great 
gifts,  too!) 


Mall  to;  Jesse  Jones  Industries,  P.O.  Box  5T20, 

Dept.  Code  COTE ,  Philadelphia,  PA  19141 

Please  send  me COMPUTEI    D  cases    D  binders. 

Enclosed  is  my  check  or  money  order  for  S .  (U.S.  funds 

only,) 
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Zip. 


ia    COMPUWs  GaMtte  Special  1988  Issue 


New  from  COMPUTE! 

V\far  game  simuiations  come  alive  with  two  new  books  from  COMPUTE!.  Whether  you're  dodging  torpedoes, 
bombing  targets,  or  planning  to  defend  against  an  enemy  invasion,  these  books  contain  the  hints  and  strategies 
you  need  for  a  successful  defense — and  offense.  There's  historical  information  on  actual  battles,  technical  infor- 
mation about  your  war  machines,  plus  many  tips  on  using  hidden  features  of  the  software. 


The  Electronic  Battlefield 

Bob  Guerra 

ISBN  0.87455-1 17-X 

$12.95 


^ 


[£'==' 7 


Tliis  comprehensive  reference  t)ook  on  computer  war  games— how  to  play  them  and  what  strategies  to  use— will  find  a  place  on  thousands  of 
computer  mvners'  desks.  Whether  acting  as  fierce  opponent  or  impartial  referee,  the  computer  is  perfect  for  war  game  play.  The  Electronic 
Battlefield  offers  generai  and  specific  hints,  tips,  and  play  techniques  for  all  the  most  popular  computer  games.  Fiiled  with  detailed  information 
on  such  games  as  Silent  Service,  Roadwar  2000,  Field  of  Fire,  Arctic  Fox,  and  Balance  of  Power,  this  t>ook  wili  appeal  to  players  of  ail  ages 
and  levels  of  experience.  Also  indud&d  in  this  Ixxjk  are  undocumented  features  o(  games  like  F-IS  Strike  Eagle,  command  reference  charts  for 
many  of  the  games,  and  even  tips  from  the  game  designers.  The  perfect  resource  for  any  electronic  war  gamer. 


Sub  Commander:  Tactics  and  Strategy  for  WWII  Submarine  Simulations 

Richard  G,  Sheffield 
ISBN  0-87455-127-7 
$12.95 


SUBMARINE 
COMMANDER 


•^vof  W"iif 


Run  silent,  run  deep.  This  hands-on  approach  to  popular  submarine  simulators  like  Silent  Service,  Gato,  Sub  Battle,  and  Up  Periscope  puts 
you  at  the  periscope  of  an  American  boat  in  VVorid  War  II,  This  coilection  of  undersea  warfare  tactics  and  strategies  wili  appeal  to  every  simu- 
lator captain.  Information  about  actual  Warld  Vter  II  submarines,  crews,  and  captains  provides  an  excellent  introduction.  Detailed  accounts  ot 
real  submarine  battles  illustrate  ways  you  can  pilot  your  own  electronic  sub.  The  heart  of  the  tx)ok  outlines  offensive  and  defensive  tactics  and 
maneuvers  that  bring  you  Into  torpedo  range  and  get  you  out  again  safely.  Learn  how  to  decimate  heavily  escorted  convoys,  hovy  to  shoot 
"down  the  throat"  at  a  charging  destroyer,  and  how  to  weather  determined-depth  charge  attacks.  You'll  be  able  to  immediately  apply  these 

techniques  and  tricks  to  your  own  submarine  software. 

Note;  The  books  do  not  include  any  of  the  software  products  mentioned. 


To  order  COMPUTEI  books,  call  toll  free  1-800-346-6767  (in  NY 
212-887-8525)  or  write  COMPUTE!  Books,  Customer  Service,  P.O. 
Box  5038,  F.D.R.  Station,  New  York.  NY  10150.  Customer  Service 
hours  are  10:00  a.m.  to  12:30  p.m.  and  1:30  p.m.  to  3:30  p.m.  EST 
Monday  through  Friday, 


Please  add  $2.00  per  book  shipping  and  handling.  NC  residents 
add  5  percent  sales  tax  and  NY  residents  add  8.25  percent  sales 
tax.  Please  allow  4-6  vreeks  for  delivery. 

COMPUTE!  books  are  available  outside  the  United  States  from 
subsidiaries  of  McGraw-Hill  International  Book  Company. 


COMPUTE!  Publicationsjnc® 

A  Copltal  Cities/ABC.  Inc.  Company  ,  ^^^ 


Omicron 


Sean  Wag[e 

Be  ready  and  alert.  A  host  of  deadly  enemies  can  make  quick 
work  of  you  in  this  frantically  paced,  multilevel  arcade-action 
game  for  the  64.  A  joystick  is  required. 


"Omicron"  is  a  game  which  creates 
a  universe  full  of  hostile  aliens.  To 
play  and  win,  you  must  survive  16 
waves  of  15  enemies  each.  This  is 
anything  but  an  easy  task — you'll 
be  facing  some  of  the  deadliest  and 
fastest  creatures  ever  to  visit  the 
screen  of  your  computer. 

Omicron  is  written  partly  in 
BASIC  and  partly  in  machine  lan- 
guage (ML).  First,  type  in  and  save 
Program  1 ,  the  BASIC  section  of  the 
program.  Since  the  BASIC  section 
attempts  to  load  the  ML  portion  of 
the  program,  don't  run  the  program 
until  you've  typed  in  and  saved 
Program  2. 

Typing  in  Program  2,  the  ML 
section  of  Omicron,  requires  use  of 
the  "MLX"  machine  language  entry 
program  found  elsewhere  in  this  is- 
sue. When  you  run  MLX,  you'll  be 
asked  for  the  starting  and  ending 
addresses  of  the  data  you'll  be  en- 
tering. For  Omicron,  respond  with 
the  following  values; 

Starting  Address:    33CE 
Ending  Address;     43BD 

When  you've  finished  typing 
in  the  data,  save  a  copy  to  disk 
before  leaving  MLX.  You  must  save 
the  data  from  Program  2  under  the 
name  OMICRON  ML,  since  that  is 
the  name  Program  1  looks  for.  If 
you're  using  tape  instead  of  disk, 
change  the  ,8,1  at  the  end  of  line  10 
in  Program  1  to  ,1,1.  Also,  be  sure 
to  save  the  data  for  Program  2  im- 
mediately following  Program  1  on 
the  tape. 

When  you're  ready  to  play 
Omicron,  make  sure  that  a  joystick 
is  first  plugged  into  port  2;  then 
load  and  run  the  BASIC  program. 
The  game  does  not  work  properly  un- 
less the  joystick  is  plugged  in  before 
you  run  the  program.  When  the  title 
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screen  appears,  choose  one  of  the 
four  skill  levels  by  pressing  a  func- 
tion key.  It's  recommended  that 
you  start  with  the  Rookie  level  (f7) 
so  you  can  get  used  to  game  play. 
The  skill  levels  are  as  follows; 

fl  Expert 

ra  Pro 

f5  Advanced 

{7  Rookie 

How  To  Play 

When  the  game  begins,  your  first 
ship  appears  in  the  upper  left  cor- 
ner of  the  screen.  You  and  your  en- 
emies can  move  freely,  but  you'll 
bounce  off  the  edges  of  the  screen 
and  off  the  status  board  in  the  cen- 
ter of  the  screen,  which  holds  the 
score,  current  level,  and  number  of 
ships  remaining. 

The  first  thing  to  master  is  the 
joystick  control  of  your  ship.  You 
can  fire  missiles  by  pressing  the  fire 
button.  To  move,  aim  the  joystick 
in  the  desired  direction.  Since  your 
ship  can  build  momentum,  your  di- 
rection does  not  change  immediate- 
ly. The  direction  in  which  the  ship 
points  does  not  change  unless  you 


Enemies 

Points 

Color 

Appears 
as 

argon  mine 

10 

cyan 

0 

ricochet  net 

20 

green 

== 

splinter  bomb 

50 

purple 

^■ 

fusion  bomb 

100 

yellow 

F 

indestructo 

rone 

yellow 

8 

mystery  mine 

10-100 

cyan 

? 

drifter 

200 

blue 

^ 

bomber 

200 

cyan 

^ 

destroyer 

400 

yellow 

f> 

battle  satellite 

600 

orange 

ti 

press  the  fire  button  while  moving 
the  joystick,  so  with  careful  plan- 
ning you  can  move  in  one  direction 
and  shoot  in  another. 

To  complete  a  level,  you  must 
eliminate  all  15  enemies.  If  you  lose 
a  ship,  you'll  start  over  on  the  same 
level,  A  bonus  of  1000  points  is 
awarded  if  you  make  it  through  a 
level  on  your  first  try.  Bonus  ships 
are  awarded  after  completing  levels 
4,  8,  and  12, 

Your  Enemies 

At  the  beginning  of  each  level,  your 
enemies  are  dark  blue  drifters.  They 
are  harmless  at  this  stage  in  their 
life  cycle.  As  time  passes,  some  of 
the  drifters  become  cyan  bombers. 
Bombers  leave  an  assortment  of 
deadly  objects  in  their  wake.  See 
the  table  for  a  description  of  all  the 
enemies  in  Omicron. 

If  they  are  not  destroyed, 
bombers  become  yellow  destroyers. 
Destroyers  move  twice  as  fast  as 
bombers,  and  they  shoot  yellow 
missiles  which  are  similiar  to  the 
ones  you  fire.  Watch  destroyers 
carefully — they  can  change  their 
direction  at  the  first  corner  they 
encounter. 

Near  the  end  of  the  level,  the 
remaining  enemies  can  become  or- 
ange battle  satellites,  which  fire  like 
destroyers,  leave  bombs  like  bomb- 
ers, and  bounce  around  the  screen 
in  a  furious  attack.  Needless  to  say, 
you  should  try  to  kill  these  off  as 
quickly  as  possible. 

If  you  wish  to  pause  the  game 
at  any  time,  press  SHIFT  or  SHIFT 
LOCK.  If  you  use  RUN/STO- 
P-RESTORE to  break  out  of  the 
game,  you  cannot  restart  play  sim- 
ply by  running  Program  1  again.  In- 
stead, you  must  turn  the  computer 
off  and  back  on,  then  reload  Pro- 
gram 1. 

See  program  listings  on  page  91.    v 


Solarpix 


Simon  Edgeworth 


Set  the  soiar  system  i?j  motion  with  this  series  of  asironomkal 
simulations  for  the  64.  You  can  also  trace  the  orbits  of  Halley's 
and  other  comets,  and  look  through  a  file  of  fascinating  facts 
about  our  solar  system. 


Whether  you're  new  to  stargazing 
or  a  veteran  astronomer,  this  easy- 
to-use  demonstration  of  the  planets 
and  comets  is  fun  to  watch.  The 
program  is  divided  into  four  parts: 
Sun  and  Planets,  which  simulates 
the  movement  of  the  planets 
around  the  sun;  Sun,  Earth  and 
Moon,  which  shows  how  the 
phases  of  the  moon  are  created  by 
its  orbit;  Comets,  which  shows  the 
path  of  Halley's  and  other  comets; 
and  Facts,  which  lists  the  key  prop- 
erties of  each  planet  and  the  sun 
and  moon. 

Type  in  "Solarpix"  using  the 
"Automatic  Proofreader,"  pub- 
lished regularly  in  the  CAZt-TTE, 
then  type  RUN.  In  the  first  part. 
Sun  and  Planets,  you  can  watch  the 
orbits  of  up  to  five  planets  at  once. 
The  sun  is  stationary  at  the  center 
of  the  screen.  Select  the  innermost 
and  outermost  planets  you'd  like  to 
see,  and  a  year  from  1  to  2000. 
Press  G  to  set  them  in  motion,  +  to 
increase  the  speed,  —  to  reduce  the 
speed,  and  S  to  stop.  Elapsed  time 
is  displayed  in  years  on  the  right 
side  of  the  screen. 

Lunar  Lore 

The  second  menu  selection,  "Sun, 
Earth,  and  Moon,"  shows  how  the 
moon's  orbit  around  the  earth 
causes  its  different  phases.  The 
earth  is  shown  orbiting  the  sun, 
while  the  moon  orbits  the  earth. 
The  distance  between  the  earth  and 
the  moon  has  been  magnified  by  30 
to  make  it  visible.  In  the  top  right 
comer  of  the  screen,  the  current  ap- 
pearance of  the  moon  is  illustrated. 
The  elapsed  time  in  days  is  dis- 
played to  the  right.  You  can  control 


the  display  using  the  G,  S,  +,  and 
~  keys  as  in  the  first  part. 

The  moon  takes  27.3  days  to 
orbit  the  earth.  However,  it's  29.6 
days  from  one  full  moon  to  the 
next.  If  you  watch  the  display  care- 
fully, you  can  see  why  this  is— the 
moon  actually  has  to  complete 
slightly  more  than  one  orbit  around 
the  earth  to  reach  the  same  position 
relative  to  the  sun. 

Because  the  moon's  orbit  is 
slightly  tilted,  the  moon,  earth,  and 
sun  are  normally  never  exactly 
aligned.  On  the  rare  occasions 
when  they  are,  an  eclipse  occurs.  If 
this  happens  at  full  moon,  we  see  a 
lunar  eclipse.  If  it  happens  at  new 
moon,  we  see  a  solar  eclipse. 

Comets 

The  third  menu  selection  shows 
what  the  orbits  of  comets  look  like. 
Planets  and  comets  move  in  ellipti- 
cal orbits,  which  look  like  flattened 
circles.  The  extent  to  which  the  cir- 
cle is  flattened  is  called  its  eccentric- 
ity, ranging  from  zero  (circular)  up 
to  almost  one.  The  eccentricities  of 
the  major  planets  range  from  Venus 
(almost  zero)  to  Pluto  {.25).  A  com- 
et with  an  eccentricity  of  one  or 
more  would  leave  the  solar  system. 

Enter  a  value  between  zero  and 
,96  and  press  RETURN,  Here  are 
the  names  and  eccentricities  of 
some  comets:  Faye  (.56),  Finlay 
(.70),  Enke  (.85).  To  see  a  simula- 
tion of  the  orbit  of  Halley's  Comet, 
enter  .96R.  The  R  stands  for 
reverse,  because  Halley's  Comet  or- 
bits in  the  opposite  direction  of  the 
planets. 

Notice  that  the  speed  of  a  plan- 
et or  comet  varies  as  it  moves 


around  its  orbit.  It  moves  slowest 
when  it's  furthest  from  the  sun,  and 
fastest  when  it's  closest  to  the  sun. 

Facts  And  Figures 

The  last  part  of  Solarpix  provides 
some  interesting  facts  about  the  so- 
lar system.  From  the  menu,  you  can 
select  a  planet,  the  sun,  or  the 
moon,  and  view  all  the  facts  about 
it;  or  you  can  select  a  characteristic, 
such  as  mass  or  temperature,  and 
compare  the  values  for  all  the  nine 
planets  plus  the  sun  and  the  moon. 
Because  the  distances  from  the 
planets  to  the  sun  are  so  hard  to  vi- 
sualize, I've  added  "Drive  Time," 
which  shows  the  amount  of  time  it 
would  take  to  drive  from  a  given 
planet  to  the  sun  while  traveling  at 
55  miles  per  hour.  For  the  moon, 
the  drive  time  is  given  for  travel 
from  the  moon  to  the  earth. 

Masses  are  given  in  units 
equivalent  to  the  weight  of  the 
earth  because  the  values  in  tons  are 
too  large  to  comprehend  (the  earth 
weighs  about  6,588,000,000,000, 
000,000,000  tons).  Densities  are 
compared  with  water  (notice  that 
Saturn  is  less  dense  than  water). 
Temperatures  are  average  surface 
temperatures.  Moons  are  listed  in 
order  of  distance  from  their  planet, 
starting  with  the  closest.  Moons 
listed  as  "X"  have  not  yet  been 
named. 

For  the  amateur  astronomer, 
here  are  a  few  technical  details.  In 
Solarpix,  all  orbits  are  assumed  to 
be  on  the  same  plane.  For  Pluto, 
however,  true  elliptical  motion  is 
simulated.  The  planet  screen  is  ori- 
ented with  Pluto's  aphelion  on  the 
right,  and  the  positions  of  the  plan- 
ets are  calculated  from  their  actual 
positions  on  October  27,  1984.  All 
of  the  graphics  screens  show  views 
from  ecliptic  north. 
See  program  listing  ou  page  78.     o 
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Math  Dungeon 


Richard  Lowe 

Can  you  escape  the  dungeon  by  finding  the  key  which  opens 
the  door?  First,  you  must  get  by  the  math  monsters  who  block 
your  way,  asking  questions  about  addition,  subtraction,  multi- 
plication, ajid  division. 


At  the  beginning  of  "Math  Dun- 
geon," you  are  asked  for  a  difficulty 
level,  Levels  one  and  two  deal  only 
with  addition  and  subtraction  of 
positive  numbers.  Level  three  adds 
multiplication  and  division  {still 
only  positive  numbers).  Four  brings 
in  negative  numbers,  covering  mul- 
tiplication and  division.  And  five 
asks  all  four  types  of  questions 
about  positive  or  negative  numbers. 
You  begin  at  a  gate  outside  an 


old  mansion.  First,  find  a  way 
through  the  gate  and  get  to  the 
front  door,  which  is  closed.  If  you 
can  get  the  door  open,  you  can  en- 
ter the  mansion  and  you'll  be 
whisked  to  the  underground  dun- 
geon. Your  adventure  begins. 

As  you  wander  through  the 
dungeon,  you  may  find  different 
colored  keys  and  doors.  The  keys 
are  color  coded  according  to  the 
door  they  open.  One  of  the  doors 
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leads  out  of  the  dungeon  (to  end  the 
game). 

In  your  search  for  the  exit,  you 
may  also  find  a  map.  it  can  be  very 
helpful.  Once  you  get  it,  type  MAP 
to  see  where  you  are.  The  map  uses 
R  to  represent  rooms,  H  for  hall- 
ways, M  for  monsters,  and  *  for 
your  location. 

The  Command  Vocabulary 

This  game  recognizes  a  limited 
number  of  words.  The  verbs  are: 


GET 

Pick  up  an  object 

INV 

Inventory 

LOOK 

Look  around 

OPEN 

Open  a  door 

CLOSE 

Close  a  door 

ON 

Turn  on  a  light 

OFF 

Turn  off  a  light 

MAP 

Look  at  the  map 

N 

Go  North 

S 

Go  South 

E 

Go  East 

W 

Go  West 

possible 

;  nouns  include: 

GATE 

LIGHT 

DOOR 

M[LK0OX 

NOTE 

GOLD 

KEY 

MAP 

And  if  you  find  yourself  in  a 
jam,  typing  ALGEBRA  may  get  you 
out.  Certain  commands  need  only  a 
single  word  or  letter,  like  LOOK  or 
N.  Others  combine  a  noun  with  a 
verb,  like  GET  GOLD.  The  verb 
usually  goes  first. 

Information  about  the  dun- 
geon is  kept  in  an  array  FL(10,10), 
which  is  filled  with  rooms,  hall- 
ways, and  monsters  in  lines 
1620-1850.  Lines  1620-1640  ran- 
domly place  monsters,  according  to 
the  level  chosen  at  the  beginning. 
Lines  1650-1680  randomly  place 
hallways  and  rooms  throughout  the 
dungeon.  Lines  1690-1710  make 
sure  a  path  is  available  to  each 
monster.  Lines  1720-1770  random- 
ly place  colored  keys  and  doors 
around  the  array. 
See  program  listing  on  page  81.      v 


Vocab  Builder 


William  !.  Treanor 


This  program  not  only  helps  Uicrease  vocabulary,  but  also  as- 
sists students  who  must  memorize  words  for  spelling,  biology, 
history,  or  other  classes.  Up  to  100  words  and  definitions  can 
be  entered  and  saved  to  tape  or  disk. 


My  son's  sixth  grade  teacher  regu- 
larly distributes  lists  of  words  and 
their  definitions  to  the  students. 
The  children  then  take  a  spelling 
test  at  the  end  of  the  week. 

"Vocab  Builder"  was  originally 
written  to  help  my  son  prepare  for 
these  tests.  But  it  was  soon  obvious 
that  it  could  be  used  for  other  sub- 
jects^— a  history  drill,  say,  with  facts 
and  dates  in  place  of  vocabulary 
words.  Vocab  Builder  has  even 
been  used  by  college  students 
learning  medical  terminology.  The 
program  flow  is  fairly  straightfor- 
ward; modifications  (using  a  print- 
er, for  example)  should  be  easy  to 
make. 

Four  Menu  Options 

Enter  thi?  program,  save  it,  and  type 
RUN,  First,  you  are  asked  to  input 
your  name,  which  is  printed  at  the 
top  of  the  screen. 

Next,  you'll  see  the  main 
menu,  which  gives  you  four  op- 
tions: Enter  new  words.  Study, 
Test,  or  End. 

If  you  choose  to  enter  new 
words,  you  are  asked  how  many 
words  will  be  in  this  particular  file. 
You  must  then  type  in  the  words 
and  their  definitions.  If  you  make  a 
mistake,  don't  worry,  you'll  have  a 


chance  to  correct  it  later.  When  all 
words  and  definitions  are  entered, 
they  are  printed  on  the  screen.  You 
can  fix  mistakes  at  this  point. 

The  program  then  saves  the 
word  list  as  a  sequential  file  on  tape 
or  disk.  You  are  prompted  for  the 
date,  which  becomes  part  of  the 
filename.  (Note:  Since  the  date  is 
part  of  the  filename,  and  the  file- 
name must  be  unique,  be  sure  to 
use  a  different  filename  if  you  cre- 
ate a  second  quiz  on  the  same  day. 
For  example,  if  you  create  a  quiz 
named  11-21-84,  use  11-21-84.1.) 
The  program  then  returns  to  the 
main  menu. 

The  second  option  from  the 
menu  allows  you  to  study  words 
which  were  previously  entered. 
First,  you  enter  the  date  of  the  test 
and  the  file  is  loaded  from  tape  or 
disk  (depending  on  your  response, 
T  or  D,  to  the  prompt). 

The  list  is  put  into  random  or- 
der. A  definition  appears  on  the 
screen  and  the  student  is  given 
three  chances  to  enter  the  corre- 
sponding word.  Spelling  is  impor- 
tant. If  the  word  is  correct,  the 
student  is  congratulated.  If  the  first 
two  letters  are  correct  but  the  word 
is  misspelled,  the  message  YOU'RE 
CLOSE  appears. 


When  all  words  have  been 
covered,  the  score  (number  of  an- 
swers right  and  wrong)  is  dis- 
played. Any  word  which  was 
answered  wrong  on  the  first  at- 
tempt is  counted  as  incorrect.  The 
student  is  then  given  a  list  of  which 
words  were  incorrect  and  need  fur- 
ther study. 

The  test  option  is  similar  to  the 
studying  option,  but  the  student 
has  only  one  chance  to  supply  the 
correct  word. 

The  final  option.  End,  allows 
you  to  exit  the  program. 

A  Tireless  Teacher 

For  young  children,  Vocab  Builder 
may  help  develop  a  sense  of  re- 
sponsibility. They  can  choose  when 
to  study  and  how  long.  They  don't 
have  to  wait  until  a  parent  or  sibling 
has  some  free  time  to  help  them 
with  school  work. 

The  child  is  addressed  by 
name,  so  it  becomes  his  or  her  com- 
puter program.  A  computer  doesn't 
tire  of  helping  the  child,  or  lose  its 
patience.  And  it  does  not  chastise 
the  child  for  answering  incorrectly. 
Words  are  randomized  automati- 
cally (so  the  student  actually  has  to 
learn  the  words  rather  than  memo- 
rize them  in  order). 

Memorizing  can  be  a  chore. 
Vocab  Builder  can  help  relieve 
some  of  the  tedium. 
See  program  listing  on  page  121.    a 


COtAPUTEVs  Gazetm  Special  1988  Issue        23 


Hi-Res  PRINT 

For  Commodore  64 


Scott  M.  Petty 

This  short  machine  language  utiiity  allozvs  you  to  quickly  print 
characters  oii  the  Commodore  64's  high -resolution  graphics 
screen. 


How  many  times  have  you  thought 
of  an  idea  for  a  game,  replete  with 
high-resolution  screens,  colorful 
animated  sprites,  and  onscreen 
scoring  and  timing?  Many  different 
utilities  are  available  for  drawing 
shapes  on  a  hi-res  screen,  but  most 
of  them  omit  one  important  item: 
printing  text.  Of  course,  you  can  al- 
ways copy  character  patterns  onto 

the  hi-res  screen  in  BASIC,  but  the 
process  is  painfully  slow.  "Hi -Res 
PRINT"  is  a  short  machine  lan- 
guage routine  which  allows  you  to 
print  letters  and  numbers  anywhere 
on  a  hi-res  screen,  using  different 
colors  and  reverse  mode  if  desired. 
Because  it's  done  in  machine  lan- 
guage, the  process  is  as  fast  as  using 
normal  PRINT  statements  in 
BASIC.  And  you  can  use  the  rou- 
tine from  BASIC,  without  having 
any  machine  language  knowledge. 

Typing  The  Programs 

You'll  need  to  type  in  four  short 
programs.  Program  1  is  the  ma- 
chine language  (ML)  program  itself. 
Program  2  creates  an  abbreviated 
character  set  for  use  by  the  ML  pro- 
gram. Program  3  demonstrates  hi- 
res character  printing,  and  Program 
4  is  used  to  relocate  the  ML  to  a  dif- 
ferent memory  area. 

Begin  by  typing  in  Program  1 
with  the  "MLX"  machine  language 
entry  program  found  elsewhere  in 
this  issue.  Read  the  MLX  instruc- 
tions carefully  and  be  sure  to  save  a 
copy  of  the  program  when  you  are 
done  typing.  Here  are  the  starting 
and  ending  addresses  for  Program  1 : 
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Starling  address:     COOO 
Ending  address:       C20F 

It  is  important  that  you  save 
this  program  with  the  filename 
HRPRINT  so  that  the  other  pro- 
grams can  load  it  by  that  name. 

The  ML  program  wHl  need  a 
set  of  character  patterns  to  use  for 
printing  on  the  hi-res  screen.  Pro- 
gram 2  (CHARSETMAKER)  is  a 
BASIC  program  that  makes  a  disk 
file  containing  data  for  the  first  64 
characters  of  the  Commodore  64 
character  set.  Type  in  Program  2 
and  save  a  copy. 

The  character  file  which  you 
create  with  Program  2  will  load  at 
any  address  that  you  specify.  For 
now,  supply  the  address  indicated 
below  so  that  you  can  use  this  char- 
acter set  with  the  demonstration 
program  (Program  3).  Run  Program 
2.  When  it  asks  for  the  address  of 
the  character  set,  enter  the  number 
16384  and  press  RETURN.  The 
program  then  asks  you  to  name  the 
file  in  which  this  character  set  will 
be  stored.  Type  in  HRCHAR5ET 
and  press  RETURN.  Again,  it  is  im- 
portant to  use  this  particular  file- 
name so  that  Program  3  can  load 
the  file  from  disk.  After  you  answer 
the  second  prompt,  the  program 
writes  the  file  to  disk  and  ends. 

Type  in  and  save  Programs  3 
and  4,  then  load  and  run  Program  3 
(DEMO)  for  a  demonstration.  The 
program  begins  by  loading  the  files 
HRPRINT  and  HRCHARSET  into 
the  correct  memory  locations  and  by 
clearing  the  hi-res  saeen.  Then  it 
draws  a  sine  wave  to  prove  that  you 
are  indeed  looking  at  a  hi-res  screen. 


Finally,  the  program  prints  several 
text  messages  in  different  colors.  In 
the  left  portion  of  the  screen  are  two 
example  score  and  timer  displays 
which  continue  to  update  as  long  as 
the  program  runs.  To  end  the  dem- 
onstration and  return  to  the  normal 
screen,  press  any  key. 

Loading  From  A  Program 

Let's  learn  how  to  use  the  machine 
language  routine  by  observing  how 
Program  3  handles  it.  Several  pre- 
paratory steps  are  required.  First, 
the  BASIC  program  must  load  both 
the  ML  code  and  the  special  charac- 
ter set  which  it  uses.  Program  3 
does  this  in  lines  110-120: 

SX  ]000  GRAPHIC  1,1:KORJ=150  V 
O  20  STEP  -30: CIRCLE  1 
,  15B,  500,J,75:Nt:XT 

CH  1010  DRAW  1,158,25  TO  158,1 
75:DRAV*  1,70,40  TO  246 
,40: DRAW  1,2  3,68  TO  29 
2,68 

QB    1020    DRAW    1,8,100    TO    300,10 
0:DRAW    1, 2  3, 132   TO    2  92 
, I  32: DRAW    1, 70, 160    TO 
iSPACEj246,160 

SJ    1030    CHAR    1,17, 2, "EARTH" 

These  lines  should  appear  at 
the  very  beginning  of  the  program, 
before  any  other  BASIC  statements 
(except  RE  Marks,  which  the  com- 
puter ignores).  If  you  are  not  famil- 
iar  with  how  LOAD  works  in 
program  mode,  these  lines  may 
look  somewhat  baffling.  Here  is  an 
explanation  of  how  they  work. 

When  it  executes  a  LOAD 
statement  under  program  control, 
BASIC  performs  the  load  and  then 
reruns  the  program  from  the  begin- 
ning. However,  BASIC  remembers 
the  values  of  variables  that  were 
previously  used  in  the  program. 
Thus,  the  first  time  you  run  Pro- 
gram 3,  the  variable  A  is  set  to  1, 
and  the  computer  loads  the  ma- 


chine  language  file  HRPRINT. 
After  the  load  is  complete,  the  com- 
puter runs  the  program  a  second 
time,  beginning  again  with  the  first 
line  of  the  program.  But  now  A  is 
equal  to  1,  so  the  IF  test  in  line  110 
fails,  and  the  computer  proceeds  to 
line  120.  The  variable  A  is  set  to  2, 
the  computer  loads  the  file  CHAR- 
SET,  and  the  program  is  run  from 
the  beginning  for  a  third  time.  This 
time  both  IF  tests  fail,  and  the  com- 
puter goes  on  to  execute  the  re- 
mainder of  the  program. 

Locating  The  Hi-Res  Screen 

The  next  step  is  to  decide  where  to 
put  the  hi-res  screen.  High-resolu- 
tion screens  require  two  separate 
blocks  of  memory.  The  largest 
block,  called  the  bitmap,  is  8000 
bytes  in  size;  it  contains  infor- 
mation about  which  pixels  (screen 
dots)  are  turned  on  and  which  are 
off.  The  second  block  is  1000  bytes 
in  size;  it  contains  color  information 
for  each  of  the  8  X  8-pixei  blocks 
in  the  bitmap.  The  computer  com- 
bines pixel  in  forma  don  from  the 
first  block  and  color  information 
from  the  second  block  to  produce 
the  final  picture  which  appears  on 
the  hi-res  screen. 

The  64's  video  chip  can  refer  to 
addresses  only  within  a  16K 
(16,384-byte)  memory  zone.  As  a 
result,  you  must  always  locate  the 
8000-byte  bitmap  and  its  1000-byte 
color-memory  block  within  the 
same  16K  area.  The  Commodore 
64's  memory  can  be  divided  into 
four  such  blocks,  which  are  known 
as  video  banks: 

Bank  0:  0-163B3  ($0000-$3FFF) 

Bank  1:  16384-32767  (S4000-$7FFF) 

Bank  2:  32768-49151  ($8000-SBFFFJ 

Bank  3:  491S2-65535  ($COOO-SFFFF) 

Program  3  locates  the  bitmap 
and  color  memory  in  video  bank  0. 
The  bitmap  will  start  at  location 
8192  and  color  memory  will  go  at 
1024,  the  same  area  used  as  screen 
memory  in  text  mode.  Line  200  tells 
the  computer  the  bitmap's  location, 
and  line  220  puts  the  machine  in  hi- 
res bitmap  mode. 

The  following  shows  where 
Program  3  puts  the  bitmap,  color 
memory,  and  character  set; 
Location  Usage 

1024-2023         color  memory 
8192-16.383       bitmap 
163S4-16S95     character  set 

One  disadvantage  of  using  vid- 


eo bank  0  is  that  it  locates  the  bit- 
map in  the  middle  of  the  RAM 
(Random  Access  Memory)  area 
normally  used  to  store  BASIC  pro- 
grams. BASIC  memory  ordinarily 
resides  in  locations  2049-40959, 
giving  you  38,911  bytes  to  hold  a 
BASIC  program  and  its  variables.  In 
this  case,  however,  it  is  restricted  to 
locations  2049-8191,  leaving  only 
6141  bytes  of  BASIC  program 
space.  What's  more,  the  program 
takes  no  steps  to  protect  the  bitmap; 
if  you  expand  the  program,  it  will 
eventually  encroach  on  the  bitmap 


If  you  think  it's  difficult  to  print  charac- 
ters on  the  Commodore  64's  hi-rcs 
screen,  look  again.  "Hi-Res  PRINT"  is  a 
convenient  maciunc  language  utility 
which  prints  lelters  and  numbers  at  any 
location  on  a  lii-rei  screen.  No  machine 
language  knowledge  is  necessary  to  use 
this  program. 

area,  corrupting  its  contents.  For 
longer  BASIC  programs,  you  may 
need  to  use  a  different  video 
bank — a  subject  that  is  beyond  the 
scope  of  this  article.  In  Prograimiiing 
the  Commodore  64,  available  from 
COMPUTE!  Books,  you  can  find 
detailed  explanations  of  video  bank 
usage  and  methods  for  creating  a 
protected  memory  zone. 

Setting  Up 

Once  you  have  loaded  the  machine 
language  program  and  its  character 
set,  located  the  hi-res  screen,  and 
enabled  hi-res  mode,  you're  nearly 
ready  to  print  characters  on  the 
screen.  Before  you  can  use  the  ML 
program,  however,  you  must  tell  it 
what  sort  of  printing  to  perform,  as 
well  as  the  locadon  of  the  bitmap, 
color  memory,  and  character  set. 
Line  150  sets  two  important  vari- 
ables— IN  and  PR — which  are  used 
in  later  SYS  statements.  The  vari- 
able IN  stands  for  initialize.  This 
variable  is  used  in  a  SYS  call  which 
passes  the  initializing  information 
to  the  ML  program.  The  first  initial- 


izing statement  occurs  in  line  240: 
240  SYS  IN,  2,  8192,  16384,  1024 

The  first  value  in  every  SYS 
statement  is  the  address  of  the  ML 
code  which  you  wish  to  execute. 
Since  we  set  IN  to  49152  {line  150), 
this  SYS  statement  transfers  control 
to  the  ML  instructions  beginning  at 
location  49152.  If  the  ML  code 
loads  at  locadon  49152,  you  should 
always  set  IN  to  49152.  If  you  relo- 
cate the  code  to  a  different  memory 
area  {see  below),  IN  should  be  set 
to  the  new  starting  address  of  the 
ML  code. 

This  particular  ML  program  is 
designed  to  retrieve  additional 
information  which  appears  after 
the  SYS  address.  The  last  three  val- 
ues in  line  150  should  look  familiar: 
Here  the  numbers  8192, 16384,  and 
1024  indicate  the  locadon  of  the  bit- 
map, character  set,  and  color  mem- 
ory,  respectively.  When  you 
execute  this  SYS  statement,  the  ML 
program  stores  this  information  for 
future  reference. 

The  second  value  in  the  SYS 
statement  (2,  in  this  case)  is  a  special 
flag  for  the  ML  program.  This  value 
must  be  either  1  or  2,  depending  on 
what  sort  of  printing  you  desire  and 
what  sort  of  hi-res  screen  is  in  use. 
For  normal  hi-res  (not  multicolor) 
screens  and  normal  printing,  this 
value  should  be  1.  If  you  are  using  a 
multicolor  hi-res  screen,  or  if  you 
wish  to  have  reverse  printing  on  a 
normal  screen,  set  this  value  to  2, 

Of  course,  any  of  the  values  in 
the  SYS  statement  can  be  replaced 
by  numeric  variables.  For  instance, 
BASE  is  set  to  8192,  so  you  could 
replace  the  8192  in  line  240  with 
BASE. 

Once  you've  initialized  the 
program  for  use,  the  next  step  is 
usually  to  clear  the  hi-res  screen.  If 
you  don't  do  this,  it  will  contain 
random  shapes.  Clearing  the  bit- 
map in  BASIC  is  a  time-consuming 
chore,  since  you  must  POKE  zeros 
into  8000  consecutive  memory  lo- 
cations. Line  270  does  the  job  in 
less  than  a  second  by  using  the  ML 
program  to  print  reverse  spaces  on 
the  entire  hi-res  screen. 

Clearing  the  screen  is  a  very 
simple  matter.  Line  260  creates  a 
string,  F$,  which  consists  of  40 
spaces.  In  line  270,  the  program 
prints  F$  24  times,  once  for  each 
character  row  on  the  screen.  Here  is 
the  SYS  statement  that  prints  the 
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string: 

SYS  PR,  15,  0,  J,  F$ 

Once  again,  the  first  parameter 
after  SYS  is  an  address  within  the 
ML  program.  The  variable  PR 
stands  for  PRINT;  it  is  set  to  49207 
in  line  150.  The  second  value  sets 
the  printing  color  (15,  in  this  case, 
for  light  gray).  The  third  and  fourth 
parameters  set  the  character  col- 
umn and  character  row,  respective- 
ly, where  the  first  character  of  the 
string  is  printed.  In  this  example, 
we  always  start  printing  at  column 
0,  the  leftmost  column  of  the 
screen.  The  fourth  value  is  set  by 
the  variable  J,  which  the  FOR- 
NEXT  loop  in  line  270  causes  to  cy- 
cle from  0  to  24. 

The  last  parameter  tells  the  ML 
program  what  to  print.  On  this  oc- 
casion it  is  a  string  variable  (F$). 
You  can  also  use  any  string  or  nu- 
meric expression  that  requires  no 
more  than  80  characters  to  print. 
Here  are  just  a  few  examples: 

SYS  I>R,  15,  0,  0,  "HELLO" 

SYS  PR,  15,  0,  0,  LEFT${A$(I2),1) 

SYS  PR,  15,  0,  0,  SIN(T1)*TII12 

The  rest  of  the  SYS  statements 


in  Program  2  print  messages  on  the 
screen,  reinitializing  the  ML  pro- 
gram as  needed  for  various  kinds  of 
printing.  By  examining  and  experi- 
menting with  these  lines,  you  will 
see  how  to  use  the  ML  routine  in 
several  different  ways. 

Relocating  The  ML  Program 

Program  4  is  not  immediately  nec- 
essary, hut  you  may  want  to  type  it 
in  for  future  use.  Like  many  other 
machine  language  programs  on  the 
Commodore  64,  Hi-Res  PRINT 
normally  occupies  the  protected 
memory  area  beginning  at  location 
49152.  It  may  happen  that  you 
wish  to  use  this  program  with  some 
other  ML  utility  which  also  loads  at 
that  address.  If  so,  you  can  run  Pro- 
gram 4  to  create  a  copy  of  the  ML 
program  which  loads  and  runs  at  a 
different  memory  address. 

Before  using  Program  4,  you 
must  decide  on  a  new  location  for 
the  ML  program.  This  can  be  any 
free  RAM  area  at  least  524  bytes  in 
size  which  is  not  otherwise  in  use  at 
the  time.  When  you  run  Program  4, 
it  loads  the  HRPRINT  file  at  its  nor- 
mal memory  location,  and  then 


asks  you  to  enter  the  new  memory 
address  and  the  filename  to  use  for 
the  new  file.  Of  course,  you  should 
use  some  filename  other  than 
HRPRINT  for  the  new  file.  (When 
loading  the  new  file  under  program 
control,  you  would  then  substitute 
the  new  filename  for  HRPRINT.) 
The  program  adjusts  all  of  the  ML 
program's  internal  addresses  for 
the  new  location  and  writes  the 
new  file  to  disk. 

As  a  convenience.  Program  4 
also  prints  the  new  addresses  to  use 
for  IN  and  PR  in  the  SYS  state- 
ments for  this  program  (see  above). 
Make  a  note  of  these  addresses  and 
be  sure  to  set  IN  and  PR  accordingly 
when  using  the  relocated  version. 

In  addition  to  the  memory  oc- 
cupied by  the  ML  code  itself,  this 
program  stores  information  in  the 
following  memory  locations: 

679-767  ($02A7-$O2FF) 
820-827  (S0334-$033B) 
1020-1023   (S03FC-$O3FF) 

You  should  take  care  not  to 
POKE  into  these  locations  or  other- 
wise disturb  their  contents  when 
using  this  program. 
See  program  listings  on  page  125.  O 


Time-ls-Money 
Disk  Offer! 

Spend  a  little  money, 
save  a  lot  of  time! 


Instead  of  investing  tedious  hours  typing  in  programs, 
take  advantage  of  our  special  disk  offer! 
All  33  programs  in  tliis  issue  are  available  on 
disk  for  a  special  low  price  of  $6.95, 
plus  $2  postage  and  handling. 

Only  checks  and  money  orders  wilt  be  accepted 
(no  credit  cards).  Make  checks  (S6.95 
plus  $2)  payable  to 
COMPUTEI's  Gazette. 


Send  to: 

COMPLrrEls  Gazette 
P.O.  Box  684 
Holmes,  Rft  19043 


Text  Framer 


Paul  Sawyer 


Frame  text  or  character  graphics  with  this  utility  that  lets  you 
easily  create  any  size  and  color  of  frame  and  put  it  anywhere 
on  the  screen. 


"Text  Framer"  is  a  small  machine 
language  (ML)  program  that  can 
greatly  improve  the  appearance  of 
your  BASIC  programs.  It  lets  you 
draw  frames  on  the  screen  at  ML 
speed — frames  of  any  size,  any 
color,  and  made  up  of  any  charac- 
ters that  you  choose.  You  can  make 
your  own  pop-up  windows,  divide 
the  screen  into  sections,  or  frame 
the  entire  screen. 

Versions  are  included  for  the 
Commodore  128  and  64.  (The  128 
version  can  draw  frames  only  on 
the  40-column  screen,  not  on  the 
80-coiumn  display.)  The  program  is 
a  BASIC  loader.  Since  it  contains  a 
machine  language  program  in  the 
form  of  DATA  statements,  use 
"The  Automatic  Proofreader"  pro- 
gram located  elsewhere  in  this  issue 
to  insure  accurate  entry.  Type  in  the 
version  for  your  computer  and  be 
sure  to  save  a  copy  to  tape  or  disk. 

When  you  load  the  program 
and  type  RUN,  the  program  will  be 
POKEd  into  memory,  but  nothing 
else  will  happen.  To  use  the  pro- 
gram to  make  a  frame,  you  must 
use  a  SYS  command  to  call  the  ML 
routine.  Before  calling  the  routine, 
you'll  probably  want  to  set  parame- 
ters appropriately.  The  accompany- 
ing table  shows  the  key  addresses 


for  each  machine. 

The  default  values  in  the  table 
are  the  numbers  that  are  set  when 
the  program  is  first  run.  If  you  do  a 
SYS  49152  on  the  64  or  a  SYS  3072 
on  the  128,  you'll  get  a  frame  with 
an  upper-left  corner  at  0,0  and  a 
lower-left  corner  at  11,11,  (The 
length  parameters  do  not  include 
the  edges  of  the  frame,  so  a  frame 
that  surrounds  a  10  X  10  square  is 
reaUy  12  X  12.)  The  color  of  the 
frame  will  be  white  (1),  and  the 
frame  will  be  made  of  the  default 
parameters  {straight  lines  with 
rounded  corners). 

The  program  uses  line  num- 
bers 10-350,  so  begin  your  own 
program  at  line  360  when  adding 
frames  to  your  own  displays. 

Let's  change  the  appearance  of 


the  frame  by  making  the  horizontal 
character  an  equal  sign.  We'll  make 
the  change  for  the  Commodore  64. 
If  you're  working  with  the  128,  use 
the  table  to  find  the  correct  location 
to  POKE.  Now,  add  this  line  to  the 
program: 

360  POKE  49160,61:  SYS  49152:  REM  61 
IS  SCREEN  CODE  FOR  - 

Now  run  the  program. 

You  can  change  any  parameter 
simply  by  POKEing  the  desired  val- 
ue into  the  proper  location.  The 
character  numbers  (49160-49165) 
are  screen  codes,  not  ASCII  codes, 
so  check  your  programmer's  guide 
or  COMPUTEl's  Mapping  the  64  for 
the  appropriate  values, 

The  program  does  error  check- 
ing, so  you  don't  have  to  worry 
about  crashing  your  computer 
when  you  use  it.  If  the  border  won't 
fit  on  the  screen,  the  computer  will 
give  an  illegal  quandty  error. 
See  program  listings  on  page  97. 


128 

64 

Default 

Purpose 

3072 

49152 

SYS  address 

3075 

49155 

0 

top  left  X  coordinate 

3076 

49156 

0 

top  loft  Y  coordinate 

3077 

49157 

10 

biorizont.il  length 

3078 

49158 

10 

vertical  length 

3079 

49159 

] 

color  (0  on  Pliis/4,  16J 

3080 

49160 

64 

screen  code  for  horizontal  frame  character 

3081 

49161 

66 

screen  code  for  vertical  frame  character 

3082 

49162 

85 

screen  code  for  top  left  corner  character 

3083 

49163 

73 

screen  code  for  top  right  comer  character 

3084 

49164 

74 

screen  code  for  bottom  left  corner  character 

3085 

49165 

75 

screen  code  for  bottom  right  comer  character 
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Snapshot 


Clayton  R.  Newman 


This  clever  utility  can  store  up  to  56  different  screens  in  mem- 
ory and  instantly  retrieve  any  one  for  display.  For  the  Commo- 
dore 64  and  128  (in  64  mode). 


Here's  a  program  that  can  be  a  real 
boon  to  programmers.  "Snapshot" 
is  a  machine  language  utility  that 
stores  whatever  you  have  on  the 
text  screen,  including  colors,  into 
the  unused  RAM  which  underlies 
BASIC.  It  can  store  and  retrieve  up 
to  56  screens.  And  you  can  save  the 
screens  to  tape  or  disk.  It  crunches 
the  information  for  the  screen,  stor- 
ing up  to  255  empty  spaces  or  re- 
peated characters  in  only  three  bytes. 
Since  Snapshot  is  written  en- 
tirely in  machine  language,  it  works 
fast.  It  can  print  a  screen  more  than 
twice  as  fast  as  the  equivalent 
BASIC  PRINT  statements,  and  far 
faster  than  POKEing  data  to  screen 
memory. 

Two  Modes 

"MLX,"  the  machine  language  en- 
try program  (found  elsewhere  in 
this  issue),  is  required  to  type  in 
Snapshot.  After  loading  and  run- 
ning MLX,  answer  the  prompts  for 
the  starting  and  ending  addresses 
with  the  following  values: 

Starting  address:     C124 
Ending  address:      C983 

After  typing  it  in,  save  a  copy. 

Snapshot  can  be  used  in  either 
program  or  immediate  mode.  The 
commands  are  slightly  different  in 
each  mode.  (See  the  accompanying 
table  for  a  list  of  commands.)  Im- 
mediate mode  uses  the  CONTROL 
key  to  input  commands.  In  program 
mode,  several  SYS  commands  are 
required. 

To  use  it  in  immediate  mode, 
load  Snapshot  by  typing  LOAD 
"fjlename",&,l  (disk)  or  LOAD 
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"filename", lA  (tape),  then  NEW 
and  SYS  49444.  Then,  create  or  dis- 
play the  screen  you  want  copied. 
When  the  screen  is  ready,  press 
CONTROL-C.  Snapshot  copies  the 
screen  to  memory  and  asks  you  for 
a  screen  name.  All  Snapshot  screen 
names  must  be  two  characters  long. 
Any  two  characters,  except  aster- 
isks, may  be  used.  If  you  choose  a 
name  that's  already  been  used,  the 
old  screen  will  be  replaced  by  the 
new  one.  Use  the  INST/DEL  key  to 
make  corrections  when  entering  the 
name.  If  you  decide  not  to  save  the 
screen  at  all,  just  press  RETURN 
with  no  name  and  it  will  cancel  the 
command.  This  escape  works  with 
all  commands. 

To  recall  a  screen,  press  CON- 
TROL-P  and  enter  the  two-character 
screen  name.  CONTROL-I  displays 
an  index  or  directory  of  your  screen 
names.  To  delete  a  screen,  press 
CONTROL-D  and  enter  the  name. 
To  delete  all  of  your  screens,  enter  an 
asterisk  (*)  as  your  screen  name.  (In- 
dividual screen  names  should  not 
contain  an  asterisk.) 

CONTROL-S  and  CONTROL- 
L  are  used  to  save  and  load  the  en- 


rire  group  of  screens  on  tape  or 
disk.  You're  asked  for  a  filename — 
for  the  entire  group  of  screens — 
and  whether  you're  using  tape  or 
disk.  (Tape  users:  you  must  enter  a 
filename,  since  pressing  RETURN 
with  no  input  aborts  the  command.) 

If  you  wish,  you  can  copy  only 
part  of  the  screen.  To  do  this,  posi- 
tion the  cursor  at  the  start  of  the 
section  you  want  to  save  and  press 
CONTROL-F.  The  cursor  changes 
color.  Now  move  the  cursor  to  the 
position  after  the  last  character  you 
want  saved  and  press  RETURN. 
When  these  fractional  copies  are 
printed,  they're  returned  to  the 
screen  in  the  same  location  from 
which  they  were  saved. 

If  you're  working  with  graph- 
ics, you  may  often  want  to  change 
the  screen  location  or  redefine  the 
character  set.  Snapshot  will  work  in 
either  case,  but  remember  that 
screens  are  printed  to  the  same 
screen  location  from  which  they 
were  originally  copied.  You  could 
set  up  several  screens  ahead  of  time 
and  scroll  through  them  by  chang- 
ing screen  locations.  But  remember 
that  all  screen  locations  use  the 
same  color  memory,  so  if  the  screen 
being  printed  has  different  colored 
characters  than  the  screen  currently 
displayed,  the  colors  on  the  current 
screen  will  change  too. 


Snapshot  Commands 

Command 

Immediate  mode 

Program  mode 

Copy 

CONTROL-C 

SYS  51000,C,screen  name 

Print 

CONTROL-P 

SYS  51000,P,screen  name 

Delete 

CONTROL-D 

SYS  51000,D,screen  name 

Copy  fraction 

CONTROL-F 

not  available 

Index 

CONTROL-I 

SYS  51000,1 

Load 

CONTROL-L 

SYS  51000,L,filename,D  (or  T) 

Save 

CONTROL-S 

SYS  51000,S,filename,D  (or  T) 

Disable  changing 

special  color  registers: 

POKE  50620,1  Reenable:  POKE  50620,0 

The  program  mode  commands 
are  very  similar  to  immediate 
mode.  The  format  is  SYS  51000, 
command,  name.  For  example,  to 
print  a  screen  named  AB,  use  SYS 
51000,P,AB  (P  is  for  Print).  You  can 
use  a  string  variable  for  the  screen 
name,  as  in  SYS  51000,C,A$.  Array 
variables  cannot  be  used,  so  if  you 
want  an  array  of  screen  names  you 
must  assign  the  array  variable  to  a 
regular  string  variable:  A$  =  B$(20). 
For  loading  or  saving,  add  T  (tape) 
or  D  (disk):  SYS  5lQO0,S,filename, 
D.  Do  not  use  quotes  for  the  file- 
name. Also,  you  don't  need  to  SYS 
49444  (the  command  that  activates 
Snapshot)  in  program  mode. 

Making  It  Useful 

Snapshot  has  numerous  applica- 
tions. One  is  displaying  back- 
grounds for  arcade  games  or  text 
adventures.  By  using  a  redefined 
character  set,  very  complex  screens 
can  be  drawn,  rivaling  high -resolu- 
tion screens.  Many  commercial 
games  use  screens  drawn  this  way. 
One  advantage  of  Snapshot  is  that 
it  uses  a  maximum  of  1509  bytes  to 
store  a  screen  while  a  hi -res  screen 


uses  9000  bytes.  Another  use  for 
Snapshot  is  for  menus,  instructions, 
and  title  screens. 

Snapshot  is  transparent  to 
most  BASIC  programs.  This  means 
you  can  use  it  in  immediate  mode 
to  copy  screens  of  programs  while 
they're  running. 

Snapshot  saves  the  screens  in 
RAM  underneath  the  BASIC  ROM 
at  40960-49151,  providing  8192 
bytes  of  storage,  enough  to  store  six 
screens  using  the  maximum  size  of 
1509  bytes  per  screen.  The  mini- 
mum size  for  a  whole  screen  is  27 
bytes.  There  is  enough  room  for 
327  screens  this  size,  but  Snapshot 
can  only  handle  up  to  56  screens  at 
a  time. 

The  reason  that  different 
screens  require  different  amounts 
of  memory  is  that  Snapshot  com- 
presses the  screen  as  it  is  saved. 
Any  screen  character  repeated 
three  times  or  more  is  represented 
as  the  character  code  along  with  a 
count  of  how  many  repeats.  Color 
memory  works  the  same  way;  how- 
ever, since  16  colors  can  be  repre- 
sented in  half  a  byte,  two  color 
locations  are  crunched  into  each 


byte  to  save  space.  This  means  that 
a  screen  which  is  mostly  empty 
space,  repeated  characters,  or  the 
same  color,  uses  much  less  space 
than  a  screen  with  a  complex  image. 

If  you  run  out  of  memory. 
Snapshot  will  display  an  error  mes- 
sage. You  can  extend  your  Snap- 
shot memory  by  lowering  the  top- 
of-BASIC  pointer  in  locations  55 
and  56.  Type  POKE  56, PEEK 
(56)-4*X:CLR  where  X  is  the  num- 
ber of  kilobytes  of  added  memory. 

When  Snapshot  prints  a 
screen,  it  also  changes  the  back- 
ground and  border  colors  to  those 
that  were  saved.  If  you  use  extend- 
ed background  color  mode,  it  will 
print  the  extra  background  colors.  It 
also  saves  the  extra  colors  for  multi- 
color characters.  Sometimes,  how- 
ever, you  might  not  want  these 
changes.  To  disable  this  feature, 
POKE  50620,1.  To  reenable  it 
POKE  50620,0. 

Program  2  demonstrates  a  little 
of  what  Snapshot  can  do.  The  pro- 
gram sets  up  the  screen,  and  then 
Snapshot  quickly  displays  several 
screens,  simulating  animation. 
See  program  listings  on  page  76.    a 


THE  ULTIMATE 
64/128 

Resource 

COMPUTEI's  Commodore 
Buyer's  Guide 


W^M'h^ 


The  encyclopedia  of 
Commodore  software — 
hundreds  of  products. 
Entertainment!  Education! 
Business!  Home  Applications! 
Programmers'  Tools! 

Plus — printers  and  peripherals 
from  modems  to  joysticks. 


All  completely  described,  with 
price  and  manufactiirer 
listings.  Why  look  anywhere 
else?  It's  all  right  here  in 
COMPUTE!'s  Commodore 
Buyer's  Guide. 

On  sale  late  December. 


Reserve  your  newsstand  copy  lidWl 

OR 
Jvh^  Order  direct  from  COMPUTE!     \ 

^^00-346-6767  (in  NY  212/887-8525)^ 


^ 


DOS  Window 


Bob  Kodadek 


If  you  own  a  Commodore  64  and  1541  disk  drive,  you  won't 
want  to  miss  this  timesaving  utility.  It  displays  a  zvindow  with 
11  disk  commands — any  of  which  is  just  a  keypress  away — 
without  affecting  your  current  screen  or  BASIC  program. 


Have  you  ever  wished  for  a  better 
and  easier  way  to  perforin  disk  op- 
erations? I'm  not  talking  about  the 
"DOS  Wedge"  that  you  probably 
already  have.  I  mean  something 
even  better  than  that. 

Imagine  a  menu  screen  that 
would  provide  a  single  keystroke 
command  to  perform  a  particular 
disk  operation.  The  program  could 
prompt  at  the  appropriate  time  for 
user  input  such  as  new  filename, 
old  filename,  disk  ID,  and  so  on.  It 
would  no  longer  be  necessary  to  re- 
member or  enter  lengthy  command 
strings.  The  directory  could  be  read 
without  the  nuisance  of  screen 
scrolling.  The  error  channel  would 
be  displayed  automatically  after 
every  operation.  And,  by  using  a 
windowing  technique,  we  could  do 
all  this  and  more  without  affecting 
our  present  screen.  While  we're  at 
it,  let's  imagine  that  this  command 
menu  could  be  accessed,  viewed, 
and  used  at  any  time,  even  while 
another  program  is  running.  A  pretty 
tall  order,  you  say? 

The  accompanying  program, 
"DOS  Window,"  is  just  what  we  de- 
scribed— a  menu-driven,  interrupt- 
based,  DOS  support  window.  It  is 
RAM-resident  and  transparent  to 
your  other  programs.  It  can  be 
called  at  the  touch  of  a  key  to  per- 
form disk  operations  instantly, 
even  while  other  programs  are  run- 
ning. Included  in  the  display  is  a 
digital  clock  for  accurate  timekeep- 
ing. The  following  commands  are 
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available  from  the  menu: 


D: 

Directory 

I; 

Initialize 

V; 

Validate 

R: 

Rename 

N: 

Format 

~: 

Save 

C: 

Copy 

S: 

Scratch 

L: 

Load,8 

II: 

Load,8,l 

U: 

Reset 

Using  DOS  Window 

DOS  Window  consists  of  two  pro- 
grams. Program  1,  "DOS  Window 
Object  File,"  is  written  in  machine 
language.  "MLX,"  found  elsewhere 
in  this  issue,  is  required  to  type  it  in. 
After  loading  MLX,  respond  to  the 
prompts  with  the  following; 

Starting  address:     CA60 
Ending  address:      CFFF 

Be  sure  to  save  a  copy  of  Program  1 
to  disk  after  you've  typed  in  all  the 
data.  (Note:  Program  2  attempts  to 
load  this  file  as  "DOS-WINDOW 
.OBJ".  If  you  save  Proj^ram  1  under 
any  other  name,  be  sure  to  change  the 
filename  which  is  loaded  in  line  10  of 
Program  2.)  Program  2,  "DOS  Win- 
dow Boot,"  is  written  in  BASIC.  Be 
sure  to  save  a  copy  before  you  run 
the  program — it  erases  itself  when 
it's  performed  all  its  duties — and  be 
sure  to  save  it  on  the  same  disk  on 
which  Program  1  was  saved. 

To  use  DOS  Window,  just  load 
and  run  DOS  Window  Boot,  Pro- 
gram 2.  (It  automatically  loads  the 
machine  language  in  Program  1.) 


When  the  program  is  finished  load- 
ing, you  may  elect  to  set  the  time  on 
the  digital  clock.  If  the  current  time 
is  not  set,  the  clock  will  function  as 
a  timer.  To  open  the  window,  press 
CTRL-D.  Then  simply  select  from 
the  menu.  When  you're  through, 
press  RETURN  to  close  the  win- 
dow. To  disable  the  utility,  press 
RUN/STOP-RESTORE.  To  reacti- 
vate it,  type  SYS  51808. 

How  It  Works 

The  IRQ  vector  is  altered  to  point  to 
a  routine  which  scans  the  keyboard 
for  the  current  key  being  pressed.  If 
the  CTRL  and  D  keys  are  pressed 
simultaneously,  a  flag  is  set  to  di- 
vert subsequent  interrupts.  Then 
screen  memory,  color  memory,  and 
zero  page  are  quickly  copied  to  the 
normally  unused  RAM  under  the 
BASIC  ROM,  Next,  the  menu 
screen  is  displayed  and  the  pro- 
gram enters  an  input  loop.  If  the  in- 
put is  valid,  it  is  matched  to  a 
corresponding  command  routine 
and  executed.  Following  the  com- 
pletion of  each  operation,  the  error 
channel  is  read  and  displayed  at  a 
status  line.  When  the  menu  screen 
is  exited,  all  stored  memory  is  re- 
turned to  its  original  location,  the 
flag  is  cleared,  and  control  is  re- 
turned to  the  current  program  run- 
ning in  memory  or  BASIC,  which- 
ever applies. 

To  avoid  conflicts  between 
programs,  some  restrictions  must 
be  observed.  Your  program  may 
not  use  the  RAM  located  under  the 
BASIC  ROM  or  locations  51808- 
53247.  Also,  the  DOS  Window  pro- 
gram assumes  that  you're  in  the 
standard  character  mode  with  the 
screen  at  its  default  location  of  1024. 
See  program  listings  on  page  96.     g} 


DOS  Calc 


Steve  Kelly 


I. 

Scratch 

I- 

Rename 

K. 

Copy 

L. 

Validate 

M. 

Initialize 

N, 

Read  error  channel 

O. 

New  a  disk 

P. 

Calculator 

This  convenient,  menu-driven  utility  for  the  Commodore  64  in- 
cludes ail  the  disk  functions  of  the  familiar  "DOS  Wedge"  pro- 
gram, plus  a  powerful  scientific  calculator.  A  disk  drive  is 
required  to  use  the  program's  DOS  functions. 


"DOS  Calc"  is  two  programs  in 
one.  Not  only  is  it  a  complete  re- 
placement for  the  "DOS  Wedge" 
program  supplied  on  the  1541  or 
1571  Test /Demo  disk,  but  it  has  a 
built-in  scientific  calculator.  The 
program  is  entirely  menu-driven 
and  employs  easy-to-use,  pop- 
down  windows. 

DOS  Calc  is  written  in  ma- 
chine language,  so  you  must  enter  it 
with  "MLX,"  the  machine  language 
entry  program  found  elsewhere  in 
this  issue.  Here  are  the  addresses 
you  need  to  type  and  save  the  pro- 
gram with  MLX: 

starting  address:     0801 
Ending  address:      16EB 

After  you  have  saved  a  copy  of 
DOS  Calc,  it  can  be  loaded  and  run 
just  like  any  BASIC  program.  When 
you  run  it,  DOS  Cak  relocates  itself 
to  the  safe  memory  area  beginning 
at  address  49152,  a  process  that 
takes  only  an  instant. 

Once  the  READY  prompt  re- 
turns, DOS  Calc  is  ready  to  use. 
Like  the  "DOS  Wedge,"  DOS  Calc 
works  only  in  immediate  mode 
(when  you  are  not  running  a  pro- 
gram). To  enter  DOS  Calc,  type  @ 
and  press  RETURN.  DOS  Calc  dis- 
plays the  main  menu  window  with 
the  following  selections: 

A.  Exit 

B.  Directory 
C     Load 

D.  Load  relocated 

E.  Save 

F.  Resave 

C.  Bsave 

H.     Rc-Bsave 


To  select  a  function  from  the 
main  menu,  simply  press  the  letter 
shown  next  to  the  function  you 
want.  For  instance,  pressing  A  exits 
DOS  Calc  and  returns  you  to 
BASIC.  When  you  choose  any  other 
function,  DOS  Calc  opens  a  new 
screen  window  in  which  the  inter- 
action for  that  function  takes  place. 

Directory 

The  directory  function  (B)  is  per- 
haps the  most  frequently  used  DOS 
function.  When  you  press  B,  DOS 
Calc  opens  a  window  and  prompts 
you  to  enter  a  wildcard  specifica- 
tion. As  a  convenience,  it  prints  the 
asterisk  {*)  wildcard  in  the  window. 
If  you  wish  to  view  all  the  files  on 
the  disk,  simply  press  RETURN.  To 
view  only  selected  files,  change  the 
wildcard  accordingly. 

For  example,  suppose  that  you 
want  to  see  all  the  files  beginning 
with  CAME.  Type  GAME*  and 
press  RETURN.  After  you  enter  the 
wildcard,  DOS  Calc  opens  a  third 
window  which  contains  all  the  re- 
quested directory  information.  To 
exit  this  window  and  return  to  the 
main  menu,  press  A.  If  the  disk  con- 
tains more  files  than  will  fit  in  the 
window,  you  can  press  B  to  view 
the  next  page  of  the  directory.  Press 


"DOS  Calc"  is  entirely/  mettu-driveti 
and  employs  easy-to-use,  pop-down 
windows. 


C  to  enter  a  new  wildcard  and  be- 
gin a  new  directory  search. 

File  Functions 

The  next  eight  DOS  functions  all 
concern  existing  files.  They  are 
Load,  Load  Relocated,  Resave, 
Bsave,  Re-Bsave,  Scratch,  Rename, 
and  Copy.  After  you  select  any  of 
these  functions  from  the  main 
menu,  DOS  Calc  asks  you  to  enter 
the  name  of  the  file  you  wish  to 
manipulate.  If  you  enter  a  null  file- 
name (no  name),  DOS  Calc  auto- 
matically displays  the  directory  for 
the  current  disk.  This  directory  dif- 
fers from  the  normal  directory  dis- 
play, however,  in  that  each  filename 
is  prefaced  by  a  letter.  To  select  a  file 
for  the  current  function,  simply 
press  the  letter  key  that  appears  in 
front  of  the  filename.  If  you  change 
your  mind  and  decide  not  to  com- 
plete the  operation,  press  A  to  exit. 
For  instance,  let's  try  the  Re- 
save command,  which  deletes  an  ex- 
isting  program  from  disk  and 
replaces  it  with  the  BASIC  program 
currently  in  memory.  When  you 
choose  Resave  from  the  main  menu, 
DOS  Calc  opens  a  window  asking 
for  a  filename.  If  you  press  RETURN 

COMPUTErs  GB2ene  Special  t988  IssuB        31 


without  entering  a  name,  DOS  Calc 
opens  a  secondary  directory  win- 
dow from  which  you  can  select  the 
file  by  pressing  a  single  key.  Once 
this  is  done,  the  program  completes 
the  resave.  You  should  avoid  using 
any  wildcards  in  the  directory  func- 
tion when  it  appears  as  part  of  a  Re- 
save  or  Re-Bsave  command. 

The  Copy  and  Rename  com- 
mands require  two  filenames.  The 
first  name  you  enter  is  used  as  the 
name  of  the  new  file  for  the  Copy 
command  or  the  new  name  of  the 
existing  file  for  the  Rename  com- 
mand. This  name  must  be  typed  in 
(it  cannot  be  derived  from  the  direc- 
tory). The  second  name  indicates 
the  original  file;  this  name  can  be 
taken  from  the  directory, 

DOS  Calc  provides  two  func- 
tions that  are  not  included  in  the 
"DOS  Wedge"  program.  The  B  in 
Bsave  and  Re-Bsave  stands  for  bi- 
nary, indicating  a  binary  file  con- 
taining machine  language,  graphics 
data,  or  something  other  than  a 
BASIC  program.  Since  these  func- 
tions save  a  designated  area  of 
memory,  you  must  supply  two  ad- 
dresses: the  beginning  and  ending 
addresses  of  the  area  to  be  saved. 

The  Validate,  Initialize,  and 
Read  Error  Channel  commands  re- 
quire little  explanation.  Since  no 
information  is  required  for  these 
commands,  DOS  Calc  simply  per- 
forms them  without  any  introduc- 
tory prompts.  The  New  command, 
which  formats  a  disk,  requires 
either  one  or  two  items  of  infor- 
mation. The  first  item — the  disk 
name — is  mandatory.  To  reformat 
an  already  formatted  disk,  you  can 
supply  a  new  disk  name  without 
anything  else.  To  format  a  disk  that 
has  never  been  used,  you  must  sup- 
ply a  two-character  disk  ID  after  the 
disk  name,  separating  the  two  items 
with  a  comma. 

For  additional  informafion  on 
DOS  operations,  refer  to  the  user's 
manual  for  your  disk  drive. 

Scientific  Calculator 

DOS  Calc  also  includes  a  built-in 
calculator  which  is  very  useful  for 
math,  engineering,  and  various  sci- 
entific applications.  This  calculator 
is  different  from  the  familiar  pocket 
calculators  used  by  most  people.  It 
uses  a  notation  called  Reverse  Palish 
Notation  (RPN),  which  allows  you 
to  solve  complex  formulas  without 
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parentheses. 

When  you  select  the  calculator 
from  the  main  menu,  two  second- 
ary windows  appear  on  the  screen. 
On  the  right  is  the  function  win- 
dow, which  lists  all  the  calculator 
functions  preceded,  as  usual,  by  the 
letter  key  which  invokes  them.  To 
the  left  is  the  result  window,  which 
is  subdivided  into  three  sections. 
The  result  area  contains  either  an- 
swers from  calculations  or  key- 
board input  from  you.  In  the  middle 
is  the  stack  display,  which  holds  in- 
termediate results.  The  bottom  area 
is  a  message  area  where  the  calcula- 
tor displays  error  messages  such  as 
Divide  by  Zero. 

Notation 

Before  looking  at  the  calculator 
functions,  let's  establish  some  rules 
for  entering  numbers.  You  can  en- 
ter any  number  in  either  standard 
notation  (2534,56  is  an  example)  or 
in  scientific  notation  (123E34  is  an 
example).  Negative  numbers  are 
entered  somewhat  differently  than 
you  might  expect,  since  the  minus 
(  — )  sign  is  already  used  to  signify 
subtraction  (see  below).  Use  the 
shifted  minus  sign  (hold  down 
SHIFT  and  press  the  minus  key)  as 
a  substitute.  The  second  trick  has  to 
do  with  the  £  symbol  used  in  scien- 
tific notation.  This  calculator  also 
uses  the  letter  £  for  another  func- 
tion (it  causes  the  stack  to  wrap 
down;  see  below).  As  a  substitute, 
use  the  T  symbol  (the  up-arrow  key 
directly  to  the  right  of  the  asterisk). 
Whenever  you  enter  T  as  part  of  a 
number,  DOS  Calc  puts  an  £  in  the 
number  you  are  entering. 

Examples 

To  start  with  an  easy  exercise,  let's 
look  at  how  to  perform  2  -I-  5.  In 
RPN  there  is  no  need  for  an  equal 
sign  (  =  ).  In  this  case,  you  enter 
both  numbers  followed  by  the  plus 
sign  (  +  ),  which  is  the  operator  you 
wish  to  use.  Press  the  number  2. 
DOS  Calc  prints  a  2  in  the  result 
window.  Now  press  RETURN.  The 
number  2  shifts  to  the  right  and  also 
appears  as  the  top  entry  in  the  stack 
area.  Press  the  number  5.  The  top 
line  of  the  result  window  now 
shows  that  number.  Press  the  plus 
key.  The  2  on  the  stack  is  replaced 
by  a  0  and  the  result  line  displays  a 
7.  Simple  arithmetic  operations  use 
the  same  general  procedure.  To 


subtract  2  from  5,  you  would  enter 
the  numbers  5  and  2,  followed  by 
the  minus  key. 

More  complex  equaHons  dem- 
onstrate the  power  of  an  RPN  cal- 
culator. Let's  solve  the  equation 
2048/(8*4).  Begin  by  entering  2048 
and  pressing  RETURN.  Now  type 
8,  followed  by  RETURN,  and  then  a 
4.  At  this  point  the  stack  contains 
all  the  numbers  for  the  equafion,  in 
correct  order.  Now  press  the  aster- 
isk (*)  key  to  perform  multiplica- 
tion. The  result  line  should  display 
32,  Press  the  slash  {/)  to  perform 
division.  The  calculator  displays 
the  final  result,  which  is  64. 

Each  time  you  pressed  RE- 
TURN in  this  example,  the  calcula- 
tor pushed  the  number  from  the 
result  line  onto  the  stack.  All  other 
numbers  were  pushed  down  one 
location,  and  the  fourth  entry  on 
the  stack  was  lost. 

There  are  seven  other  func- 
tions which,  like  RETURN,  have 
some  effect  on  the  calculator's 
stack.  The  first  is  Clear  Entry:  This 
function  clears  the  result  line  and 
leaves  all  other  entries  untouched. 
The  Clear  Stack  function  clears  the 
result  line  and  the  entire  stack.  The 
next  four  functions  cause  the  entire 
stack,  including  the  result  line,  to 
wrap  or  roll  in  either  direction.  A 
wrap  allows  either  the  top  or  bottom 
entry  to  move  from  top  to  bottom, 
or  vice  versa.  A  roll  causes  the  top 
or  bottom  entr}'  to  be  lost.  The  sev- 
enth  stack  function,  Exchange, 
swaps  the  result  line  with  the  top 
stack  entry.  This  operation  is  useful 
if  numbers  are  entered  in  the  wrong 
order  and  need  to  be  corrected. 

All  the  remaining  funcHons  are 
standard  math  operafions  which  op- 
erate on  the  result  line.  Except  for 
Power  and  Pi,  these  functions  affect 
only  the  result  line.  The  Power  func- 
tion raises  the  number  on  the  top  of 
the  stack  to  the  power  specified  in 
the  result  line;  the  answer  is  left  on 
the  result  line  and  the  stack  shifts  up 
one  locarion.  The  Pi  function  enters 
the  value  of  ^i  (3.1415926)  in  the  re- 
sult line  just  as  if  you  had  typed  it 
from  the  keyboard. 

Using  an  RPN  calculator  may 
seem  strange  at  first,  but  once  you 
become  familiar  with  its  powerful 
features,  you  may  never  want  to  go 
back  to  using  a  simple  pocket 
calculator. 
See  program  listings  on  page  126,  9 


Gradebook 


Stephen  Levy  and  Kevin  Mykytyn 


A  gradebook  is  rm  important  rccordkeeper  for  a  teacher.  An 
electronic  gradebook  is  an  efficient,  convenient,  and  even  more 
valuable  organizational  tool.  This  all  machine  la}iguage  pro- 
gram— which  includes  some  of  the  features  of  databases  and 
spreadsheets — handles  up  to  70  students  luith  100  grades  each. 
It  also  alphabetizes  names,  averages  weighted  grades,  and 
much  more.  For  the  Commodore  64. 


Schools  continue  to  buy  computers 
for  students.  But  teachers  need  the 
time-saving  convenience  offered  by 
computers  as  much  as  anyone. 
"Gradebook,"  designed  especially 
for  teachers,  is  a  utility  that  effi- 
ciently handles  classroom  record- 
keeping, replaces  the  periodic 
drudgery  of  averaging  grades,  and 
is  easy  to  use. 

Gradebook  keeps  a  record  of 
up  to  100  grades  for  as  many  as  70 
students  in  one  file.  In  addition,  the 
program  will  average  grades,  dis- 
play them  to  the  screen,  sort  (by 
name  or  grade),  and  print  out  the 
results. 

A  Great  Big  Work  Sheet 

When  Gradebook  is  first  run,  you'll 
see  a  work  sheet  filled  with  mean- 
ingless  characters.  Press 
SHIFT-CLR/HOME  to  clear  the 
work  sheet.  A  gray  screen  with  six 
columns  filled  with  asterisks  then 
appears.  What  you're  seeing  is  a 
window  on  a  much  larger  work 
sheet.  The  top  row  contains  the  as- 
signment number,  one  per  column. 
If  you  could  view  the  entire  work 
sheet,  you'd  see  that  it  contains  101 
columns,  the  first  one  for  student 
names  and  the  next  100  for  individ- 
ual assignments. 

Press  the  cursor- left/right  key 
so  that  the  cursor  is  anywhere  in 
the  column  for  assignment  1.  Now 
press  the  cursor-up/down  key  a 
few  times.  Notice  how  easy  it  is  to 
move  around  the  work  sheet.  If  you 
move  the  cursor  to  the  far  right  col- 
umn and  press  cursor-left/right,  all 


columns  scroll  to  the  left  to  make 
room  for  the  next  column.  Pressing 
SHIFT-cursor-Ieft/right  moves  the 
cursor  left,  and  5HIFT-cursor-up/ 
down  moves  it  up. 

The  left -arrow  key  (at  the  up- 
per left  on  your  keyboard)  func- 
tions like  a  "toggle,"  and  enables 
you  to  move  at  fast  or  normal 
speeds  around  the  work  sheet.  To 
move  quickly,  press  the  left-arrow 
key  once.  Now  each  time  you  press 
one  of  the  cursor-movement  keys, 
you'll  move  five  rows  or  columns. 
To  return  to  single-step  movement, 
press  the  left-arrow  key  again. 

Anytime  you  wish  to  move  to 
the  top  left  of  the  work  sheet,  press 
CLR/HOME. 

Entering  Names  And  Grades 

Move  the  cursor  to  the  upper-left 
corner  of  the  work  sheet  by  press- 
ing CLR/HOME.  The  cursor  now 
appears  as  a  long  white  bar  in  the 
column  for  names.  Each  name  must 
start  on  the  left  margin,  so  be  sure 
not  to  type  a  space  as  the  first  char- 
acter. There's* no  need  to  type 
names  in  alphabetical  order  be- 
cause the  program  will  do  that  for 
you  (see  below).  Be  sure  to  enter 
last  names  first  if  you  wish  to  have 
students  alphabetized  by  last 
names.  After  entering  a  student 
name,  press  RETURN  or  cursor-up- 
/down  to  enter  another.  Do  not 
leave  bla)ik  Hues  between  names — 
each  name  must  immediately  fol- 
low the  one  above. 

Before  you  can  enter  grades  for 
an  assignment,  you  must  first  enter 


the  perfect  mark  (a  whole  number 
between  0  and  200)  and  percentage 
(weight)  of  grade  for  the  assign- 
ment. To  begin  entering  individual 
grades,  move  to  the  cell  (column 
and  row  coordinate)  for  the  student 
and  assignment  number  you  want 
to  enter.  All  grades  must  be  whole 
numbers  between  0  and  the  perfect 
mark  you've  determined  for  that 
assignment.  To  change  a  student 
name  or  grade,  go  to  the  appropri- 
ate location  and  type  it  in.  It  will 
automatically  replace  the  old  data. 
If  you  make  an  error  while  entering, 
use  the  INST/DEL  key  as  you  nor- 
mally would  to  erase  the  previous 
character. 

Calculating  Grades 

At  the  top  of  each  column  is  dis- 
played the  assignment  number  and 
a  place  to  enter  the  perfect  mark 
and  the  percentage  (weight)  of  the 
grade. 

The  program  uses  the  perfect 
mark  value  for  each  assignment  to 
calculate  a  percentage  grade  for 
each  mark.  This  feature  offers  an 
added  convenience;  You  don't  have 
to  figure  all  grades  on  a  100  percent 
base.  You  can  enter  a  mark  based, 
say,  on  the  actual  number  of  correct 
answers. 

Percentage  of  grade  allows  you 
to  give  different  weights  to  various 
tests,  finals,  midterms,  and  so  on. 
For  example,  suppose  you  give  sev- 
en tests  during  a  quarter.  Two  of  the 
seven  are  unit  tests  which  count 
more  heavily  than  the  other  five. 
All  you  need  to  do  is  assign  a  higher 
percentage  for  the  unit  tests.  Note, 
however,  that  the  total  of  all  the 
percentages  of  grades  must  equal 
100.  In  our  example,  we  might  have 
the  two  unit  tests  each  count  as  25 
percent  of  the  total  and  the  other 
five  tests  each  count  as  10  percent 
(25,25,10,  10,10,  10,  10,  for  a  100 
percent  total). 

Once  the  perfect  marks  and 
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percentages  of  grades  are  entered, 
press  the  £  key  to  calculate  grades. 
You'll  get  two  types  of  calculations, 
/toe  is  the  unweighted  average  {all 
marks  are  added  together  and  di- 
vided by  all  the  perfect  marks 
added  together.)  Fin  is  the  weighted 
average,  which  is  calculated  with 
this  formula: 

mark#l  •  weight  [nark#2  •  weight 

+    


perfect  mark 


perfect  mark 


mark* 3  *  weight 


perfect  mark 


-and 


If  the  total  percentage  of 
grades  doesn't  add  up  to  100,  you 
won't  get  a  figure  in  the  Fin  col- 
umn. Also,  any  student  missing  a 
grade  will  not  have  an  average  in 
the  Fin  column. 

Press  any  key  to  return  to  the 
work  sheet. 

Deleting  Grades  And  Names 

Let's  say  you  decide  that  all  the 
grades  for  a  single  assignment 
should  be  eliminated.  First,  move 
the  cursor  anywhere  on  the  column 
of  grades  to  be  deleted  and  press 
CTRL-D.  When  prompted,  press  C 
for  column.  Asterisks  will  fill  the 
column.  Now,  you  can  either  ig- 
nore them  or  reuse  the  column. 

Likewise,  if  a  student  leaves 
your  class  and  his  or  her  grades  are 
no  longer  needed,  move  the  cursor 
to  the  row  containing  the  student's 
name  and  press  CTRL-D.  But  this 
time,  when  prompted,  press  R  for 
row.  Instantly,  the  row  disappears 
and  all  rows  below  are  moved  up. 

Deleting  grades  can  serve  an- 
other very  useful  purpose.  At  the 
end  of  each  quarter  or  grading  peri- 
od, you  can  load  in  a  work  sheet 
from  disk  or  tape  (see  below  for 
loading  instructions).  Delete  all 
grades,  column  by  column,  as  dis- 
cussed above.  Then  either  enter 
new  grades  for  the  new  quarter  or 
save  out  just  the  names  for  later 
use.  By  saving  the  names  using  a 
different  filename  on  disk  or  on  an- 
other tape,  you'll  preserve  the 
grades  from  the  past  quarter  for  fu- 
ture reference. 

To  delete  a  single  grade,  re- 
place it  with  an  asterisk.  To  delete 
all  entries,  both  names  and  grades, 
press  SHIFT-CLR/HOME.  Use  all 
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Cradebook  Command  Summary 

CTRL-A 
CTRL-D 
CTRL-L 


CTRL-P 
CTRL-S 

SHIFT-CLR/HOME 

£ 

cursor-lefl/right 

SHIFT-cursorleft/right 

Cursorup/down 

SHIFT-cursorup/down 

CLR/HOME 


Sort  row  or  column 
Delete  row  or  column 
Load  names  and  grades 

from  tape  or  disk 
Print  row  or  column 
Save  names  and  grades  to 

tape  or  disk 
Delete  all  entries 
Calculate  averages 
Move  cursor  right 
Move  cursor  left 
Move  cursor  down 
Move  cursor  up 
Move  cursor  to  upper  left 
Toggle  cursor  speed  control 


delete  commands  carefully,  as  data 
recovery  is  impossible. 

Saving  And  Loading 

Once  you've  entered  some  names 
and  grades  and  are  ready  to  save 
the  file,  press  CTRL-S.  You'll  be 
prompted  for  a  filename  (12  charac- 
ters maximum)  and  asked  to  press  T 
or  D  for  tape  or  disk.  If  you  use  a 
filename  that's  already  on  your 
disk,  it  will  be  replaced  by  this  new 
file. 

Remember  to  save  anytime  you 
enter  new  names  or  grades.  And  it's 
best  to  use  a  different  filename  each 
time  you  save. 

Loading  is  also  easy:  Just  press 
CTRL-L  and  answer  the  prompts. 

Printing  And  Sorting 

Gradebook  will  print  out  any  col- 
umn to  any  Commodore  printer  (or 
any  Commodore-emulating  print- 
er). To  print  a  column,  move  the 
cursor  to  the  desired  column  and 
press  CTRL-P,  Be  sure  your  printer  is 
turned  on  before  pressing  CTRL-P. 
Otherwise,  Gradebook  will  print  to 
the  screen,  scrambling  the  format 
you've  set  up. 

If  you  ask  for  a  column  of 
grades,  the  name  of  each  student 
will  appear  with  the  student's  grade 
for  that  one  assignment.  If  the  cur- 
sor is  in  the  column  of  student 
names  and  you  ask  for  a  printout  of 
the  column,  you'll  get  a  list  of  stu- 
dent names. 

To  get  a  printout  of  all  student 
averages,  press  £  to  go  to  calcula- 
tions. Once  the  averages  are  dis- 
played, press  CTRL-P. 

CTRL-A  will  sort  any  column. 
Move  the  cursor  to  the  column  with 
the  student  names,  press  CTRL-A, 
and  the  names  will  be  sorted  in  al- 


phabetical order.  And  the  grades 
will  move  to  the  proper  row.  Place 
the  cursor  in  a  column  of  marks  and 
press  CTRL-A,  and  that  list  will  be 
arranged  in  descending  order. 
Again,  all  corresponding  data  will 
be  rearranged. 

The  sorting  function  gives  Gra- 
debook flexibility.  You  could  sort 
assignment  1  and  then  print  out  all 
the  student  grades  for  assignment 
1.  This  would  give  you  a  list  of 
names  and  grades,  sorted  by  grades 
from  highest  to  lowest.  You  can 
save  multiple  files  with  the  same 
data,  but  sorted  and  arranged  in  dif- 
ferent ways. 

Gradebook  has  only  a  few 
commands,  but,  as  with  any  pro- 
gram, it  takes  a  little  getting  used  to. 
The  first  few  times  you  use  the  pro- 
gram, refer  to  the  table  of  com- 
mands. Once  you've  used  it  a  bit, 
you'll  find  that  entering  and  aver- 
aging grades  will  be  quick  and  easy. 

Typing  It  In 

Gradebook  is  written  entirely  in 
machine  language,  so  you  must  use 
"MLX,"  the  machine  language  en- 
try program  to  type  it  in.  Run  MLX 
and  enter  the  following  information 
when  prompted: 

Starting  address:     COOO 
Ending  address:      CC27 

Once  Gradebook  has  been 
saved  to  disk  or  tape,  load  it  with 
LOAD  "fiIeiiame",SA  for  disk 

or 

LOAD  "filename"  for  tape 

where  file Ji am e  is  the  name  used  to 
save  Gradebook  using  MLX.  Once 
the  file  is  loaded,  type  NEW,  press 
RETURN,  and  enter  SYS49152  to 
activate  the  program. 
See  program  listing  on  page  74.       <a 


Sprite  Designer 


Andre  Corbin 

This  full-featured  sprite  editor  from  a  Canadian  reader  lets  you 
design  Commodore  64  sprite  shapes  quickly  and  conveniently. 
The  program  works  with  either  disk  or  tape. 


Nearly  every  Commodore  64  pro- 
grammer uses  sprites  at  one  time  or 
another.  They're  the  movable 
graphics  shapes  that  add  so  much 
to  arcade  games  and  other  pro- 
grams. If  you  have  plenty  of  time, 
you  can  draw  the  sprites  on  graph 
paper,  calculate  the  numbers  that 
make  up  each  sprite,  type  those 
numbers  into  a  program,  and  hope 
that  you  didn't  make  any  mistakes 
along  the  way.  But  "Sprite  Design- 
er" offers  a  much  faster  and  easier 
alternative,  allowing  you  to  design 
sprites  directly  on  the  screen,  with 
convenient  keyboard  controls.  You 
can  save  a  group  of  sprite  shapes  to 
disk  or  tape  and  reload  them  for  fu- 
ture use,  or  you  can  create  a  series 
of  BASIC  DATA  statements  con- 
taining the  sprite  data.  The  pro- 
gram supports  both  single-color 
and  multicolor  sprites  and  it  allows 
you  to  work  on  a  group  of  eight 
sprites  at  a  time. 

Typing  It  In 

Sprite  Designer  is  written  in  ma- 
chine language,  so  you  must  type  it 
in  with  the  "MLX"  machine  lan- 
guage entry  program  published 
elsewhere  in  this  issue.  Read  the 
MLX  instructions  carefully  before 
you  begin.  When  you  run  MLX, 
you'll  be  asked  for  a  starting  ad- 
dress and  an  ending  address  for  the 
data  you'll  be  entering.  Here  are  the 
values  to  use  for  Sprite  Designer: 

Starting  address:     84D0 
Ending  address:      9E47 

After  you've  saved  a  copy  of 
the  program,  load  it  with  LOAD 
"PROGRAM", 8,1  for  disk  or 
LOAD  "PROGRAM",!, 1  for  tape 
(replace  PROGRAM  with  the  name 
you  used  when  saving  the  pro- 
gram). To  start  the  program,  type 


SYS  34000  and  press  RETURN, 

Sprite  Designer  uses  the  mem- 
ory in  locations  8192-16383  to 
store  sprite  shape  data.  This  work 
area  can  hold  16  groups  of  8  sprites, 
allowing  you  to  have  a  total  of  128 
sprite  shapes  in  memory  at  one  time. 

Main  Menu 

When  you  start  Sprite  Designer,  it 
displays  a  main  menu  containing 
the  following  choices: 

1.  INITiALIZE 

2.  EDIT 

3.  ANIMATE 

4.  SAVE 

5.  LOAD 

6.  BASIC  DATA 

7.  MONOCHROME 
B.    MULTICOLORED 

0.  QUIT 

To  choose  a  menu  option,  sim- 
ply press  the  number  key  next  to 
that  option.  For  instance,  the  Edit 
option  lets  you  design  a  sprite.  To 
choose  that  option,  you  press  the  2 
key.  Let's  look  at  the  menu  options 
in  order, 

1.  Initialize 

Sprite  Designer  always  begins  by 
asking  you  if  you  want  to  initialize, 
or  clear  out,  the  entire  sprite  work- 
space. Since  this  action  erases  ail 
sprite  data  in  memory,  the  program 
asks  you  to  confirm  before  it  contin- 
ues. If  you  press  Y  to  answer  yes,  ev- 
ery dot  in  all  of  the  sprite  shapes  is 
turned  on.  You  can  choose  this  op- 
tion at  any  time  from  the  main  menu. 

2.  Edit 

Option  2  (Edit)  moves  you  to  the 
sprite-editing  screen,  which  is  di- 
vided into  three  areas.  In  the  lower 
right  comer  are  two  numbers  that 
show  the  sprite  series  you  are 
working  on,  as  u^ell  as  the  individ- 
ual sprite  you  are  designing.  Each 
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"Sprite  Designer"  is  a  comprehensive 
utility  for  designing  sprite  shapes  for 
use  in  games  and  aninialion.  This  pholo 
depicts  the  main  editing  screen. 


series  contains  eight  sprites,  and 
the  series  are  numbered  0-15,  cor- 
responding to  their  respective  posi- 
tions in  memory.  Within  a  series, 
each  of  the  eight  sprites  is  given  a 
number  0-7. 

In  the  upper-right  portion  of 
the  screen  you  will  see  the  shapes  of 
all  eight  sprites  in  the  current  series. 
As  you  design  a  sprite,  the  changes 
immediately  appear  in  this  area. 

The  left  portion  of  the  screen  is 
the  editing  area,  where  you  actually 
design  the  sprite  shape.  This  area  is 
24  X  21  spaces  in  size,  with  each 
screen  space  corresponding  to  a  dot 
in  the  sprite  shape. 

Editing  Functions 

Once  you  have  reached  the  editing 
screen,  you  need  to  remember  only 
one  command;  The  plus  key  (+) 
displays  an  entire  screen  of  instruc- 
tions for  editing.  To  return  from  the 
help  screen  to  the  editing  screen, 
press  any  key.  The  asterisk  (*)  re- 
turns you  from  the  editing  screen  to 
the  main  menu. 

When  you  enter  the  editing 
screen,  the  editing  area  contains  the 
shape  of  sprite  0  within  the  current 
series.  The  function  keys  f3-f6 
allow  you  to  select  any  series  and 
any  individual  sprite  within  a  se- 
ries. Press  f3  to  go  to  the  next  series, 
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or  f4  (SHIFT-f3)  to  go  back  to  the 
previous  series.  The  (5  key  ad- 
vances to  the  next  sprite  in  the  se- 
ries, while  f6  moves  to  the  previous 
sprite.  If  you  have  designed  a  series 
of  shapes  for  animation,  you  can 
hold  down  (3  or  f4  to  move  through 
the  entire  series  quickly. 

A  reverse-video  cursor  indi- 
cates your  position  in  the  editing 
area.  To  move  the  cursor  around, 
press  the  cursor  keys  just  as  you 
would  normally.  The  size  of  the  cur- 
sor depends  on  whether  you  are 
working  on  a  single  color  or  multi- 
color sprite.  For  a  single-color  sprite, 
the  cursor  is  a  square  one  space  in 
size;  for  a  multicolor  sprite,  it  is  a 
rectangle  two  spaces  in  size,  con- 
taining a  number  in  the  range  0-3. 

You  can  turn  on  every  dot  in 
the  current  sprite  shape  by  pressing 
CLR.  For  a  single-color  sprite,  the 
space  bar  lets  you  turn  individual 
dots  on  and  off  inside  the  editing 
area.  You  can  erase  a  dot  by  pressing 
the  space  bar  and  turn  a  dot  on  by 
pressing  SHIFT-SPACE  (hold  down 
SHIFT  and  press  the  space  bar). 

For  a  multicolor  sprite,  a  dot 
can  have  any  of  four  different  col- 
ors, including  the  background  color 
{see  "Multicolor,"  below).  Use  the 
numbers  0-3  or  the  letter  keys  Z,  X, 
C,  and  V  to  color  a  dot  with  the  de- 
sired color. 

You  also  can  change  the  posi- 
tion of  the  sprite  shape  within  the 
editing  frame,  shifting  everything 
one  dot  to  the  right,  left,  up,  or 
down.  This  is  done  by  holding 
down  the  Commodore  key  and 
pressing  W,  Q,  R,  or  E,  respectively. 

It  is  possible  to  flip  a  sprite 
shape  horizontally  or  vertically,  by 
pressing  Commodore-I  or  Commo- 
dore-K,  respectively. 

The  fl  key  allows  you  to  copy  a 
shape  from  one  sprite  to  any  other 
shape  in  memory.  First,  use  func- 
tion keys  f3-f6  to  put  the  shape  you 
want  to  copy  into  the  editing  area. 
Press  f  1  to  copy  the  shape;  then  use 
f3-f6  to  select  the  shape  you  want 
to  copy  to.  Press  fl  a  second  time, 
and  the  shape  is  copied  instantly. 

The  f2  key  inverts  every  dot  in 
the  current  sprite  shape.  Use  f7  and 
f8  to  change  the  sprite's  color. 
3.  Animate 

Option  3  (Animate)  lets  you  cycle 
through  all  the  sprite  shapes  in  as- 
cending order,  beginning  with  se- 
ries 0,  sprite  0.  When  you  choose 
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this  Option,  Sprite  Designer 
prompts  you  to  enter  a  delay  inter- 
val which  controls  the  speed  of  the 
animation.  The  smaller  the  delay 
interval,  the  faster  the  animation. 
Press  SHIFT-SPACE  to  stop  the 
animation  and  return  to  the  main 
menu.  You  can  also  use  keys  f3-f6 
to  cycle  forward  or  backward 
through  the  sprite  shapes,  as  ex- 
plained in  the  preceding  section. 

4.  Save 

Sprite  Designer  allows  you  to  save 
an  entire  set  of  sprite  shapes  to  disk 
or  tape.  Enter  a  filename  when 
prompted;  then  press  D  or  T  to  indi- 
cate disk  or  tape,  respectively.  To 
cancel  the  operation,  press  RE- 
TURN when  prompted  to  choose 
disk  or  tape.  If  a  disk  error  occurs, 
Sprite  Designer  prints  the  appropri- 
ate error  message  at  the  bottom  of 
the  screen. 

5.  Load 

This  option  allows  you  to  reload  a 
set  of  sprite  shapes  from  disk  or 
tape.  Follow  the  onscreen  prompts 
as  explained  in  the  preceding 
section. 

6.  Add  DATA  Lines 

Option  6  (BASIC  DATA)  lets  you 
save  sprite  shapes  in  the  form  of 
BASIC  DATA  statements.  This  is 
done  by  adding  DATA  lines  to  an 
existing  BASIC  program.  Activate 
Sprite  Designer  and  load  your  exist- 
ing sprite  shapes  or  design  new 
ones.  Once  the  sprite  shapes  are  in 
memory,  exit  Sprite  Designer  and 
type  NEW.  Then  load  the  BASIC 
program  to  which  you  wish  to  add 
the  sprites.  Don't  worry  that  the 
program  will  disturb  the  sprite 
shapes:  Sprite  Designer  automati- 
cally copied  them  into  a  safe  place 
(the  RAM  under  BASIC  ROM) 
when  you  exited  the  program. 

When  the  BASIC  program 
loads,  do  not  run  it.  Instead,  type 
SYS  34000  to  reactivate  Sprite  De- 
signer. Do  not  initialize  the  sprite 
shapes  at  this  stage,  or  load  any 
shapes  from  disk  or  tape.  Instead, 
choose  option  6.  The  program 
prompts  you  to  enter  the  series  of 
sprites  that  you  wish  to  save.  When 
that  is  done,  you  also  are  given  the 
opportunity  to  include  REMarks 
along  with  the  DATA  lines. 

After  you  answer  those  ques- 
tions, the  program  prompts  you  to 
enter  a  filename  and  indicate 
whether  to  use  disk  or  tape,  as  in 


options  4  and  5.  At  this  point, 
Sprite  Designer  adds  the  DATA 
lines  to  the  program  in  memory  and 
saves  the  new  program.  If  you  wish 
to  cancel  the  operation,  press  RE- 
TURN at  the  filename  prompt  with- 
out typing  anything. 

After  the  save  is  complete,  exit 
Sprite  Designer  and  type  NEW  (to 
reset  BASIC'S  internal  pointers).  In 
order  to  work  properly,  the  BASIC 
program  to  which  you  add  the 
DATA  lines  must  not  exceed  24 
disk  blocks  (6144  bytes)  in  length. 

7.  Monochrome 

Each  series  of  eight  sprites  can  be 
either  monochrome  (single  color)  or 
multicolor.  You  cannot  mix  mono- 
chrome and  multicolor  sprites  in 
the  same  series.  When  you  choose 
option  7,  a  16 -color  board  appears 
on  the  screen.  To  choose  a  color, 
press  the  letter  key  matching  that 
color.  That  color  will  be  used  for  all 
eight  sprites  in  the  designated  series. 

8.  Multicolor 

Option  8  allows  you  to  choose  col- 
ors for  a  series  of  multicolor  sprites. 
When  you  choose  this  option,  a  16- 
color  board  appears  as  described  in 
the  previous  section.  Since  a  multi- 
color sprite  can  have  four  colors, 
the  program  asks  you  to  select  four 
colors,  numbered  0-3,  When  you're 
drawing  in  multicolor  mode,  the 
cursor  contains  a  number  to  indi- 
cate which  color  you  are  drawing 
in.  To  switch  to  a  different  color, 
press  a  number  in  the  range  0-3.  A 
small  color  board  to  the  right  of  the 
drawing  area  shows  you  the  current 
drawing  colors. 
0.  Quit 

When  you  exit  Sprite  Designer,  the 
program  copies  all  the  sprite  shapes 
in  the  workspace  into  the  "hidden" 
RAM  underiying  the  BASIC  ROM 
chip.  This  is  done  to  make  it  easy 
for  you  to  alternate  between  using 
your  own  BASIC  programs  and 
Sprite  Designer.  You  can  load  and 
use  a  BASIC  program  after  using 
Sprite  Designer,  then  reload  and  ac- 
tivate Sprite  Designer  again.  If  you 
choose  not  to  initialize  the  work 
area.  Sprite  Designer  copies  the 
previously  stored  sprite  shapes 
back  into  its  workspace.  This  elimi- 
nates the  need  to  reload  the  sprites 
from  disk  or  tape  every  time  you 
switch  between  a  BASIC  program 
and  Sprite  Designer. 
See  program  listing  on  page  112.  W 


Memo  Diary 


Jim  Butterfield  Associate  Editor 


Keep  track  of  important  dates,  holidays,  and  personal  events 
with  this  simple,  easy  to  use  BASIC  program. 


"Memo  Diary"  helps  you  record 
and  recall  birthdays,  holidays,  ap- 
pointments, or  any  other  event 
worth  remembering.  The  program 
maintains  a  data  file  with  as  many 
as  100  events  whose  dates  can 
range  from  tomorrow  to  one  year  in 
the  future.  You  can  record  two  dif- 
ferent types  of  dates:  temporary, 
one-time  events  such  as  appoint- 
ments which  have  no  importance 
once  they  have  passed;  and  perma- 
nent, recurring  events  such  as  birth- 
days  and  anniversaries.  By 
routinely  running  Memo  Diary 
each  time  you  use  your  computer, 
you'll  no  longer  have  to  worry 
about  forgetting  to  mail  a  birthday 
card  to  a  relative  or  finding  an  anni- 
versary gift  for  a  spouse. 

The  program  always  shows  the 
correct  day  of  the  week  when  you 
enter  a  date,  and  you  need  to  enter 
the  year  only  once — the  very  first 
time  you  run  the  program.  After 
that  {for  the  next  99  years,  anyway) 
Memo  Diary  keeps  track  of  the  year 
for  you.  Each  time  you  run  the  pro- 
gram, it  automatically  shows  all 
due  and  overdue  events  on  the 
screen  or  printer,  and  erases  one- 
time events  from  the  calendar  after 
they're  displayed. 

You  can  enter  temporary  or  re- 
curring new  events  and  erase  exist- 
ing events  whenever  you  wish.  You 
can  also  examine  all  events  from 


the  current  date  forward,  or  search 
the  entire  calendar  for  events 
matching  a  given  starting  pattern. 
Finally,  Memo  Diary  saves  your 
calendar  either  on  disk  or  tape. 

Typing  The  Program 

Type  in  the  program  and  be  sure  to 
save  a  copy  and  read  the  instruc- 
tions before  running  it. 

The  first  time  you  run  Memo 
Diary  is  special.  Do  not  start  the  pro- 
gram by  entering  RUN.  You  should 
type  rIjN  100  and  press  RETURN. 
If  you  don't  do  this,  the  program  will 
)wt  work  correctli/.  When  you  start 
the  program  at  line  100,  Memo  Dia- 
ry lets  you  enter  the  correct  year 
without  looking  for  a  previous  file 
of  events.  Thereafter,  start  the  pro- 
gram with  RUN  in  the  usual  way. 

On  the  first  run  you'll  probably 
want  to  enter  fixed  holidays  such  as 
New  Year's  Day  as  well  as  birth- 
days and  anniversaries.  These  are 
permanent  events  that  you  won't 
need  to  enter  year  after  year,  A 
holiday  like  Thanksgiving  should 
be  entered  as  a  one-time  event 
since  it  falls  on  a  different  date  each 
year. 

When  Memo  Diary  asks  you  to 
enter  today's  date,  you  can  type  in 
the  name  of  the  month  (such  as 
OCTOBER)  or  its  number  (such  as 
10).  In  either  case,  be  careful  to  en- 
ter it  correctly.  Memo  Diary  lets  you 


enter  any  day  of  the  month  from  1 
to  31,  so  it  won't  mind  if  you  speci- 
fy the  date  as  February  30.  Mistakes 
like  these  may  confuse  the  calendar 
file.  For  instance,  if  you  use  the  pro- 
gram on  July  4  and  the  next  day 
mistakenly  give  the  date  as  June  5, 
the  computer  thinks  you've  let  al- 
most a  whole  year  go  by.  To  warn 
you  of  this,  Memo  Diary  displays 
HAPPY  NEW  YEAR.  If  you  see  this 
message  when  a  new  year  hasn't 
arrived,  stop  the  program  and  start 
over,  entering  the  correct  date. 

A  Memory  Jogger 

Except  for  the  very  first  run.  Memo 
Diary  always  begins  by  reporting 
all  due  and  overdue  events  ("You 
just  missed  your  anniversary"). 
Take  careful  note  of  these  events, 
since  they'll  soon  be  erased  from 
the  calendar  (if  they're  temporary 
events)  or  moved  ahead  to  next 
year  (if  they're  permanent).  To  help 
jog  your  memory.  Memo  Diary  also 
lets  you  make  a  copy  of  the  list  of 
events  on  your  printer. 

After  disposing  of  due  and 
overdue  events.  Memo  Diary  dis- 
plays five  options;  You  can  see  fu- 
ture events,  add  a  new  event,  cancel 
an  event,  search  for  an  event,  or 
quit  the  program.  You'll  ordinarily 
want  to  look  ahead  to  see  what's 
coming  in  the  next  week  or  two.  To 
do  this,  choose  Option  1  (see  future 
events)  and  supply  an  appropriate 
future  date  when  requested.  If  you 
enter  the  current  date  when  looking 
at  future  events.  Memo  Diary  as- 
sumes you  mean  the  same  date  next 
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year  and  gives  you  everything  on 
file. 

When  you  want  to  make  a  new 
entry,  select  Option  2  {add  new 
event).  First  Memo  Diary  asks 
whether  the  new  event  is  one-time 
or  permanent.  Then  it  lets  you  enter 
the  date  and  details.  Again,  the  cur- 
rent date  is  understood  as  one  year 
from  today  {it's  assumed  you  don't 
need  to  record  an  event  that's  hap- 
pening the  same  day). 

To  cancel  an  event  {Option  3), 
you  must  know  its  date.  When  an 
event  is  entered,  you're  shown  ev- 
ery item  scheduled  for  that  date, 
each  with  its  own  code  number.  To 
cancel  an  event,  type  in  its  code 
number  when  prompted. 

Option  4  (search  for  event)  lets 
you  search  for  an  event  based  on 
the  first  few  letters  of  the  entry.  You 
may  find  many  events  in  the  course 
of  a  search.  For  instance,  if  the  cal- 
endar file  contains  the  events  CLUB 
MEETING,  CLUB  CONFERENCE, 
and  CLUB  ELECTION,  searching 
for  CLUB  displays  all  three  events. 
In  this  case  you  would  not  see  the 
entry  CANADIAN  CLUB,  since 
CLUB  is  spotted  only  if  it's  in  the 
first  word  of  the  entry.  Thus,  if  you 
plan  to  search  for  certain  keywords 
{BIRTHDAY,  CHURCH,  SOFT- 
BALL, or  whatever)  keep  them  at 
the  front  of  each  calendar  entry. 

After  you've  finished  an  op- 
don.  Memo  Diary  always  returns 
you  to  the  main  menu.  Sooner  or 
later  you'll  be  ready  to  use  Option  5 
{quit).  The  program  knows  when 
it's  time  to  update  the  calendar  file. 
If  you've  erased  past  and  overdue 
events,  added  or  deleted  items. 
Memo  Diary  will — with  your  per- 
mission— proceed  to  update  the 
data  file  on  disk  or  tape. 

The  Time  Pivot 

A  program  that  handles  dates  can 
encounter  some  subtle  paradoxes. 
Does  August  come  before  April,  or 
after  it?  The  correct  answer  is  both. 
Memo  Diary  could  resolve  this  dif- 
ficulty by  adding  a  year  designation 
to  every  event,  but  that  complicates 
the  handling  of  permanent  events, 
which  don't  belong  to  a  specific 
year.  This  is  not  a  trivial  problem;  If 
you  schedule  a  new  event  for  Au- 
gust, the  program  must  decide 
whether  to  add  the  event  to  the  cal- 
endar ahead  of  an  existing  April 
event,  or  after  it.  Without  a  year 
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designation,  how  can  anyone  tell? 

The  problem  is  solved  by  using 
a  pivot  date,  usually  the  same  as  the 
current  date.  If  today  is  July  4,  Au- 
gust does  indeed  come  before  April, 
On  the  other  hand,  if  today  is  No- 
vember 11,  April  comes  before  Au- 
gust, Since  the  calendar  always 
looks  one  year  into  the  future,  ev- 
erything is  kept  in  order. 

However,  there's  one  case  in 
which  the  pivot  date  can't  be  the 
current  date.  Each  time  the  program 
begins,  it  must  measure  the  time 
lapse  since  its  last  use.  For  example, 
say  that  you  last  used  the  program 
on  August  20,  1985  and  next  use  it 
on  September  4,  1985.  On  the  first 
run  (August  20)  Memo  Diary  uses 
August  20  as  the  pivot.  That  way  an 
event  dated  September  1  is  seen 
ahead  of  another  item  dated  in 
October, 

On  the  second  nin  {September 
4)  the  September  1  event  is  report- 
ed as  past  due  and  either  erased 
from  the  calendar  (if  it's  temporary) 
or  moved  ahead  to  September  1  of 
next  year  (if  it's  permanent).  Once 
this  is  done,  the  pivot  date  moves 
forward  to  September  4,  meaning 
that  a  September  1  event  now  be- 
longs after  an  item  dated  in  Octo- 
ber. Don't  worry  if  this  sounds 
confusing:  It  works  out  more  sim- 
ply in  practice  than  in  theory. 

The  day  of  the  week  is  worked 
out  with  a  simple  formula.  If  you 
haven't  seen  it  before,  here's  a  hint 
on  how  it  works.  The  calendar  is 
modified  to  make  March  1  the  first 
day  of  the  "adjusted  year."  This 
way,  leap  year  with  its  extra  Febru- 
ary 29  date  doesn't  break  up  the  se- 
quence of  days:  The  extra  leap  day 
just  gets  pasted  onto  the  year's  end. 
Though  the  math  is  a  bit  convolut- 
ed, you  may  find  it  interesting  to 
trace  the  logic  of  this  routine  (it 
starts  at  line  2150). 

Expanding  The  Calendar 

Memo  Diary  can  keep  track  of  a 
maximum  of  100  events.  In  practice 
it's  wise  to  limit  the  number  to  80  or 
90  to  leave  room  for  permanent 
events  that  move  automatically 
from  the  front  to  the  back  of  the  list. 
If  you  need  more  than  100  events, 
change  the  L$  value  in  the  DIM 
statement.  Line  150  contains  the 
value  L$(100).  You  can  increase  the 
100  to  whatever  number  you  like, 
but  don't  get  carried  away.  Since 


Memo  Diary  uses  string  arrays,  a 
very  large  value  may  cause  garbage 
collection  delays.  There's  no  partic- 
ular limit  to  the  number  of  events 
allowed  for  a  particular  date. 

Program  Notes 

Let's  take  a  look  at  the  program's 
major  features.  Line  90  prepares 
Memo  Diary  to  read  a  file.  The  vari- 
able F  is  a  Boolean  (logical)  variable 
that's  defined  as  true  here,  to  let 
you  read  the  calendar  file  on  a  nor- 
mal run.  When  you  enter  at  line  100 
on  the  first  run,  F  is  false  (like  every 
other  undefined  variable)  and  no 
file  is  read, 

DATA  statements  in  lines 
110-140  hold  the  names  of  the 
months  of  the  year  and  days  of  the 
week;  the  names  are  read  into  the 
arrays  MS  and  W$.  Line  150  dimen- 
sions the  L$  array  for  100  items. 
Lines  230-250  call  for  a  reading  of 
the  calendar  file  if  appropriate.  This 
is  done  in  the  subroutine  at  line 
3010,  When  Memo  Diary  reads  this 
file,  it  detects  and  reports  the  last 
date  the  file  was  used.  Line  260 
asks  for  today's  date;  the  subrou- 
tine at  line  1670  asks  for  and  ac- 
cepts the  date. 

Now  it's  time  to  search  for  due 
and  overdue  events.  Using  the  pre- 
vious date  as  a  pivot,  the  subroutine 
at  line  1960  scans  for  all  events  up 
to  today's  date.  The  program  re- 
ports these  events,  erases  them,  or 
moves  them  ahead  as  needed,  and 
proceeds  to  the  main  menu.  Line 
680  begins  a  main  activity  loop:  It 
prompts  with  the  menu,  asks  for  a 
choice,  then  goes  to  the  appropriate 
subroutine.  Line  850  lets  you  see 
future  events.  Since  the  pivot  date 
is  now  today,  the  program  scans  to 
the  requested  future  date  to  see 
how  many  events  fall  into  the  to- 
day-to-future-date range. 

Line  940  lets  you  add  a  new 
event.  After  asking  ANNUAL  OR 
ONE-TIME?  the  program  requests 
the  event's  date  and  then  asks  for 
details.  After  adding  a  year  desig- 
nation to  the  date  of  one-time 
events,  the  new  event  is  inserted 
into  the  proper  sequence.  Line  1210 
lets  you  cancel  an  event.  Memo  Di- 
ary asks  for  a  date  and  then  lists  all 
events  that  match  that  date.  At  line 
1350,  the  program  asks  which 
event  to  delete.  Note  that  the  num- 
ber you  supply  must  be  in  the  cor- 
rect range. 


Line  1450  begins  the  search- 
for-an-event  routine.  After  it  re- 
ceives a  search  string  (P$),  the 
program  looks  for  a  match.  When  it 
scans  through  the  calendar,  It  must 
look  in  different  places  depending 
on  whether  the  event  is  one-time  or 
permanent.  That's  because  one- 
time events  carry  a  year  designa- 
tion, making  their  dates  three 
characters  longer. 

A  Horrible  Mistake? 

Line  1570  handles  the  quit  option; 
the  flag  F9  registers  activity.  If  you 
haven't  changed  any  of  the  data, 
there's  no  need  to  update  the  calen- 
dar file.  Before  scratching  the  old 
file  and  writing  the  new  one,  the 
program  asks  whether  you're 
ready.  That  way,  if  you  made  some 
horrible  mistake,  you  can  cancel  the 
file  update. 

The  main  loop  ends  at  line 
1580  and  is  followed  by  several 
subroutines.  The  routine  starting  at 
Une  1590  writes  a  new  calendar  file 
when  appropriate,  and  line  1670 
begins  the  date  input  roudne.  The 
date  is  formed  into  a  string  {D8$)  to 
allow  for  easy  searches  or  entry. 
The  subroutine  at  line  1930  reads 
the  calendar  file.  The  first  item  in 
the  file  is  always  the  most  recent 
date  of  use;  the  remaining  data  is 
events. 

The  subroutine  at  line  1960 
scans  all  events  to  see  which  have 
dates  betvireen  the  pivot  date  {D9$) 
and  a  second  date  {D8$).  There  are 
three  dates  involved;  event,  pivot, 
and  the  second  date,  which  makes 
the  comparison  a  bit  messy.  Bool- 
ean variables  keep  everything  in  or- 
der. Eventually,  the  variable  FO 
indicates  the  date  is  in  range,  and 
the  variable  LO  indicates  when  the 
last  event  is  found  within  the  date 
range. 

The  routine  starting  at  line 
4020  displays  the  information,  on 
the  printer  if  desired.)  The  date  is 
given  complete  with  the  day  of  the 
week,  and  events  falling  on  the 
same  day  are  grouped  together.  The 
weekday  calculation  begins  at  line 
2150.  The  weekday  variable,  W, 
ranges  from  0  to  6,  so  0  means  Sun- 
day. As  written,  this  routine  is  good 
for  years  ranging  from  85  (1985)  to 
84  (2084).  If  you  want  to  plan  more 
than  99  years  in  advance,  you'll 
need  to  modify  the  routine. 
See  program  listing  on  page  77.       m 


The 

Construction 

Set 


Fred  Karg 

This  unique  program  has  the  fun  elements  of  a  game,  but  it's 
not  a  game.  A  creative  toy?  Maybe.  If  that  sounds  too  vague,  it 
could  also  be  called  a  tool  for  computer-aided  design.  Whatever 
you  call  it,  you'll  find  it's  a  lot  of  fun  for  children — and  adults. 
A  joystick  is  required. 


All  our  lives  we  build  things,  often 
just  for  the  fun  of  it.  Toddlers  play 
with  building  blocks.  Grade  school- 
ers create  elaborate  structures  with 
Tinker  Toys,  Lego  blocks,  and  Erec- 
tor sets.  Teenagers  put  together 
model  cars  and  planes.  Adults  have 
basement  workshops  for  making 
things  out  of  wood.  Even  the  pro- 
cess of  writing  a  computer  program 
can  be  described  as  building  some- 
thing from  parts. 

"The  Construction  Set"  is 
unlike  most  other  computer  pro- 
grams. It  can  hold  up  to  four  differ- 
ent sets  of  building  blocks  which 
can  be  combined  easily  in  any  way 
you  like.  No  one  wins  or  loses  and 
there's  no  high  score.  But  it's  great 
fun  to  create  your  own  interesdng 
picture. 

Special  Typing  instructions 

The  program  listings  include  a 
BASIC  program  and  three  pro- 
grams in  MLX  format.  Type  in  Pro- 
gram 1  (The  Construction  Set  Main 
Program)  first.  Datassette  owners 
should  change  DI=8  to  DI  =  1  in 
line  160. 


The  three  MLX  listings  {Pro- 
grams 2-4)  are  not  machine  lan- 
guage programs;  they're  character 
sets  for  three  different  sets  of  build- 
ing blocks.  Follow  these  directions 
to  create  each  of  the  character  sets: 

1.  Load  the  MLX  entry  pro- 
gram (found  elsewhere  in  this  is- 
sue). If  you  haven't  used  it  before, 
be  sure  to  read  the  directions 
carefully. 

2.  Type  RUN  and  answer  the 
prompts; 

Starting  Address:    7O00 
Ending  Address:     7803 

3.  Type  in  Program  2,  3,  or  4. 
When  you've  finished,  save  the 
program. 

4.  Repeat  these  steps  for  each 
of  the  character  sets  you  wish  to 
use, 

You  don't  have  to  type  in  all  of 
the  character  sets,  but  you  need  at 
least  one  for  The  Construction  Set 
to  work  properly. 

Line  170  of  the  main  program 
keeps  track  of  how  many  character 
sets  will  be  loaded  and  what  their 
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names  are.  Currently,  it's  set  up  for 
3.  If  you  enter  only  one  or  two  sets 
of  building  blocks,  change  the  3  to  a 
2  or  1  and  follow  it  with  a  comma 
and  the  name  you  used  to  save  the 
character  set  file. 

Tape  users  should  be  especial- 
ly careful  with  line  170.  Save  all  of 
the  character  sets  to  the  same  tape, 
one  after  another.  Remember 
which  one  was  saved  first  and 
make  sure  that  filename  is  the  first 
in  line  170.  For  example,  if  you 
typed  in  and  saved  the  first  two 
sets,  and  saved  them  as  HOUSE 
and  MONSTERS,  line  170  of  the 
main  program  should  read: 
170  DATA  2,"HOUSE", "MONSTERS" 

Remember  to  modify  line  160 
as  well. 

Putting  Together  A  Picture 

When  you  first  load  and  run  The 
Construction  Set,  you'll  see  the 
menu  of  commands  on  screen 
while  the  program  loads  the  char- 
acter sets. 

Any  time  you  want  to  check 
the  menu,  press  f7  and  the  list  of 
commands  will  appear  {press  f7  to 
go  back  to  the  work  area). 

The  work  screen  is  divided  into 
two  parts.  At  the  bottom,  you 
should  see  several  building  blocks. 
A  pointing  hand  symbol  floats 
above  the  blocks.  Use  the  cursor 
keys  (left  and  right)  to  move  the 
hand  back  and  forth  to  select  the 
block  you  wish  to  place  on  the 
screen.  Press  the  plus  and  minus 
keys  to  see  more  building  blocks  in 
the  same  set.  Some  blocks  are  full 
size,  others  are  shorter. 

The  top  part  of  the  screen  is  the 
work  space.  At  first  the  screen  is 
blank,  except  for  a  window  (a  hol- 
low rectangle).  With  a  joystick  in 
port  2,  move  the  window  around 
the  screen.  Then  press  the  joystick 
fire  button  to  place  a  building  block 
on  the  screen  in  the  same  position 
as  the  rectangle.  To  erase  it,  tap  the 
INST/DEL  key.  Whichever  block 
the  hand  is  pointing  to  at  the  bot- 
tom of  the  screen  is  the  one  that's 
stamped  on  the  screen. 

The  process  of  creating  a  de- 
sign is  fairly  easy.  First  move  to  the 
set  of  blocks  you  want  with  the  plus 
and  minus  keys,  then  use  the  cursor 
keys  to  move  the  hand  to  the  pat- 
tern you  want.  After  selecting  a 
block,  position  the  window  and 
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press  the  fire  button.  Patterns  can 
be  repeated  as  often  as  you  like. 

If  you  forget  the  commands, 
press  f7  to  see  the  menu.  If  you 
want  to  start  over,  clear  the  screen 
by  pressing  the  shifted 
CLR/HOME  key. 

When  you're  finished,  you  can 
experiment  with  different  colors  for 
different  parts  of  the  screen.  Press 
the  left-arrow  key  (right  above 
CTRL)  and  then  one  of  the  follow- 
ing keys. 

(-)  (1:  Change  border  color. 
(-)  O;  Change  screen  color. 
(-)  f5:  Change  character  colors. 

Four  Character  Sets, 
Four  Screens 

The  Construction  Set  has  room  for 
four  different  character  sets.  Each 
defines  a  set  of  building  blocks.  The 
three  accompanying  the  program 
are  "House"  for  making  brick 
buildings,  "Creature"  for  putting 
together  people  (and  monsters), 
and  "Shapes"  for  abstract  patterns. 
These  custom  character  sets  were 
created  with  "Ultrafont  +"  from 
the  July  1984  GAZETTE.  You  can  cre- 
ate your  own  Construction  Set 
building  blocks  if  you  have  a  copy 
of  Ultrafont  +.  You  could  invent 
building  blocks  for  electronic  cir- 
cuits, quilts,  landscapes,  flags,  or  a 
variety  of  other  patterns. 

Each  set  of  building  blocks  has 
its  own  screen.  You  can  travel  be- 
tween the  workspaces  of  each  of 
the  character  sets  by  pressing  fl  (as 
mentioned  above,  if  you  press  the 
left-arrow  key  first,  fl  changes  the 
border  color).  The  pictures  you've 
created  are  preserved  when  you 
switch  back  and  forth.  So  if  you 
press  fl  four  times,  you'll  come 
back  to  the  screen  where  you  start- 
ed and  the  picture  will  still  be  there. 

An  interesting  modi fica don  for 
children  is  to  load  the  same  set  of 
building  blocks  into  all  four  work- 
spaces. For  example,  you  could 
change  line  170  to  170  DATA  4, 
"CREATURE","CREATURE- 
","CREATURE","CREATURE" 
(tape  users  will  have  to  use  MLX  to 
save  the  Creature  font  four  times  in 
a  row  on  a  single  tape).  Then  have 
the  child  make  up  a  story  and  build 
four  pictures  to  illustrate  the  plot. 
When  the  characters  have  been  put 
together,  use  fl  to  step  through  the 
pictures  as  the  child  tells  the  story, 
See  program  listings  on  page  117.  ffl 


Save  Your 
Copies  of 
COMPUTE! 

Protect  your  back  issues 
of  COMPUTE!  in  durable 
binders  or  library  cases. 
Each  binder  or  case  is 
custom-made  in  flag-blue 
binding  with  embossed 
white  lettering.  Each  holds 
a  year  of  COMPUTE!.  Or- 
der several  and  keep 
your  issues  of  COMPUTE! 
neatly  organized  for  quick 
reference.  (These  binders 
make  great  gifts,  tool) 


Binders  Cases: 

$9.95  each;  $7.95  each; 

3  for  $27.95;  3  for  $21.95; 

6  for  $52.95  6  for  $39.95 

(Please  add  $2.50  per  unit 
for  orders  outside  the  U.S.) 

Send  in  your  prepaid  order 
with  the  attached  coupon 


Mail  to:  Jesse  Jones  Industries 
P.O.  Box  5120 
Dept.  Code  COTE 
Philodelptiia,  PA  19141 

Please  send  me COM- 

PUTEI  n  cases  D  binders. 
Enclosed  is  my  check  or  money 

order  for  S (U.S.  funds 

only.) 

Name 

Address 

City 

State Zip 


Satisfaction  guaronteed  or  money 

refunded. 

Please  allow  A-6  weeks  for  dellverv- 


^ 


Only  NRI  teaches  you  to  service  all  computers 
as  you  build  your  own  fully  IBM;, 
compatible  microcomputer 


With  computed  firmly  established  in 
offices— and  more  and  more  new 
applications  being  de\'eloped  for  every 
fac«t  of  business-the  demand  for 
trained  computer  service  technicians 
surges  forward.  The  Department  of 
Labor  estimates  that  computer  service 
jobs  will  actually  doubk  in  the  next  ten 
years-a  faster  growth  rate  thiii  for  any 
other  occupation. 

Thtal  systems  training 

No  computer  stands  alone. . . 
it's  part  of  a  total  system.  And  if 
you  want  to  learn  to  service  and  repair 
computers,  you  have  to  understand 
computer  systems.  Only  NRI  includes  a 
powerful  computer  system  as  part  of 
your  training,  centered  around  the  new, 
hilly  IBM-compatible  Sanyo  880  Series 
computer. 

As  part  of  your  training,  you'U  build 
this  highly  rated,  16-bit,  IBM-compatible 
computer  system.  You'U  assemble 
Sanyo's  "intelligent"  keyboard, 
install  the  power  supply  and  disk 
drive  and  interface  the  high- 
resolution  monitor.  The  880 
Computer  has  two  operating 
speeds:  standard  IBM  speed 
of  4.77  MHz  and  a  remarkable 
turbo  speed  of  8  MHz.  It's  con- 
fidence-building, real-world 
experience  that  includes  training 
in  programming,  circuit  desip 
and  peripheral  maintenance. 

No  experience  necessary— 
NRI  builds  it  in 

Even  if  you've  never  had  any  previous 
training  in  electronics,  you  can  succeed 
with  NRI  training.  You'll  start  with  the 
basics,  then  rapidly  build  on  them  to 
master  such  concepts  as  digital  logic, 
microprocessor  design,  and  computer 
memory.  You'll  build  and  test  advanced 
electronic  circuits  using  the  exclusive 
NRI  Discovery  Lab*,  professional  digital 
multimeter,  and  logic  probe.  Like  your 
computer,  they're  aU  yours  to  keep  as 


part  of  your 
training.  You  even 
get  some  of  the 
most  popular  soft;ware,  including  WordStar, 
CalcStar,  GW  Basic  and  MS  DOS. 


Send  for  lOO-page  free  ca  talog 

Send  the  coupon  today  for  NRI's  100- 
page,  hill-color  catalog,  with  dl  the  facts 
about  at-home  computer  training.  Read 
detailed  descriptions  of  each  lesson, 
each  experiment  you  perform.  See  each 
piece  of  hands-on  equipment  you'll  work 
with  and  keep.  And  check  out  NRI 
training  in  other  high-tech  fields  such 
as  Robotics,  Data  Communications, 
TV/Audio/  Video  Servicing,  and  more. 


SEND  COUPON  TODAY  FOR  FREE  NRI  CATALOG! 
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128  DOS  Wedge 

Shawn  K.  Smith 

This  litilitif  makes  it  easier  for  128  users  to  communicate  with 
their  disk  drive — the  1541  or  1571.  Similar  to  DOS  wedges  for 
the  VIC  and  64,  its  commands  should  be  familiar  to  many 
Commodore  owners. 


Commodore  disk  drives  are  intelli- 
gent peripherals.  They  have  their 
own  RAM,  ROM,  and  CPU.  The 
computer  gives  commands  to  the 
disk  drive,  and  the  drive  decides 
how  to  carry  them  out. 

Unfortunately,  the  interface 
between  the  user  and  disk  drive 
isn't  always  friendly.  To  aid  owners 
of  the  VIC  and  64  (and  the  1 28  in  64 
mode),  Commodore  supplies  the 
VlC-20  Wedge  and  the  C-64  Wedge 
on  the  Test /Demo  disk  that  comes 
with  the  1541  disk  drive.  Unfortu- 
nately, no  wedge  has  been  made 
available  for  the  Commodore  128. 
Of  course,  BASIC  7.0  has  new  disk 
commands,  but  these  are  longer 
than  the  DOS  wedge  equivalents 
and  are  unfamiliar  to  people  who 
have  previously  used  the  wedge  on 
the  64  or  VIC. 

Simple  And  Efficient 

To  demonstrate  the  efficiency  of  the 
DOS  wedge,  let's  look  at  a  quick  ex- 
ample. Assume  that  the  light  on 
your  disk  drive  is  blinking,  and  you 
want  to  read  the  error  channel. 
Without  the  wedge,  you  must  type 
this  (in  BASIC  2.0): 

10  OPENl,B,15;INPUT#l,E,DS,TS, 
SS:CU3SE1:PRINT  E;DS;T$;S$ 

With  the  wedge  activated,  sim- 
ply type  an  at  sign  (@)  and  press 
RETURN.  The  equivalent  BASIC 
7.0  command  is  PRINT  DS$.  This  is 
preferable  to  the  BASIC  2.0  version, 
but  it  requires  seven  more  key- 
strokes than  the  wedge. 

"128  DOS  Wedge"  works  only 
indirect  mode.  If  you  need  to  access 
the  drive  from  within  a  program, 
you  should  use  the  special  com- 
mands BASIC  7.0  offers.  In  direct 
mode,  however,  one  keystroke  is  all 
you  need  to  perform  a  variety  of 
useful  disk  functions, 
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Typing  It  In 

Because  128  DOS  Wedge  is  written 
entirely  in  machine  language,  it 
must  be  entered  with  "MLX,"  the 
machine  language  entry  program 
found  elsewhere  in  this  issue.  Be 
sure  to  read  and  understand  the  in- 
structions for  using  MLX  before  you 
begin  entering  the  data  for  128 
DOS  Wedge.  When  you  run  MLX, 
you'll  be  asked  for  a  starting  ad- 
dress and  an  ending  address  for  the 
data  you'll  be  entering.  The  correct 
values  for  128  DOS  wedge  are 

Starting  address:     lAOO 

Ending  address;      lAEF 

After  you  finish  typing  in  the  data, 
be  sure  to  save  a  copy  before  you 
leave  MLX.  When  you're  ready  to 
use  the  wedge  program,  you  can 
load  and  execute  it  using 
BLOAD"/t(eHflm£":SYS  66S6 
or 
BOOT  "filename" 

Substitute  the  filename  you  used 
when  you  saved  the  128  DOS 


Wedge  data  for  filename  in  the  com- 
mands above. 

With  the  wedge  in  memory, 
you  can  save  a  copy  of  it  to  another 
disk  with  this  statement: 

BSAVE"/i7^nflme",P6656  TO  P6896 

Now,  with  128  DOS  Wedge 
loaded  and  activated,  you  have  a 
powerful  disk  management  system. 
(See  the  table  for  a  list  of  available 
commands  and  explanations.) 

128  DOS  Wedge  is  stored  in 
the  free  RAM  area  at  locations 
$1A00-1AED,  so  it  doesn't  inter- 
fere with  BASIC.  However,  any 
other  ML  program  or  data  stored  in 
this  area  will  cause  conflicts.  The 
program  also  uses  the  RS-232  input 
buffer  {at  $0C0O)  for  analyzing 
command  strings. 

If  you  need  to  disable  the 
wedge,  use  the  !  command.  The 
wedge  can  be  reactivated  with  SYS 
6656. 

Following  is  a  list  of  128  DOS 
Wedge  default  settings. 

•  All  loads,  saves,  verifies,  and  di- 
rectory lisdngs  are  directed  to  de- 
vice 8  (U8),  drive  0  (DO). 

•  All  disk  commands  (@  or  >)  de- 
fault to  device  8.  The  drive  number 
(if  applicable)  should  be  supplied 
by  you. 

•  The  %  command  loads  a  file  be- 
ginrung  at  the  address  from  which 
it  was  saved.  If  you  want  to  load  a 
binary  file  into  a  bank  other  than 
zero,  use  BASIC'S  BLOAD  command 
instead. 

See  program  listing  on  page  121. 


128  DOS  Wedge  Commands 

Drive  Status:  @  or  >  Use  this  command  when  the  drive  light  is  blinking. 

Send  Command:  @command  or  > command  This  sends  a  command  to  the  disk 
drive. 

Examples:  @S(i:fikname  (scratches  a  file) 

@SQ:fiknamel,jilensm£l,filename3 

@RO:newname=oldname  (renames  a  file) 

Directory:  •  or  S  This  command  lists  the  directory.  Wildcards  are  allowed. 
Examples:  *  (lists  entire  directory) 

$•  — S  (lists  all  sequential  files) 

Load  BASIC  program:  /  filename  loads  a  BASIC  program  into  memory. 

Load  and  run  BASIC  program:  T  filename  loads  and  runs  a  BASIC  program. 

Load  a  binary  file:  %  filename  toads  a  binary  file  into  memory. 

Save  file;  -  filename  saves  a  file  to  disic. 

Verify  file: ;  filename  verifies  a  program. 

Disable  wedge:  I  turns  the  wedge  off. 

Reactivate  wedge:  SYS  6656  turns  the  wedge  back  on.  | 


128  Instant  Keywords 


Shawn  K.  Smith 


Save  time  and  typing  effort  with  this  short  utility  for  the  Com- 
modore 128.  Up  to  52  keywords  can  be  entered,  each  an  easy- 
to-remember,  tivo-key  combination. 


"Instant  Keywords"  can  drastically 
reduce  the  time  it  takes  to  type  in  a 
program.  This  utility  prints  a  BASIC 
7.0  keyword  when  the  Commodore 
or  SHIFT  key  is  pressed  in  conjunc- 
tion with  a  letter  key.  For  instance, 
pressing  the  SHIFT  and  L  keys  dis- 
plays the  keyword  LOOP.  A  total  of 
52  keywords  can  be  displayed  in 
this  fashion.  Refer  to  the  chart  for  a 
list  of  the  key  combinations.  Also, 
pressing  the  SHIFT  or  Commodore 
key  while  in  quote  mode  displays 
the  standard  graphics  characters 
rather  than  a  BASIC  keyword. 

Instant  Keywords  is  short  and 
easy  to  use.  Although  it  contains 
mostly  machine  language  (ML), 
you  don't  have  to  know  any  ML  to 
use  it.  In  fact,  you  can  just  type  it  in 
and  run  it  as  a  BASIC  program. 
First,  type  in  the  program  and  then 
save  a  copy.  When  you  run  it,  the 
BASIC  loader  stores  the  ML  in  an 
area  of  RAM  which  is  determined 
by  the  value  S  in  line  100  {changing 
the  value  of  S  will  relocate  the  utili- 
ty). Once  the  data  is  stored  in  RAM, 
the  utility  is  activated,  the  address 
to  deactivate/reactivate  it  is  dis- 
played, and  the  loader  is  erased 
from  memory.  Pressing  RUN/STOP 
and  RESTORE  is  another  way  to 
deactivate  the  program. 

Modifying  The  Program 

Readers  may  wish  to  rearrange  the 
utility  to  support  a  different  set  of 


keywords.  This  can  be  accom- 
plished with  minor  changes  to  the 
utility.  But  first,  a  quick  background 
about  keywords  is  in  order.  BASIC 
7.0  contains  130  plus  commands  or 
keywords.  Most  of  the  keywords 
(including  all  of  the  keywords  in 
the  64's  BASIC  2.0)  are  represented 
by  one-byte  tokens.  For  instance, 
the  command  PRINT  is  stored  in 
the  computer  with  a  token  value  of 
$99  (153  decimal).  Because  the  128 
has  a  larger  vocabulary,  the  design- 
ers of  the  128  decided  to  use  two- 
byte  tokens  to  represent  some  of 
the  new  commands.  All  of  the  new 
two-byte  commands  use  $CE  or 
$FE  as  the  first  byte  of  the  token.  In- 
stant Keywords  will  allow  you  to 
use  any  keyword  except  those  that 
begin  with  $CE  as  the  first  token 
value.  (This  eliminates  the  use  of 
only  eight  keywords.) 

The  last  52  hexadecimal  values 
in  the  loader  (beginning  with  OB  in 
line  200)  are  the  token  values  of  the 
keywords  displayed  by  Instant  Key- 
words. The  first  26  hex  values  are 
for  the  SHIFT  key  (the  token  for 
SHIFT-A  is  the  first,  and  the  token 
for  SHIFT-Z  is  the  twenty-sixth). 
The  last  26  values  are  for  the  Com- 
modore key.  If  you  plan  to  add  to- 
kens for  any  two-byte  commands, 
leave  off  the  first  byte  ($FE) — the 
program  knows  that  it  is  a  two-byte 
command  and  will  adjust  itself  ac- 
cordingly, if  you're  unsure  of  the 


token  value  of  any  keyword,  type 
in  this  program: 

10    GOTO 30 

20    REM    **PLACE    KEYl^IORD    HERE** 

30    ={Bll5:B=PEEK(45}  +  ].2  +  PEEK(4 

6)*256:PRlHT"KEYWORD  VALUE ( 

S)  =  "; 
40  [t=PEE:K(B)  :PRINTRIGHT5(DIM(H 

),2);"  "; 
50  IFH=2  54ORH=206THENB=B+l!GOT 

040 

In  line  20,  type  the  keyword 
for  which  you  want  to  find  the 
token  value.  Run  the  program  and 
it  will  display  the  token  value  for 
the  keyword  you've  inserted. 


Letter 

SHIFT 

Commodore 

A 

SLEEP 

STR$ 

B 

BEGIN 

BEND 

C 

CHR$ 

COLOR 

D 

DOPEN 

DCLOSE 

E 

ELSE 

ENVELOPE 

F 

FOR 

FILTER 

G 

GOTO 

GOSUB 

H 

HEX$ 

DEC 

I 

INPUT 

INSTR 

J 

JOY 

PLAY 

K 

DRAW 

CHAR 

L 

LOOP 

LOCATE 

M 

MID$ 

MOVSPR 

N 

NEXT 

COLLISION 

O 

TAB( 

SPC( 

P 

PRINT 

PAINT 

Q 

GSHAPE 

SSHAPE 

R 

RETURN 

RESTORE 

S 

SPRITE 

SOUND 

T 

THEN 

TEMPO 

U 

USING 

UNTIL 

V 

READ 

DATA 

w 

WHILE 

WINDOW 

X 

POKE 

PEEK 

Y 

GRAPHIC 

CIRCLE 

z 

LEFTS 

RIGHTS 

See  program  listing  on  page  126. 
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64  Mode  Speed-Up 

For  The  128 


Gary  Lamon 


Once  you  get  used  to  the  128's  fast  mode,  64  mode  seems  espe- 
cially slozv.  This  short  program  offers  a  way  to  significantly 
speed  tilings  up.  For  the  128  in  64  mode  only;  the  program 
doesn't  work  on  a  standard  64. 


The  more  you  use  a  computer,  the 
more  you  wonder  if  it  couldn't  be 
just  a  bit  faster — especially  when  it's 
in  the  middle  of  a  time-consuming 
task  like  alphabetizing  a  list  of  800 
names.  If  you  own  a  Commodore 
128,  you  can  use  the  FAST  com- 
mand to  double  the  speed  of  pro- 
grams running  in  80  columns. 
Although  it  also  works  in  40  col- 
umns, the  screen  goes  blank.  When 
you  type  GO  64,  you  give  up  access 
to  the  FAST  command,  but  you  don't 
have  to  give  up  fast  mode.  There  are 
several  interesHng  wa\'s  to  squeeze 
more  speed  out  of  the  Commodore 
128's  64  mode.  First,  let's  look  at 
some  background  information. 

Every  computer  has  an  internal 
clock  which  paces  the  processor. 
The  faster  the  clock's  speed,  the 
more  instructions  the  computer  can 
execute  in  a  given  time,  A  Commo- 
dore 64  contains  a  6510  micro- 
processor with  a  clock  speed  of 
about  1  megahertz  (MHz),  one  mil- 
lion cycles  per  second.  On  the  other 
hand,  the  Commodore  128  uses  an 
8502  microprocessor  that's  compat- 
ible with  the  6510  but  can  run  at  a 
speed  of  either  1  or  2  MHz.  When 
you're  using  the  64  mode  on  your 
128,  the  system  automatically  sets 
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the  speed  of  the  8502  so  that  the 
machine  performs  exactly  like  a 
Commodore  64. 

It  seems  a  waste  that  128  users 
cannot  make  use  of  this  additional 
speed  when  running  their  old  64 
programs  in  64  mode.  But  there  is  a 
way.  We  can  double  the  computer's 
speed  in  64  mode  with  a  few  simple 
pokes: 

POKE  53296,1  (double  speed) 
POKE  53296,0  (normal  speed) 
POKE  53296,3  (iloublt  speed  and  screen 
ofO 

If  you  trj'  the  first  or  third  of 
these  POKEs  in  64  mode,  you'll  in- 
deed find  that  your  programs  run  at 
twice  normal  speed;  but  there's  a 
problem.  The  screen  fills  with  a 
flashing  checkerboard  pattern  {if 
you  use  the  first  POKE)  or  goes  com- 
pletely blank  (if  you  use  the  second). 
The  regular  screen  is  still  there,  but 
it  cannot  be  read.  The  problem  is 
that  the  40-column  video  chip  (the 
VIC  11)  cannot  keep  up  with  the 
8502  when  the  8502  is  running  at  2 
MHz,  The  third  POKE  works  well 
on  a  64  program  that  does,  say,  a 
great  deal  of  number  crunching. 
With  this  kind  of  program,  it's  prob- 
ably not  important  to  have  video  for 
part  of  the  program's  execution. 


There's  another  way  of  achiev- 
ing a  significant  speed  increase 
while  retaining  an  almost  normal 
picture.  The  program  accompany- 
ing this  article — "64  Mode  Speed 
Up" — provides  approximately  a  20 
percent  speed  increase  and  leaves 
the  screen  readable.  After  typing  in 
the  program,  save  a  copy.  While  in 
64  mode,  load  and  run  the  program 
and  then  type  NEW.  Your  machine 
is  now  20  percent  faster.  To  return 
to  normal  speed,  tvpe  SYS  49236  or 
press  RUN/STOP-RESTORE.  To 
get  back  to  fast  speed,  type  SYS 
49152.  If  you'd  like  to  check  this, 
write  a  short  BASIC  program  with  a 
large  loop  (such  as;  10  FOR  I  =  1 
TO  30000:NEXT)  and  time  it  to 
measure  the  speed  increase.  {Note: 
You  should  return  to  regular  speed 
before  ali  disk  or  tape  operations). 

How  It  Works 

You  may  have  noticed  a  flash  at  the 
top  of  the  screen  while  at  fast 
speed.  This  is  normal.  But  what 
causes  this  flash  and  how  does  the 
program  work? 

The  program  works  by  using  a 
machine  language  raster  interrupt 
routine  in  locations  49152-49258. 
The  raster  can  be  thought  of  as  a 
sort  of  paintbrush  that  paints  the 
picture  on  the  video  screen.  The 
raster  paints  one  line  at  a  time 
across  the  screen  starting  at  the  top 
left  and  then  moves  down  one  line 
at  a  time.  The  program  takes  ad  van- 


tage  of  the  fact  that  we  can  see  only 
raster  lines  51  to  251.  The  computer 
is  interrupted  when  the  raster  is  at 
line  251  (the  last  visible  line)  and 
toid  to  speed  up  to  2  MHz.  This 
speed  is  maintained  until  the  raster 
reaches  line  51  (the  first  line  we  can 
see)  and  then  reduced  to  1  MHz. 
While  the  screen  is  "painted,"  the 
computer  is  running  at  regular 
speed,  The  result  is  a  computer  that 
runs  faster,  and  you  don't  have  to 
sacrifice  the  screen. 

But  what  causes  the  flash  at  the 
top  of  the  screen?  Occasionally  the 
computer  is  performing  a  task  and 
does  not  want  to  be  interrupted 
quite  yet,  so  a  few  raster  lines  are 
done  at  the  2  MHz  speed.  (Remem- 
ber what  happened  when  you  typed 
POKE  53296,1?) 

Two  memory  locations  within 
the  interrupt  program  can  be  used 
to  speed  up  the  system  even  more; 

POKE  49257,  kip  raster  line 
POKE  49258,  bottom  raster  line 

As  an  example,  try  this  with 
the  fast  mode  operating  (after  SYS 
49152):  POKE  49257,150.  You'll 
find  that  the  flashing  garbage  will 
expand  to  fill  the  upper  half  of  the 
screen,  but  the  lower  half  will  re- 
main normal.  The  computer  will 
now  run  about  1.6  times  faster  than 
a  normal  64.  You  can  expand  or 
contract  the  screen  any  way  you 
like  with  the  two  POKEs  above. 
The  more  "garbage"  visible,  the 
faster  the  computer.  One  good  way 
to  visibly  check  the  speed  of  the 
computer  is  to  load  a  BASIC  pro- 
gram and  LIST  it  at  the  fast  speed 
and  at  regular  speed.  The  listing 
will  scroll  by  considerably  faster 
with  the  interrupt  operating. 
See  program  lisiitig  on  page  122.  q 
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Mozart  Magic 


James  Bagley 


Based  on  a  musical  game  devised  by  the  composer  Mozart,  this 
delightful  program  for  the  Commodore  128  composes  its  own 
minuets  in  the  style  of  Mozart  himself. 


This  Commodore  128  program  i,s  a 
translation  of  a  game  by  Wolfgang 
Amadeus  Mozart,  It  composes  a 
complete,  original  minuet  at  ran- 
dom. Mozart  delighted  in  games  of 
chance,  so  it  was  only  natural  that 
he  should  combine  his  two  interests 
and  produce  an  activity  known  as 
MusikaUscbes  Wiierfehpiel,  or  musi- 
cal craps.  The  idea  was  not  original 
with  Mozart,  but  his  effort  was  the 
most  successful. 

Making  Music 

Type  in  and  save  the  program;  then 
run  it.  After  it  plays  an  introduction 
and  initializes,  the  program  dis- 
plays a  menu.  You  can  choose  a  dif- 
ferent instrument  for  each  voice, 
but  most  songs  sound  best  if  you 
choose  the  same  instrument  for  a!! 
three  voices.  Some  of  the  instru- 
ments such  as  the  drum  and  xylo- 
phone may  sound  strange  or  faint; 
they  are  included  for  the  sake  of 
completeness,  so  you  can  hear  what 
all  the  128's  instruments  sound 
like. 

The  next  menu  allows  you  to 
change  the  tempo.  Press  F  to  in- 
crease the  speed  at  which  the  minu- 
et is  played,  press  S  to  decrease  the 


speed,  and  press  E  to  exit  the  rou- 
tine. The  tempo  always  defaults  to 
8.  The  main  menu  reappears  after 
the  minuet  is  finished. 

The  program  itself  is  structured 
to  reflect  the  composer's  original 
technique,  Mozart  set  up  two  grids 
of  8  columns  and  11  rows.  The  col- 
umns were  numbered  1-8,  and  the 
rows  were  numbered  2-12.  On  the 
first  throw  of  the  dice,  he  scanned 
down  the  first  column  to  the  row 
numbered  the  same  as  the  sum  of 
the  two  die.  At  this  intersection  was 
a  number.  He  then  copied  down  a 
measure  of  music  corresponding  to 
this  number  and  repeated  the  pro- 
cess until  he  reached  the  eighth  col- 
umn of  the  first  part. 

In  the  eighth  column  of  the 
grid,  each  number  referred  to  a 
measure  of  music  with  two  sets  of 
notes.  Because  the  music  modulat- 
ed to  the  dominant,  the  lower  notes 
served  for  the  first  ending  and  the 
upper  notes  were  for  the  second 
ending.  Since  these  measures  were 
a!!  the  same,  M2S(1)  is  used  in  the 
program  for  the  first  ending  and 
M2$(2)  for  the  second  ending  of  the 
first  part  of  the  minuet. 
See  program  Hstmg  on  page  115.  9 
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128  File  Viewer 


Jeffrey  D.  Partch 


This  Commodore  128  utility  packs  a  double  punch.  It  can  print 
the  contents  of  any  disk  file  or  disassemble  any  machine  lan- 
guage program  directly  from  disk.  Neither  operation  disturbs 
the  program  currently  in  memory.  A  disk  drive  is  required. 


Have  you  ever  wanted  to  know  the 
contents  of  a  mysterious  file  in  the 
disk  directory,  or  needed  to  look  at 
another  file  during  a  programming 
session?  All  too  often,  getting  that 
information  requires  a  lot  of  saving, 
loading,  and  listing.  "128  File 
Viewer"  allows  you  to  display  the 
contents  of  any  program  (PRG)  or 
sequential  (SEQ)  disk  file  on  the 
screen  without  harming  the  pro- 
gram in  memory.  It  can  also  disas- 
semble any  machine  language 
program  directly  from  disk^ — again, 
without  disturbing  the  current  pro- 
gram. Since  it  adds  a  new  command 
to  the  Commodore  128's  BASIC, 
this  program  is  very  easy  to  use. 

Because  File  Viewer  is  written 
entirely  in  machine  language,  it 
must  be  typed  in  using  the  "MLX" 
machine  language  entry  program 
found  elsewhere  in  this  issue.  Be 
sure  to  read  and  understand  the  in- 
structions for  using  MLX  before  you 
begin  entering  the  data  for  File 
Viewer,  When  you  run  MLX,  you'll 
be  asked  for  a  starting  address  and 
an  ending  address  for  the  data 
you'll  be  entering.  Here  are  the  ad- 
dresses for  File  Viewer: 

St.irting  address:     1330 
Ending  address:      17E7 

When  you  finish  entering  the 
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data,  be  sure  to  save  a  copy  to  disk 
before  you  leave  MLX.  Once  you 
have  a  completed  copy  of  File 
Viewer  on  disk,  you  can  activate  it 
with  a  command  of  the  form: 

BOOT  "FILE  VlEWEK",Ddnve,Vdevice 

Of  course,  you  should  replace 
FILE  VIEWER 'in  this  statement 
with  the  filename  you  used  when 
saving  the  data  with  MLX.  If  your 
disk  drive  is  device  8,  the  normal 
device  number  for  Commodore 
drives,  you  can  omit  everything 
after  the  closing  quotation  mark 
{just  use  BOOT  "FILE  VIEWER"). 
"The  first  optional  parameter  is  used 
to  specify  the  drive  number  for 
dual-drive  systems  with  drive  1  in 
addition  to  drive  0.  (Commodore 
1541  and  1571  drives  are  always 
drive  0.)  The  second  parameter  is 
used  to  specify  a  device  number 
other  than  8.  For  instance,  BOOT 
"FILE  VIEWER", D0,U9  boots  the 
program  from  a  disk  in  a  drive  ad- 
dressed as  device  9. 

When  the  familiar  READY 
prompt  reappears.  File  Viewer  has 
been  installed  and  is  ready  to  use, 
{Note  that  pressing  the  reset  switch 
deactivates  File  Viewer.)  This  pro- 
gram works  as  an  extension  of  the 
Commodore  128's  BASIC,  so  it's  as 
easy  to  use  as  any  other  BASIC  state- 


ment. Here  is  the  general  syntax: 
VIEW  "fiieitame,type",Di{rive,Vdevice 

Again,  the  last  two  parameters 
are  not  needed  if  you  are  using  a 
single  1541  or  1571  disk  drive  ad- 
dressed as  device  8, 

The  type  parameter  is  also  op- 
tional in  most  cases,  since  File 
Viewer  ordinarily  determines  for  it- 
self whether  the  file  is  a  sequential 
or  program  file.  If  necessary,  how- 
ever, you  can  specify  the  type  by  in- 
cluding an  S  for  sequential  files  or  a 
P  for  program  files.  For  instance, 
the  statement  VIEW  "SAMPLE,S" 
displays  the  contents  of  the  sequen- 
tial file  SAMPLE,  while  VIEW 
"SAMPLE,P"  displays  the  contents 
of  a  program  file  of  the  same  name. 

File  Viewer  ordinarily  reads 
and  displays  the  entire  file.  You  can 
slow  the  display  by  pressing  the 
Commodore  key  or  pause  it  com- 
pletely by  pressing  NO  SCROLL. 
Press  STOP  if  you  wish  to  termi- 
nate the  display  before  you  reach 
the  end  of  the  file. 

Disassembly 

To  aid  machine  language  program- 
mers. File  Viewer  also  includes  a 
disassembly  option.  Here's  the  syn- 
tax to  use: 

VIEW  "fileiianieM" 

The  M  stands  for  machine  lan- 
guage. It's  not  a  Commodore  file 
type,  but  simply  a  signal  to  File 
Viewer  that  you  wish  to  disassem- 
ble the  file  rather  than  print  it  to  the 
screen.  When  you  choose  this  op- 
tion. File  Viewer  reads  the  file  from 


disk  and  disassembles  it  to  the 
screen  in  standard  6502  assembler 
format.  Just  as  with  the  display  op- 
tion, you  can  slow  the  disassembly 
with  the  Commodore  key,  pause  It 
with  NO  SCROLL,  or  cut  it  off  by 
pressing  STOP. 

Redirecting  Output 

In  most  cases  you'll  want  to  look  at 
a  file  on  the  screen.  However,  File 
Viewer  also  lets  you  divert  the  nor- 
ma! screen  output  to  a  printer  or 
other  peripheral  device.  This  option 
is  most  useful  for  machine  language 
disassemblies,  since  it  allows  you  to 
create  a  hardcopy  printout  of  the 
program  which  can  be  studied  at 
leisure.  However,  you  can  also  use 
it  as  a  quick  way  to  print  a  text  file 
without  loading  it  <nto  memory. 

Diverting  output  requires  that 
you  open  a  logical  file  to  the  desired 
device.  For  instance,  say  that  you 
want  to  send  the  contents  of  a  file  to 
the  printer.  The  statement  OPEN 
1,4  opens  logical  file  1  to  the  printer 
(which  is  usually  device  4).  Once  the 
logical  file  is  open,  you  must  tell  File 
Viewer  where  to  send  its  output. 
This  is  done  by  adding  the  logical 
fOe  number  to  the  VIEW  statement: 

VIEVV#  file  number,"filename,type"j 
Ddrive,  V device 

The  logical  file  number  must  match 
the  one  you  used  when  you  opened 
the  logical  file,  and  must  be  in  the 
range  1-127.  As  with  normal  for- 
mat for  the  statement,  the  type, 
drive  number,  and  device  number 
parameters  are  optional.  For  ex- 
ample, if  you  open  a  file  to  the 
printer  with  OPEN  1,4,  this  state- 
ment makes  a  hardcopy  printout  of 
the  file  SAMPLE  from  a  disk  in  the 
drive  addressed  as  device  8: 
VIEW#1,  "SAMPLE" 

In  special  cases,  you  may  wish 
to  divert  output  to  a  disk  file,  or 
even  to  a  modem  via  the  RS-232  in- 
terface.  File  Viewer  isn't  picky 
about  where  it  sends  output,  as 
long  as  you  have  properly  opened  a 
logical  file  to  the  device.  The  Cotn- 
modore  128  System  Guide  explains 
the  syntax  needed  to  open  a  file  to 
disk  or  RS-232  interface. 

Special  Concerns 

The  VIEW  statement  works  only  in 
direct  mode;  you  should  not  at- 
tempt to  add  it  to  a  program,  VIEW 
does  not  accept  string  or  numeric 


variables  in  place  of  its  parameters 
(you  can't  use  a  statement  like  F$  = 
"SAMPLE":  VIEW  F$). 

The  file  display  mode  of  File 
Viewer  is  intended  primarily  for 
looking  at  text  files — that  is,  files 
that  consist  of  printable  character 
codes.  It  is  possible  to  view  other 
types  of  files  such  as  tokenized 
BASIC  programs,  but  the  display 
may  be  difficult  or  impossible  to 
read  in  such  cases.  For  instance,  if 
the  file  contains  values  equivalent  to 
control-code  characters,  displaying 
the  file  may  clear  the  screen,  change 
the  printing  color,  and  so  forth.  If 
you  try  to  print  a  hardcopy  of  such  a 
file,  some  of  the  values  may  be  inter- 
preted as  spurious  printer  control 
codes,  causing  strange  behavior 
such  as  unwanted  fomn  feeds  or  a 
change  in  printing  mode.  Similarly, 
disassembling  a  file  that  doesn't 
contain  a  machine  language  pro- 
gram produces  meaningless  results, 
but  does  no  real  harm. 

The  machine  language  for  File 
Viewer  occupies  memory  locations 
4944-6114  ($1350-£17E2),  If  you 
disturb  the  contents  of  this  area 
while  File  Viewer  is  active,  the 
computer  will  probably  lock  up. 
The  program  also  uses  locations 
4864-4937  ($1300-$1349)  and 
250-  254  ($FA-$FE)  for  temporary 
storage.  You  may  use  these  loca- 
tions for  your  own  purposes;  how- 
ever, every  VIEW  statement  will 
overwrite  the  contents  of  these  areas. 

File  Viewer  also  maintains  a 
six-byte  bank-switching  routine  be- 
ginning at  location  2048  ($0800)  in 
both  banks  0  and  1.  This  is  neces- 
sary because  some  BASIC  errors 
may  occur  while  the  system  is  oper- 
ating in  bank  1.  In  bank  0,  this  area 
is  at  the  bottom  of  the  BASIC  run- 
time stack,  where  it  isn't  likely  to  be 
disturbed  unless  you  run  a  program 
that  uses  a  very  large  number  of 
nested  GOSUBs  or  FOR-NEXT 
loops.  To  accommodate  this  routine 
in  bank  1,  File  Viewer  bumps  the 
start  of  variables  up  to  address  2054 
($0806)  when  you  first  BOOT  the 
program,  thereby  protecting  the 
bank  1  copy  of  the  switching  rou- 
tine from  being  destroyed  by  the 
system.  This  results  in  a  slight  re- 
duction of  the  amount  of  space 
available  for  scalar  variables,  but 
should  have  no  noticeable  effect  on 
the  operation  of  BASIC. 
See  program  listing  on  page  102.    S 
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64  RAMdisk 


Hubert  Cross 


This  Commodore  64  utility  creates  an  electronic  disk  drive 
that's  much  faster  than  an  ordinary  disk  drive.  Since  it  uses 
"hidden"  memory,  the  RAMdisk  doesn't  reduce  the  amount  of 
programming  space  available  for  your  use.  No  machine  lan- 
guage knoxvledge  is  needed  to  use  the  program. 


A  RAM  disk  is  a  familiar  device  to 
many  personal  computer  owners. 
In  simple  terms,  a  RAM  disk  emu- 
lates a  disk  drive  entirely  in  the 
computer's  RAM  (Random  Access 
Memory),  allowing  you  to  store  and 
retrieve  files  much  faster  than  you 
can  from  a  mechanical  disk  drive. 
The  Amiga,  for  instance,  includes  a 
built-in  RAM  disk  as  part  of  its  sys- 
tem software;  and  RAM  disks  are 
popular  utility  programs  for  com- 
puters such  as  the  Atari  ST  and  IBM 
PC/PCjr. 

"64  RAMdisk"  is  a  RAM  disk 
for  the  Commodore  64  which 
doesn't  subtract  a  single  byte  from 
the  space  normally  available  for 
programming.  You  control  the 
RAMdisk  with  simple  BASIC  com- 
mands, and  the  program  is  compat- 
ible many  disk  utilities. 

Typing  In  64  RAMdisk 

Because  64  RAMdisk  is  written  in 
machine  language,  the  program 
must  be  typed  with  the  "MLX"  ma- 
chine language  entry  program 
printed  elsewhere  in  this  issue. 
Here  are  the  addresses  you  need  to 
enter  64  RAMdisk  with  MLX: 

Starting  address:     OSOl 
Ending  address:      12 AS 

64  RAMdisk  is  designed  to 
load  and  run  exacdy  like  a  BASIC 
program.  Load  the  program  with 
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LOAD  "RAMD1SK",8  for  disk  or 
LOAD  "RAMDISK"  (or  simply 
LOAD)  for  tape.  After  the  program 
loads,  type  RUN  and  press  RE- 
TURN. The  program  relocates  its 
code  to  the  safe  memory  area  be- 
ginning at  location  49152  and 
prints  the  message  RAM  DISK  AC- 
TIVATED. 64  RAMdisk  is  now 
ready  to  use. 

RAMdisIt  Commands 

Following  is  a  list  of  64  RAMdisk 
commands.  All  of  these  commands 
work  in  BASIC  direct  mode  (when 
you  aren't  running  a  program). 

DIR.  This  command  displays  a  di- 
rectory of  the  files  in  the  RAMdisk, 
For  instance,  if  you  type  DIR  and 
press  RETURN,  64  RAMdisk  prints 
a  directory  of  the  RAMdisk.  The 
number  of  bytes  free  for  use  is 
printed  at  the  bottom  of  the  directo- 
ry display. 

NAME.  The  NAME  command  can 
be  used  to  change  the  RAMdisk's 
name,  which  appears  in  reversed 
characters  at  the  top  of  the  directory 
display. 

RSAVE.  The  RSAVE  command 
saves  a  file  to  the  RAMdisk,  storing 
a  copy  of  the  BASIC  program  cur- 
rently in  memory.  Here  is  the  cor- 
rect syntax  for  the  command: 

RSAVE  "PROGRAM" 


Of  course,  you  should  substi- 
tute the  name  of  your  program  for 
PROGRAM  in  this  example.  If  you 
forget  to  specify  a  filename,  64 
RAMdisk  prints  the  error  message 
MISSING  FILENAME  and  doesn't 
save  anything.  The  filename  can  be 
any  combination  of  15  or  fewer 
characters. 

RLOAD.  The  RLOAD  command 
copies  any  program  in  the  RAM- 
disk  back  to  BASIC.  For  example, 
the  statement  RLOAD  "EX- 
AMPLE" loads  the  program  named 
EXAMPLE  from  the  RAMdisk,  stor- 
ing a  copy  of  it  in  the  usual  BASIC 
program  space. 

SCRATCH.  The  SCRATCH  com- 
mand deletes  a  file  from  the  RAM- 
disk.  For  instance,  the  statement 
SCRATCH  "PROGRAM"  removes 
the  file  named  PROGRAM  from  the 
RAMdisk.  If  you  attempt  to  scratch 
a  file  that  doesn't  exist  in  the  RAM- 
disk,  the  program  prints  the  error 
message  FILE  NOT  FOUND  and 
doesn't  scratch  anything. 
RENAME.  This  command  changes 
the  name  of  a  file  in  the  RAMdisk. 
Here  is  the  syntax  to  use: 
RENAME  "OLDNAME","NEWNAME" 

The  RENAME  command  re- 
quires two  filenames:  the  name  of 
the  existing  file  (OLDNAME  in  this 
example)  and  the  new  name  which 
you  want  that  file  to  have  (NEW- 
NAME  in  this  example).  The  filen- 
ames are  separated  with  a  comma. 
The  error  message  FILE  NOT 
FOUND  appears  if  you  attempt  to 
rename  a  nonexistent  file.  The  error 
message  FILE  EXISTS  appears  if 


you  try  to  use  a  new  name  which 
already  exists  in  the  RAMdisk.  (Ev- 
ery file  in  the  RAMdisk  must  have  a 
unique  name.) 

REPLACE.  This  command  replaces 
the  designated  RAMdisk  file  with 
the  BASIC  program  in  memory, 
using  the  same  filename.  For  in- 
stance, REPLACE  "TEST"  deletes 
the  program  TEST  from  the  RAM- 
disk  and  saves  the  BASIC  program 
in  memory,  using  the  filename 
TEST.  This  is  normally  done  when 
you  have  made  changes  to  a  pro- 
gram and  wish  to  save  the  revised 
version  with  the  same  name. 
RNEW.  The  RNEW  command  does 
a  NEW  of  the  RAMdisk,  erasing  ev- 
ery file  that  it  contains.  Be  very  care- 
ful ivheit  tiding  this  command,  since 
the  program  does  not  ask  you  to 
confirm  this  action,  and  there  is  no 
easy  way  to  recover  files  after  an 
RNEW.  If  you  include  a  name  after 
RNEW,  this  command  renames  the 
RAMdisk  with  the  name  specified. 
For  instance,  this  command  erases 
everything  in  the  RAMdisk  and  re- 
names it  as  MYDISK: 
RNEW  "MYDISK" 

EXIT.  This  command  disables  the 
RAMdisk  and  gives  you  the  option 
to  save  the  entire  contents  of  the 
RAMdisk  in  a  single  tape  or  disk 
file.  When  you  type  EXIT  and  press 
RETURN,  the  program  prints  this 
prompt! 

EXIT  RAM  DISK 

ARE  YOU  SURE?  (Y/N) 

If  you  type  N  at  this  prompt, 
nothing  happens,  If  you  type  Y  at 
this  prompt,  the  program  copies  the 
64  RAMdisk  machine  language 
program,  as  well  as  all  the  files  in 
the  RAMdisk,  back  into  the  BASIC 
program  space.  This  is  done  so  that 
you  can  save  the  entire  RAMdisk  as 
a  single  file,  using  a  normal  SAVE 
command  from  BASIC.  The  advan- 
tage of  this  method  is  that  you  can 
reload  the  RAMdisk  program  and 
all  of  the  saved  files  in  one  opera- 
tion, at  the  beginning  of  your  next 
programming  session.  You  do  not 
need  to  use  any  special  tricks  to 
save  this  file.  Here  is  a  typical  SAVE 
command: 

SAVE  "CABOODLE",8 

This  example  saves  64  RAM- 
disk  and  the  entire  contents  of  the 
RAMdisk  under  the  filename  CA- 
BOODLE. If  you  replace  the  8  with 


a  1,  the  file  is  saved  to  tape  instead 
of  disk.  {The  resulting  file  will  be 
considerably  longer  than  64  RAM- 
disk  itself,  since  it  contains  a  copy 
of  every  file  in  the  RAMdisk,  as 
well  as  a  copy  of  64  RAMdisk.) 

Once  you  have  saved  a  master 
file,  you  can  reload  64  RAMdisk 
and  the  individual  files  with  the 
same  load  and  run  commands  you 
would  ordinarily  use  to  activate  the 
RAMdisk.  In  this  case,  for  instance, 
you  would  use  these  commands: 

LOAD  "CABOODLE",8 
RUN 

If  you  type  RUN  and  press  RE- 
TURN at  this  point,  the  program 
moves  the  64  RAMdisk  code  to  its 
normal  location  beginning  at  loca- 
tion 49152,  then  transfers  each  of 
the  saved  files  to  the  RAMdisk,  too. 
When  the  startup  message  appears, 
the  RAMdisk  is  ready  to  use  and  all 
of  the  files  are  in  place. 

Notice  that  the  filename  used 
with  EXIT  has  no  connection  with 
the  name  of  the  RAMdisk  itself  (see 
NAME)  or  the  names  of  individual 
files  contained  in  the  RAMdisk.  As 
a  practical  matter,  however,  you 
will  probably  want  to  use  a  name 
that  reminds  you  what  individual 
files  the  master  file  contains.  If  you 
previously  used  NAME  to  give  the 
RAMdisk  a  meaningful  name,  you 
can  use  the  same  name  when  sav- 
ing the  entire  disk  with  EXIT. 

RAMdisk  Notes 

64  RAMdisk  is  designed  as  a 
convenience  for  saving  and  loading 
BASIC  programs,  not  as  a  total  re- 
placement for  a  disk  or  tape  drive. 
Thus,  it  supports  only  one  type  of 
file— a  BASIC  program  (PRG)  file— 
and  only  one  form  of  file  access 
(saving  and  loading).  You  cannot 
use  the  RAMdisk  for  other  types  of 
files,  such  as  sequential  (SEQ)  files. 
And,  for  instance,  you  cannot 
OPEN  a  file  in  the  RAMdisk  for 
reading  or  writing,  even  though 
those  are  legitimate  operadons  for 
program  (PRG)  files  on  tape  or  flop- 
py disk. 

Like  all  RAMdisks,  64  RAM- 
disk  is  volatile,  meaning  that  it  dis- 
appears completely,  together  with 
all  its  contents,  when  you  turn  off 
the  computer.  For  this  reason,  you 
should  make  frequent  backup 
copies  of  RAMdisk  programs  on 
disk  or  tape.  To  make  a  backup 
copy,  load  the  program  into  BASIC 


memory  with  RLOAD;  then  save  it 
to  disk  or  tape  in  the  usual  way. 

This  program  occupies  the 
memory  area  beginning  at  location 
49152  (SCOOO),  so  you  cannot  use  it 
with  any  other  machine  language 
program  or  utility  that  occupies  the 
same  space.  Because  this  program 
uses  the  "hidden"  RAM  underlying 
the  64's  ROM  (Read-Only  Memo- 
ry) chips,  it  is  also  incompatible 
with  programs  which  use  that  area 
of  RAM,  64  RAMdisk  does  work 
with  either  TurboTape  or  Turbo- 
Disk,  but  not  with  both  at  the  same 
time,  since  those  programs  are  in- 
compatible with  one  another.  You 
must  relocate  TurboDisk,  as  ex- 
plained in  the  TurboDisk  article, 
before  using  it  with  64  RAMdisk; 
the  best  place  to  put  TurboDisk  is  as 
close  as  possible  to  the  top  of 
BASIC  RAM. 

The  64  has  a  total  of  16K 
{16,384  bytes)  of  RAM  under  its 
ROM  chips.  Half  of  this  lies  under 
the  BASIC  ROM,  and  the  other  half 
lies  under  the  Kernal  operating  sys- 
tem ROM.  Not  all  of  this  RAM  can 
be  used  for  file  storage  with  64 
RAMdisk.  Every  program  stored  in 
the  RAMdisk  requires  an  extra  18 
bytes  for  a  directory  entry,  15  bytes 
for  a  filename  entry,  1  byte  as  a  file- 
name marker,  and  2  bytes  for  a 
pointer  to  the  beginning  of  the  next 
program. 

Programs  are  stored  beginning 
at  the  bottom  of  the  RAM  under 
BASIC  and  growing  upward,  to- 
ward higher  memory  locations.  The 
directory  begins  at  the  top  of  the 
RAM  under  the  Kernal  and  grows 
downward,  toward  lower  memory 
locations.  If  you  fill  the  8K  space 
under  BASIC  with  programs,  64 
RAMdisk  uses  as  much  of  the  RAM 
under  the  Kernal  as  needed.  If  you 
try  to  save  a  program  that's  bigger 
than  the  amount  of  free  space  left  in 
the  RAMdisk,  the  program  prints 
the  error  message  RAM  DISK  FULL 
and  doesn't  save  anything. 

It's  theoretically  possible  to 
create  so  many  individual  files  that 
the  RAMdisk  directory  would  fill 
all  of  the  RAM  under  the  Kernal 
ROM.  However,  since  it  would  re- 
quire more  than  454  files  to  over- 
flow the  directory,  64  RAMdisk 
does  not  check  for  this  unlikely  sit- 
uation, and  does  not  print  an  error 
message  if  it  occurs. 
See  program  listing  on  page  100.  O 
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Off-Screen  Trace 


Brent  Dubach 

BASIC  programmers  will  appreciate  this  testing  and  debugging 
utility.  It  traces  program  execution  line  by  line  and  displays 
the  trace  on  an  alternate  screen  so  there's  no  interference  with 
your  program  display.  It  also  allows  you  to  control  the  speed  of 
the  execution.  For  the  Commodore  64  and  128  (in  64  mode). 


Tracing  the  path  of  program  execu- 
tion is  helpful  when  you're  debug- 
ging a  program.  Most  TRACE 
commands  in  BASIC  languages 
print  executing  iine  numbers  on  the 
same  screen  as  the  program  being 
traced.  While  acceptable  for  some 
programs,  in  others  this  approach 
so  disrupts  formatted  text  output 
that  it  loses  much  of  its  debugging 
value.  For  example,  in  programs 
that  use  a  high-resolution  graphics 
screen,  tracing  execution  becomes 
awkward  since  the  normal  text 
screen  cannot  be  seen  so  long  as  the 
program  has  the  machine  in  the  hi- 
res graphics  mode. 

Here's  a  trace  utility  for  the 
Commodore  64  that  avoids  these 
problems  by  setting  up  its  own  dis- 
play screen.  Your  own  program 
output  is  not  disturbed,  and  the 
trace  information  can  be  seen  at  the 
touch  of  a  key.  And  the  line  dis- 
played is  the  line  after  the  line 
which  has  just  been  executed. 

How  To  Use  The  Trace 

Since  "Off-Screen  Trace"  is  written 
entirely  in  machine  language  (ML), 
you'll  need  to  use  MLX  to  type  it  in. 
When  prompted  for  the  starting 
and  ending  addresses,  respond 
with  the  following: 

Starting  address;     S800 
Ending  address:      8AFF 

Be  sure  to  save  a  copy  before  run- 
ning the  program. 

Although  Off-Screen  Trace  is 
written  in  ML,  you  don't  need  to 
know  anything  about  ML  in  order 
to  use  it.  Once  in  memory,  the  trace 
program  is  activated  by  a  SYS 

60    COMPUrei's  Gazette  Special  1S88  Issue 


34816  command  and  deactivated  by 
SYS  34970.  These  commands 
should  be  issued  only  in  direct 
mode  and  not  from  within  a  pro- 
gram. If  you  want  to  trace  only  a 
part  of  the  program,  you  may  use 
RUN  or  GOTO  followed  by  the  line 
number  at  which  you  want  to  begin 
and  then  either  a  STOP  command 
or  the  STOP  key  to  halt  execution. 
Tracing  may  be  turned  off  at  any 
time  after  it  has  been  switched  on. 
Be  sure,  however,  that  you  do  not  fol- 
low a  SYS  34816  with  another  SYS 
34816without  deactivating  tracing  in 
between.  If  you  do  this,  you'll  need 
to  turn  the  machine  off  and  back  on 
and  start  all  over. 

Once  Off-Screen  Trace  is  acti- 
vated, pressing  CTRL-O  (for  Other 
screen)  will  allow  you  to  see  a  sepa- 
rate trace  display  that  shows  the 
line  numbers  in  which  statements 
are  being  executed.  Pressing  CTRL- 
O  again  returns  you  to  whatever 
output  screen  your  program  is 
using.  This  keypress  is  not  "de- 
bounced"  by  the  program  and 
therefore  has  a  very  light  touch. 
Use  a  quick,  crisp  keypress  to  toggle 
between  the  two  displays. 

Controlling  Execution  Speed 

Because  of  the  overhead  involved 
in  tracing  execution,  programs  al- 
ways run  more  slowly  while  being 
traced.  This  utility  allows  you  to 
control  the  speed  of  execution  with 
the  space  bar.  It  allows  statements 
to  be  executed  only  when  it  sees 
that  the  space  bar  is  held  down.  By 
holding  it  down,  you  can  keep  the 
program  executing  at  maximum 


speed,  and  you  can  also  step 
through  statements  one  at  a  time 
with  a  quick  single  press  of  the 
space  bar.  Regardless  of  which 
screen  is  in  view  at  the  time  you 
press  the  space  bar,  your  own  pro- 
gram screen  will  be  reinstated 
before  the  next  statement  in  the 
BASIC  program  is  executed.  Another 
CTRL-O  will  retrieve  the  updated 
trace  display. 

Instead  of  an  unstructured  se- 
quence of  line  numbers,  the  trace 
display  shows  executing  line  num- 
bers in  an  outline  format  that  re- 
flects the  organization  of  your 
program.  Each  time  a  GOSUB  is  en- 
countered, the  trace  display  is  in- 
dented two  spaces.  With  each 
RETURN  it  is  moved  two  spaces  to 
the  left  of  the  left  margin.  Thus,  you 
can  easily  tell  by  monitoring  the 
line  number  display  whether  your 
program  is  entering  and  exiting 
subroutines  as  you  intended. 

Memory  Considerations 

The  program  uses  memory  at  the 
top  of  the  range  normally  available 
for  BASIC  program  text  and  vari- 
ables. In  addition  to  memory  for 
machine  language  itself,  memory  is 
needed  for  the  separate  display 
screen  and  for  saving  certain  impor- 
tant information  when  toggling  be- 
tween displays.  When  activated 
with  SYS  34816,  the  trace  program 
protects  itself  and  its  display  screen 
from  incursions  by  BASIC  by  set- 
ting 33792  as  the  top  of  memory 
available  to  BASIC.  This  still  allows 
BASIC  programs  that  need  almost 
32K  of  memory  and  leaves  all  the 
typically  used  sprite  and  machine- 
language  areas  available.  You 
should  note  that  some  of  this  range 
of  memory  is  the  same  as  that  used 
by  "MetaBASIC,"  so  you  should 
disable  "MetaBASIC"  before  load- 
ing and  using  this  trace  facility. 
See  program  listing  on  page  98.     9 
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The  new  commands  that  this  utility  adds  to  the  64  make  edit- 
ing and  programming  much  more  enjoyable.  "6i  +  "  alters  the 
operating  system  itself  to  create  a  new  working  environment. 


"64  +  "  is  a  full-scale  enhancement 
to  the  64's  operating  system.  It 
works  by  copying  the  entire  con- 
tents of  the  BASIC  and  Kernal 
ROMs  into  the  underlying  RAM 
and  then  making  modifications  to 
add  new  features. 

64-1-  consists  largely  of  new 
CHR$  and  keyboard  commands 
that  perform  useful  functions.  Oth- 
er capabilities  include  a  more  useful 
USR  function,  preprogrammed 
function  keys,  disk  drive  defaults, 
and  a  numeric  keypad. 

Typing  It  In 

Since  644-  is  a  machine  language 
program,  you  will  need  to  type  it  in 
using  "MLX,"  the  machine  lan- 
guage entry  program  found  else- 
where in  this  issue.  Be  sure  you  are 
familiar  with  MLX  before  you  begin 
typing  in  64  + .  When  MLX  asks  for 
starting  and  ending  addresses,  re- 
spond with  the  following: 

starting  address:     OSOl 
Ending  address:      0C40 

Type  in  the  data,  and  be  sure  to 
save  a  copy  before  leaving  MLX. 

Although  64-1-  is  written  in 
machine  language,  it  loads  and 
runs  just  like  a  BASIC  program.  To 
get  started,  load  64-1-  and  type 
RUN,  You  will  notice  some  changes 
immediately.  The  lowercase  char- 
acter set  is  switched  in  and  the 
screen  colors  change.  These  visual 
cues  also  appear  every  time  you 
press  RUN/STOP-RESTORE.  This 
different  visual  appearance  serves 
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as  a  reminder  that  that  you  are  op- 
erating under  64-}-.  Try  out  the  new 
commands  and  keystrokes  provided 
by  64-}-.  The  accompanying  quick- 
reference  table  and  keyboard  map 
are  all  you  need  to  begin 
experimenting. 

Most  of  the  new  commands 
can  be  used  in  three  ways.  First, 
you  can  use  them  in  immediate 
mode  by  typing  the  proper  combi- 
nation of  keys  (especially  helpful 
when  you  are  editing  a  BASIC  pro- 
gram). Second,  you  can  use  the 
CHR$  function  in  a  PRINT  state- 
ment to  print  the  corresponding 
character  code  for  the  command. 
For  example,  PRINT  CHR$(7)  will 
ring  a  bell  in  64-1-.  Finally,  you  can 
type  the  key  combinations  within 
quotes  in  PRINT  statements.  In 
quote  mode,  the  commands  appear 
as  reverse  letters.  The  quick-refer- 
ence table  has  all  the  information 
you  need  to  use  the  commands  in 
any  of  the  three  ways  mentioned. 

New  Characters 

One  of  the  most  powerful  features 
of  64-+-  is  the  addition  of  15  new 
characters.  These  can  be  accessed 
by  the  CHR$  function  or  typed  di- 
rectly from  the  keyboard.  Machine 
language  programmers  can  use 
Kernal  routines  to  access  these  new 
characters. 

Here  is  a  description  of  the 
characters  which  may  not  be  self- 
explanatory.  To  find  the  corre- 
sponding keystroke  and  the 


character  that  appears  when  you 
use  the  command  within  a  string, 
refer  to  the  quick-reference  table 
and  the  keyboard  map. 

Tab 

This  is  a  version  of  the  comma  deli- 
meter  used  in  PRINT  statements. 
PRINT  "Hello","there"  and  PRINT 
"Hellojthere"  both  have  the  same 
effect.  Press  the  STOP  key  for  this 
character.  In  immediate  mode,  the 
STOP  key  tabs  the  cursor. 

Line  home 

This  moves  the  cursor  back  to  the 
beginning  of  the  current  logical  line. 
For  example,  when  editing  a  BASIC 
line,  hold  CTRL  and  press  the  back- 
arrow  key  to  place  the  cursor  on  the 
first  digit  of  the  line  number. 

Partial  screen  dear 

Clears  everything  below  the  cur- 
rent cursor  position. 

Partial  line  clear 

Clears  from  the  cursor  position  to 
the  end  of  the  current  logical  line. 
This  is  especially  powerful  for  edit- 
ing BASIC  lines.  Depending  on 
how  the  cursor  is  positioned,  it  is 
possible  either  to  trim  unwanted  or 
unneeded  statements  off  the  end  of 
a  line  (like  REM  or  STOP  state- 
ments), or  to  delete  the  entire  line 
by  erasing  all  but  the  line  number 
(and  then  press  RETURN), 

Delete 

This  is  similar  to  the  normal  delete 
except  that  instead  of  pulling  part  of 
a  line  back  over  the  unwanted  char- 
acters to  the  left,  the  cursor  remains 
stationary,  and  unwanted  charac- 
ters are  pulled  into  the  cursor  from 
the  right.  Use  the  CTRL  or  Commo- 
dore key  in  conjunction  with  the 


INST/DEL  key  for  this  "black 
hole"  delete, 

Repeating-key  control 

If  you  want  all  keys  to  repeat,  use 
CHRS(22).  If  you  don't  want  any  to 
repeat,  use  CHR$(23).  The  default 
is  CHR$(24),  which  corresponds  to 
the  setting  of  a  normal  64 — only 
the  cursor  keys. 

Set  color  RAM 

This  sets  every  location  on  the 
screen  to  the  current  cursor  color. 

Escape 

This  may  prove  to  be  the  most  use- 
ful of  the  new  characters.  It  cancels 
insert,  reverse,  and  quote  modes.  It 
also  resets  the  default  key-repeat 
values  and  resets  the  SID  chip  reg- 
isters to  their  default  values. 

Additional  funcHon-key  characters 

Normally  there  are  eight  function 
keys:  fl,  f3,  (5,  and  f7  are  unshifted, 
while  f2,  f4,  (6,  and  f8  are  obtained 
in  conjunction  with  the  the  SHIFT 
key.  64+  adds  four  more  function 
keys  (f9-fl2),  which  are  entered  by 
pressing  the  Commodore  key  in 
conjunction  with  the  function  keys. 

Other  Features 

In  addition  to  the  new  characters, 
these  features  are  also  part  of  64-f : 
>  Freeze,  Whenever  the  SHIFT- 
LOCK  key  is  engaged,  the  screen 
stops  scrolling,  effectively  freezing 
it.  This  is  handy  for  examining  list- 
ings or  anything  else  that  is  too 
large  to  fit  on  one  screen.  To  contin- 
ue normal  scrolling,  release  the  key. 

•  Four  preprogrammed  function 
keys.  By  holding  down  CTRL  and 
pressing  one  of  the  function  keys,  the 
corresponding  one  of  the  following 
four  BASIC  keywords  is  automatical- 
ly printed  to  the  screen:  DATA  (fl), 
LIST  (f3),  RUN  (f5),  SYS  (f7). 

•  Disk  drive  defaults.  Device  8  is 
now  the  default  device  for  LOAD, 
SAVE,  and  VERIFY.  It  is  no  longer 
necessary  to  add  ,8  to  the  command 
for  disk  loads  and  saves.  (However, 
it  is  now  necessary  to  add  ,1  to  the 
SAVE,  LOAD,  or  VERIFY  com- 
mand when  using  tape.)  Note  also 
that  SHIFT-RUN/STOP  has  also 
been  altered  to  facilitate  the  new 
device  change.  That  key  combina- 
tion will  now  load  and  run  the  first 
program  on  the  disk. 

•  End-of-line  warning  system. 
When  you  are  near  the  end  of  an 
80-character  logical  line,  64+  noti- 


Keyboard  Map 


Quick  Reference  Table 

Description 

Character 
Code 

Keyboard  Access 

Appears  As 

Tab 

3 

RUN/STOP 

Line  Home 

6 

ClKLl 

or  Commodore-1 

reverse  i 

Bell  (Tone) 

7 

CTRL-C 

reverse  g 

Partial  Screen  Clear 

11 

CIRL-CLR/HOME 

or  Commodore-CLR/HOME 

reverse  k 

Partial  Line  Clear 

16 

CTRL-RETURN 

or  Commodore -RET  URN 

reverse  p 

Delete 

21 

CTRL-INST/DEL 

or  Commodore-!N5T/DEL 

none 

All  Repeat 

22 

CTRL-  + 

reverse  v 

No  Repeat 

23 

CTRL-- 

reverse  vv 

Default  Repeat 

24 

CTRL-E 

reverse  x 

Set  Color  RAM 

26 

CTRL-2 

or  Commodore-0 

reverse  z 

Escape 

27 

SHIFT--,  CTRL-  =  , 
or  Commodore- = 

none 

(9 

128 

Commodore-fl 

reverse   ^ 

no 

130 

Commodore-f3 

reverse  b 

n\ 

132 

Commodore-fS 

reverse  d 

fl2 

143 

Commodore-f7 

reverse  o 

fies  you  with  a  tone.  This  is  espe- 
cially useful  when  entering  large 
amounts  of  data  while  looking 
away  from  the  screen. 

•  Audible  error  messages.  A  bell- 
like tone  sounds  whenever  an  error 
occurs  in  a  BASIC  program.  This  is 
intended  for  those  times  when  you 
are  unable  to  see  error  messages 
(when  programming  with  a  graph- 
ics screen,  for  example). 

•  Numeric  keypads  for  quick  data 
entry.  The  keyboard  map  shows  a 
special  keyboard  configuration,  ac- 
cessible by  holding  down  the  Com- 
modore key  and  pressing  CTRL. 
Notice  that  a  #  appears  under  the 
cursor.  This  is  to  let  you  know  that 
the  keyboard  is  in  numeric  mode 
(which  affects  unshifted  keys  only). 
Now  you  have  one-touch  access  to 
important  control  characters,  4  of 
the  16  available  colors  (for  text), 
and  the  new  numeric  keypads.  No- 
tice that  the  left  group  of  numbers  is 
in  a  different  order  than  the  right. 
This  allows  you  a  choice  between 
the  telephone-  and  calculator-style 
keypad  formats.  When  you  are 
ready  to  exit  numeric  mode,  just 
press  Commodore-CTRL  again. 
This  time  a  \  will  appear,  and  the 
keyboard  will  be  back  to  normal. 

A  Useful  USR 

Machine  language  programmers 
will  appreciate  the  new  application 
of  the  rarely  used  USR  function.  It 


can  now  be  used  to  find  the  values 
of  system  vectors.  To  use  it,  simply 
pass  the  address  holding  the  low 
byte  of  the  vector.  For  example, 
NMl  =  USR(6§530):PR1NT  NMl 

would  return  the  value  65091,  the 
starting  address  of  the  NMl  routine. 
Calculating  available  memory  is  also 
a  breeze,  with  this  short  formula: 
MEM  -  USR(51)-USR(49) 

This  example  subtracts  the  values 
of  the  vectors  that  point  to  the  top 
and  bottom  of  available  memory. 

Memory  Conflicts 

Be  careful  when  writing  programs 
that  use  POKE  statements,  because 
BASIC  and  the  Kernal  are  now  in 
RAM.  Also,  64+  uses  location  787 
{$03 13)  for  various  flags,  as  well  as 
locations  51617-52223  ($C9A1- 
SCDFF),  Stay  away  from  these  areas 
of  memory  to  avoid  a  crash.  One 
commonly  used  utility  that  works 
with  no  conflicts  is  the  DOS  Wedge, 
which  resides  in  memory  immedi- 
ately following  the  locations  used 
by  64  +  . 

64+  will  probably  not  work 
with  your  favorite  word  processor. 
Word  processors  are  generally  self- 
contained  machine  language  pro- 
grams that  provide  their  own 
special  editing  functions  and  other 
features.  For  instance,  SpcedScript 
and  64+  will  not  work  together. 
See  program  listing  on  page  98.      W 
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Printer  Wedge 


James  Chandler,  Jr. 


If  you  have  a  64  and  a  Commodore  1525,  MPS-801,  or  MP5- 
803  printer,  here's  an  easy  way  to  create,  save,  and  print  out 
i/oiir  own  custom  characters.  With  "Printer  Wedge,"  you  can 
have  true  descenders,  foreign  language  character  sets,  and  cus- 
tomized graphics. 


The  Commodore  1525,  MPS-801, 
nnd  MPS-803  printers  are  inexpen- 
sive and  generally  reliable  printers. 
But  the  printed  characters  leave 
much  to  be  desired — no  descend- 
ers, [f  you  own  one  of  these  print- 
ers, you  know  how  difficult  it  is  to 
discern  the  difference  between  a 
lowercase  and  capital  "P"  or  a  low- 
ercase "g"  and  the  number  "9." 
This  program,  "Printer  Wedge," 
lets  you  define  a  new  character 
set — including  true  descenders  or 
foreign  language  characters. 

The  program  is  written  in 
BASIC,  but  it  POKES  a  machine  lan- 
guage "wedge"  into  memory.  You 
don't  have  to  know  machine  lan- 
guage to  make  it  work,  however. 
The  wedge  prints  the  user-defined 
characters  in  conjunction  with  many 
programs,  including  SpeedScript. 

Printer  Wedge  characters  can 
be  any  width  from  one  to  ten  pixels, 
and  any  number  of  characters  can  be 
created,  from  one  replacement  char- 
acter to  an  entire  upper/lowercase 
font.  Also,  foreign  language  charac- 
ter sets  can  easily  be  defined  (v%'ithin 
the  limits  of  printer  resolution). 
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The  program  also  has  another 
mode  which  allows  substitute  char- 
acter strings  of  up  to  40  characters. 
For  example,  one  could  specify  text 
replacements  for  LISTed  graphics 
symbols  (cursor  controls,  colors, 
etc),  allowing  the  printing  of  more 
readable  program  listings. 

Creating  Custom  Characters 

When  you  load  and  run  Printer 
Wedge,  you  get  a  character  creation 
screen.  Characters  are  created  on  a 
grid  seven  high  by  ten  wide.  Move 
around  the  grid  using  the  cursor 
keys,  and  plot  dots  with  f7.  Delete 
dots  with  f8.  When  the  character  is 
complete,  assign  the  character  with 
fl.  The  computer  then  prompts  you 
for  the  key  of  the  character.  Press 
the  key  representing  the  character 
and  the  program  appends  a  DATA 
statement  to  itself  describing  that 
character.  That  character  will  no 
longer  be  available  to  you- — -it  will 
be  replaced  by  the  new  character 
you've  designed.  It  then  loops  back 
to  the  character  creation  screen. 

When  you're  through  creating 
the  characters  you  wish  to  use,  press 


f2.  The  program  asks  for  a  starting 
address,  then  POKEs  the  wedge  to 
the  specified  location.  You  are  then 
given  the  option  of  sending  sample 
lines  to  the  printer  so  you  can  in- 
spect the  new  characters. 

If  you  wish  to  alter  any  of  the 
characters  you've  created,  run  the 
program  again  and  press  f2  when 
you  finish.  Since  the  character  set  is 
stored  as  part  of  Printer  Wedge,  you 
can  create  many  character  sets  and 
save  each  by  its  own  name,  such  as 
PWEDGE/ELITE  or  PWEDGE/ 
SPANISH. 

Create  characters  starting  from 
the  left  column  of  the  character  cre- 
ation grid.  When  printing,  the 
wedge  inserts  one  blank  column  at 
the  right  of  a  user-defined  charac- 
ter. This  allows  proportional  spac- 
ing of  characters.  For  replacement 
characters  to  be  in  the  same  seven 
by  five  format  of  the  1525,  801,  803 
character  set,  do  not  allow  two  ad- 
jacent blank  columns  in  the  first 
five  columns  of  the  character  cre- 
ation grid.  In  addition,  do  not  leave 
column  five  blank. 

To  specify  characters  that  can- 
not meet  the  above  requirements, 
calculate  the  column  values  as  in  the 
1525,  801,  or  803  users'  manual. 
Append  a  DATA  statement  to  Print- 
er Wedge  using  the  following  format: 

[line  number  3000  +  10'  ASCU]  DATA 
[ASCII  value  of  character},[number  af 
(hamcter  coliimnsjiliotumx  l],[cohimti 
2},.,.,[iast  column} 


You  can  find  the  ASCII  value  of  a 
character  by  typing  {in  immediate 
mode): 

PRINT  \SCl"SchaTticlrrj") 

The  line  10000  DATA  0  tells 
Printer  Wedge  it  has  read  and 
POKEd  all  characters  into  memory. 
A  replacement  character  for  the  dou- 
ble quote  (SHIFT-2)  should  normally 
be  specified  (line  3340}.  Otherwise, 
printing  a  double  quote  character 
causes  a  graphic  nightmare. 

I've  included  three  character 
sets  as  options  for  you  to  try.  Any  of 
these  can  be  appended  to  Program 
1,  Character  Set  1  (Program  2)  re- 
places the  lowrercase  g,  p,  and  q 
with  less  ambiguous  characters. 
Character  Set  2  (Program  3)  pro- 
portionally spaces  without  de- 
scenders. Character  Set  3  (Program 
4)  squeezes  characters  into  the  top 
six  rows,  allowing  one  row  for  de- 
scenders. Program  5  allows  for  con- 
verting graphics  symbols  to  text. 

Character  Strings 

Press  f3  to  assign  a  string  of  charac- 
ters to  a  key.  This  can  be  useful  in  a 
couple  of  ways.  You  can  make  pro- 
gram listings  more  readable  by  re- 
placing the  reverse-heart  that 
means  "clear  the  screen"  with  the 
easier  to  read  string  [CLR].  To  do 
this,  type  in  the  string  [CLR]  and  as- 
sign it  to  the  SHIFT-CLR/HOME 
key  (by  pressing  f3).  After  entering 
all  replacement  strings  in  this  man- 
ner, save  PWEDGE/LIST,  Pro- 
grams can  then  be  listed  to  disk  or 
tape,  then  read  back  and  printed 
with  a  short  BASIC  routine.  To  do 
this,  first  open  a  file  to  tape  or  disk, 
then  enter  CMD  (file  number):UST. 
After  the  file  is  created,  type 
PRINT*  (file  munbe&.CTJOSE  (file 
number).  To  read  the  file  (and  list  it 
to  the  printer),  open  the  file  for  in- 
put, open  a  line  to  the  printer,  use 
GET#  to  get  characters,  and 
PRINT#  to  send  it  to  the  printer, 

SpeedScript  allows  the  use  of 
the  Commodore  key  subset  of  the 
keyboard  (left  graphics  symbols  on 
the  keys).  [Commodore-D]  could 
represent  "Dear  Friends,"  [Com- 
modore-Y]  could  represent  "Yours 
Truly,"  and  so  on.  This  would 
allow  automation  of  the  repetitive 
parts  of  letters  or  of  any  document 
form  you  use  frequently. 
See  program  listings  on  page  123.  a 


One-Touch 
Function  Keys 

Keith  Ashcraft 

This  utility  programs  the  64' s  function  keys  for  a  variety  of 
useful  tasks.  And  best  of  all,  it  provides  a  menu  of  its  functions 
on  the  top  screen  line.  A  disk  drive  is  required. 


The  Commodore  64's  function  keys 
are  a  highly  useful  feature.  Because 
they're  programmable,  they  can  be 
tailored  to  the  needs  of  any  user. 
"One-Touch  I-unction  Keys"  adds 
four  functions — including  a  directo- 
ry listing — to  your  64.  And  you 
don't  have  to  worry  about  forgetting 
which  key  does  what;  they're  al- 
ways listed  at  the  top  of  the  screen. 
Because  the  program  is  written 
entirely  in  machine  language,  it 
must  be  typed  in  using  "MLX,"  the 
machine  language  entry  program 
found  elsewhere  in  this  issue.  Be 
sure  to  read  and  understand  the  in- 
structions for  using  MLX  before  you 
begin  typing  in  the  program.  When 
you  run  MLX,  you'll  be  asked  to 
provide  starting  and  ending  ad- 
dresses for  the  data  you'll  be  enter- 
ing. The  correct  values  are: 

starting  address:     COOO 
Ending  addiess:      CllF 

After  you  finish  typing  in  the  pro- 
gram, be  sure  to  save  a  copy  before 
leaving  MLX.  To  load  One-Touch 
Function  Keys,  use  a  statement  of 
the  form  LOAD  "filename" ,8, \. 
(Substitute  ,1,1  for  the  ,8,1  if  you're 
using  tape  instead  of  disk.)  Type 
SYS  49152  to  activate  it.  You  should 
see  the  definition  line  on  the  top  of 


the  screen. 

Here's  a  list  of  the  functions 
that  One-Touch  Function  Keys 
adds  to  the  64: 

•  fl — The  Directory 
Press  fl  at  any  time  for  a  directo- 
ry listing.  RUN/STOP  halts  the 
listing. 

•  f3— List 
The  BASIC  program  currendy  in 
memory  is  listed  when  f3  is 
pressed. 

•  is — Save 
Press  f5  for  SAVE  to  be  printed  on 
the  screen. 

•  f7— Load 
Press  i7  for  LOAD  to  be  printed 
on  the  screen. 

When  you  use  Load  or  Save  {f5 
and  f7),  you  must  insert  the  file- 
name of  the  program  and  press  RE- 
TURN. For  example,  if  you  wanted 
to  load  a  file  named  GAME.OBJ, 
you  would  press  f7  and  then 
"GAME.OBJ",8,l. 

RUN/STOP-RESTORE  dis- 
ables the  program,  but  typing  SYS 
49152  reactivates  it.  Try  to  avoid 
using  One-Touch  Function  Keys 
with  other  programs  that  use  the 
RAM  area  at  49152. 
See  program  listing  on  page  100.   iSf 
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Sequential  File  Editor 


Paul  Piciocchi 


This  menu-based  program  Jtiakes  modifying  sequential  files 
easy,  with  options  for  editing,  inserting,  deleting,  resaving,  and 
printing  out  sequential  files.  For  the  Commodore  64,  Plus/ 4, 
and  36,  A  disk  drive  is  required. 


Sequential  files  can  hold  a  wide  va- 
riety of  information.  When  a  game 
saves  the  all-time  high  score, 
chances  are  it  puts  the  information 
in  a  sequential  file.  When  you  save 
an  adventure  game  position  to  disk, 
the  data  probably  goes  into  a  se- 
quential file.  Programs  that  include 
filenames  and  addresses  often  store 
the  data  in  sequential  files. 

Modifying  a  sequential  file  can 
often  be  a  tedious  chore.  Some- 
times you  can  load  and  run  a  word 
processor  to  do  the  job.  But  the  file 
might  not  conform  to  the  word  pro- 
cessor's format  (some  use  ASCII 
characters  stored  in  sequential  files, 
others  might  use  screen  codes  in 
program  files).  Or  you  might  not 
own  a  word  processor.  You're  not 
left  with  much  of  a  choice  if  that's 
the  case:  Either  you'll  have  to  re- 
type the  contents  of  the  whole  file 
or  you'll  have  to  write  a  program 
that  can  read  the  file  into  memory 
for  you  to  make  modifications — not 
an  easy  task.  This  program,  "Se- 
quential File  Editor,"  provides  a 
simple  solution — it  reads  a  sequen- 
tial file  into  memory  and  then  offers 
a  menu  with  several  editing  op- 
tions. It  runs  on  the  Commodore 
64,  Plus/4,  and  16. 
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Using  The  Editor 

After  typing  in  the  program,  save  a 
copy  to  disk.  To  use  it,  load  it  and 
type  RUN, 

You're  first  asked  for  a  filename 
and  disk  device  number  (which 
should  be  8,  unless  you  have  multi- 
ple drives).  Next  you're  asked  if 
what  you  typed  is  correct.  If  you  re- 
ply Y,  the  program  starts  to  read  in 
the  file  (if  that  file  is  not  on  the  disk, 
you'll  be  told).  While  the  program 
reads  the  file,  the  contents  are  dis- 
played as  individual  lines,  along 
with  assigned  line  numbers.  {A  car- 
riage return  in  the  sequential  file  de- 
termines the  end  of  each  line,)  If  you 
plan  to  do  complex  editing,  you  may 
want  to  write  down  the  line  num- 
bers you  plan  to  modify. 

Once  the  file  is  read,  you're 
given  a  simple  menu.  The  com- 
mands include  the  following: 

1.  List  File.  You're  asked  if  you 
wish  to  see  the  file  with  line  num- 
bers (so  you  can  find  the  line  you 
wish  to  edit)  or  without  line  num- 
bers (to  see  the  final  product).  Press 
either  W  or  O.  While  listing,  you 
can  pause  the  output  by  pressing 
the  space  bar  or  abort  the  output  by 
pressing  A.  Resume  the  listing  by 
pressing  the  space  bar  again. 


2.  Edit  Line,  and  3.  Insert 
Line.  If  you  select  either  of  these, 
you're  asked  for  a  line  number.  If 
you  choose  to  edit,  you're  shown 
the  line  as  it  is.  Otherwise,  the  pro- 
gram will  make  space  within  the 
file  to  insert  that  line.  Next  you're 
asked  to  change  or  write  the  line.  In 
either  case,  pressing  RETURN 
keeps  the  line  as  it  is.  (When  editing 
or  inserting  lines,  you  can  enter  up 
to  254  characters.  'The  program  will 
prevent  you  from  going  beyond 
this  limit.  Control  characters  are  not 
allowed  as  input,  except  for  DEL — 
CHRS(20)— which  deletes  single 
characters,  and  CTRL-X,  which 
erases  an  entire  line.)  The  program 
works  with  sequential  files  as  large 
as  3000  lines.  On  the  Commodore 
16,  however,  the  limit  is  100  lines, 
due  to  limited  memory, 

4.  Delete  Line.  This  allows  you 
to  remove  a  line  from  the  file.  After 
specifying  the  line  number,  you're 
shown  the  line  and  asked  if  you  are 
certain  you  wish  to  delete  it. 

5.  Rerun  Program.  If  you  fin- 
ish with  a  file  and  wish  to  edit  an- 
other, you  can  rerun  Sequential  File 
Editor.  Make  sure  to  use  the  next 
command  (resave  file)  if  you  want 
the  changes  you've  made  to  be 
written  to  disk.  The  rerun  option 
starts  over  with  the  initial  filename 
prompt. 

6.  Resave  File  After  Editing. 
It's  important  that  you  remember  to 
do  this.  When  you  finish  editing  a 


file,  you  must  resave  the  file  to  disk 
to  make  the  changes  permanent. 
Should  you  forget,  the  file  will  re- 
main as  it  was  before  editing.  When 
prompted  for  a  name  to  resave  the 
file,  you  can  type  an  asterisk  (*)  to 
resave  with  the  original  filename. 
This  command  doesn't  use  the 
sometimes  unreliable  save-with- 
re place  function;  it  actually 
scratches  the  old  file  before  the  new 
information  is  written  out, 

7.  Print  File  To  Printer,  ff  you 
wish  to  have  a  printout  of  the  file, 
choose  this  option.  You're  asked  for 
the  number  of  lines  per  page  (this 
number  is  usually  66),  The  program 
will  format  the  file  into  pages,  and 
leave  five  blank  lines  on  the  top  and 
bottom  of  each  sheet.  If  you  do  not 
want  the  file  formatted  into  pages, 
enter  0  as  the  number  of  lines  per 
page  on  your  paper, 

8.  Exit  Program.  Once  you've 
finished  editing  and  have  resaved 
the  file  to  disk  (option  6),  you  can 
exit  the  program. 

Word  Of  Warning 

Because  strings  are  limited  to  a 
maximum  length  of  255  characters, 
this  program  may  crash  with  an  er- 
ror in  line  190  when  a  file  contains 
256  or  more  characters  without  a 
RETURN  character  (CHR$(13)}. 
The  following  line  will  allow  such 
files  to  be  read  into  the  program: 

20S  IF  LEN(ASILN»-255  THEN  PRINT 
AS;:GOTO  230 

Note  that  if  you  add  this  line 
and  subsequently  read  a  file  and 
write  it  back  to  disk,  the  new  file 
may  contain  some  additional 
CHR$(13)  characters. 
See  program  listing  on  page  99.  ® 
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64Key 


Daniel  Bjngamon 


This  might  be  the  last  program  you  type  in  the  traditional  way. 
64Key  allows  you  to  print  a  BASIC  instruction  just  by  pressing 
one  shifted  key. 


"64Key"  is  a  Commodore  64  ver- 
sion of  Thomas  Henry's  "VICKey," 
originally  published  in  the  August 
1982  issue  of  COMPUTE!.  It  allows 
you  to  print  a  BASIC  keyword  just 
by  pressing  one  shifted  key.  For  ex- 
ample, pressing  SHIFT-A  prints 
ASC,  SHIFT-B  prints  STEP,  SHIFT- 
C  gives  CHR$,  and  so  on.  It  makes 
typing  in  long  programs  faster  and 
easier. 

To  use  64Key,  type  in  the  pro- 
gram, SAVE  it,  and  type  RUN.  If 
you  have  mistyped  a  DATA  state- 
ment, the  program  will  tell  you  so. 
The  program  POKEs  64 Key  into  the 
$C000  block  of  free  RAM.  Tvpe 
SYS  52557  to  activate  64Key.  You 
will  get  the  READY  message  back 
as  though  nothing  has  happened. 
But  try  typing  a  SHIFTed  letter. 
Presto!  A  keyword  appears. 

Now  instead  of  typing  out  a 
keyword,  you  can  simply  hit  the 
appropriate  key  as  shown  in  the  ta- 
ble. Of  course,  you  can  always  type 
the  keyword  normally  (you  must  if 
the  keyword  is  not  in  the  table).  Be 
sure  to  type  NEW  before  typing  in 
your  program. 

64Key  checks  location  SD4 
(212)  to  see  if  the  editor  is  in  quote 
mode.  If  you  hit  a  SHIFTed  letter 
within  quotes,  you  will  get  the  nor- 
mal graphics  character  or  capital 
letter  instead  of  a  keyword.  Typing 
SYS  52557  turns  64Ke_y  on  or  off. 
So,  if  you  want  to  deactivate  it,  type 
SYS  52557  a  second  time.  You  can 
also  deactivate  it  by  pressing  the 


RUN/STOP  and  RESTORE  keys 
together.  64Key  will  remain  in 
memory  until  you  turn  the  com- 
puter off. 

"64 Key"  uses  the  same  area  of 
memory  as  the  DOS  Wedge  pro- 
gram supplied  with  the  1541  demo 
disk.  To  use  these  two  valuable  util- 
ities together,  change  the  following 
lines: 

20  FOR  1-51799  TO  51967 

50  IF  X<>23743  THEN  PRINT  "THERE 

IS  AN  ERROR  IN  YOUR  DATA 

STATEMENTS":END 
60  PRINT"SYS  5]  789  TO 

ACTIVATE":END 

Next,  change  the  DATA  element 
205  to  202  in  the  following  lines: 
lOD,  120,  130,  140,  150,  190,  220, 
300,  and  320.  Finally,  remove  the  ,0 
from  the  end  of  line  430  and  delete 
line  440.  These  changes  relocate 
64Key  to  the  area  immediately 
above  the  Wedge,  allowing  the  two 
to  coexist  in  harmony  and  still  leav- 
ing locations  49152-51788  free  for 
other  uses. 


BASIC  Keywords 

A     ASC 

N 

NEXT 

B     STEP 

O 

OPEN 

C     CHRS 

P 

POKE 

D     DIM 

Q 

PEEK 

E     END 

R 

RIGHTS 

F     FOR 

S 

STRS 

G     GET 

T 

TAD( 

H     STOP 

U 

USR 

I      INPUT 

V 

VAL 

K     GOSUB 

X 

READ 

L     LEFTS 

Y 

RESTORE 

M    MIDS 

2 

SYS 

See  program  listing  on  page  91.    ffl 
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No-SYS  Loader 


Walter  L.  Smith,  Jr. 


Now  machine  language  programs  can  be  as  easy  to  handle  as 
BASIC  programs.  With  this  64  utility,  ruiining,  loading,  and 
saving  most  machine  language  programs  is  a  snap.  A  disk 
drive  is  required. 


Machine  language  (ML)  programs 
are  more  difficult  to  load,  run,  and 
copy  than  their  BASIC  counter- 
parts. "No-SYS  Loader"  narrows 
the  gap  between  the  two,  allowing 
most  ML  programs  to  be  treated 
like  BASIC  programs. 

No-SYS  Loader  works  hy  com- 
bining the  ML  program  %vith  a  short 
BASIC  loader  to  produce  a  new 
program  that  can  be  loaded,  saved, 
and  run  like  a  BASIC  program. 
When  the  program  is  run,  the  load- 
er transfers  the  ML  to  its  correct  lo- 
cation, performs  a  NEW,  and,  if 
necessary,  resets  certain  BASIC 
pointers. 

Typing  It  In 

No-SYS  Loader  is  written  in  ma- 
chine language.  It  must  be  entered 
using  the  "MLX"  machine  lan- 
guage entry  program  found  else- 
whore  in  this  issue.  When  you  run 
MLX,  you'll  be  asked  for  the  start- 
ing and  ending  addresses  of  the 
data  you'll  be  entering.  For  No-SYS 
Loader,  respond  with  the  following 
values; 

Starting  address;     0801 
Ending  address:      0AS8 
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After  entering  the  data,  be  sure 
to  save  a  copy  of  the  program. 

To  use  No-SYS  Loader,  first, 
toad  it  and  type  RUN.  The  program 
asks  for  a  filename.  Make  sure  that 
a  disk  containing  a  copy  of  the  tar- 
get program  is  in  the  drive;  then  en- 
ter the  appropriate  filename.  No- 
SYS  Loader  finds  the  file  on  disk 
and  tells  you  its  load  address, 

No-SYS  Loader  next  asks  for 
the  SYS  address  that  starts  the  pro- 
gram. Either  enter  the  address,  or, 
since  the  load  address  and  SYS  ad- 
dress are  the  same,  vou  may  simply 
press  RETURN. 

No-SYS  Loader  now  gives  you 
the  opportunity  to  insert  a  remark 
into  the  program.  Be  sure  tliat  the  re- 
mark you  enter  contains  no  more  than 
19  characters.  The  program  doesn't 
check  the  length  of  your  input,  and 
if  you  enter  too  many  characters, 
the  resulting  program  will  crash 
when  run. 

Now  insert  the  disk  on  which 
you  want  the  converted  program 
saved.  Enter  the  filename  for  the 
converted  file.  The  converted  pro- 
gram is  saved  to  disk. 

To  make  sure  that  the  program 


is  working  correctly,  enter  these 
lines; 

lOAD"fitenamt!",S 

LIST 

You  should  see  these  Unes  on 
the  screen: 

10  SYS2088 

20  REM  your  comment 

The  SYS  address  will  always 
be  2088.  This  is  the  address  of  the 
loader,  not  the  ML  program.  Run 
the  program  to  see  if  it  works 
properly. 

Now  that  the  program  has 
been  converted,  it's  easy  to  make 
copies.  For  example,  to  make  a 
copy,  type 

LOAD"OLD  NAME",S 

Then  change  disks  (if  desired)  and 

type 

SAVE"NEW  NAME",8 

Notes 

A  limitation  of  this  program  is  that 
it  will  not  convert  programs  that 
load  below  address  2304  ($0900). 
You'll  find,  however,  that  there  are 
few  ML  programs  that  load  below 
this  address. 

If  the  converted  program  is  to 
be  used  as  a  utility  for  a  BASIC  pro- 
gram, the  converted  program  must 
be  loaded  and  run  first,  or  else  it 
will  erase  any  BASIC  program  cur- 
rently in  memory. 
See  program  listing  on  page  102.  Q 


Programming  Books 

from  COMPUTEI 


COMPUTE!  Books  offers  a  line  of  programming  books  for  the  intermediate  to 
advanced  Commodore  64  and  1 28  users.  These  reference  books  take  you 
beyond  BASIC  and  into  machine  language  programming,  helping  you  learn 
about  memory  mops,  addresses,  the  new  GEOS,  and  time-saving  routines  you 
can  add  to  your  own  programs. 


COMPUtEI's  128  Programmer's  Guide 

Editofs  of  COMRIIEI 

ISSN  [)-87d65-03]  -9  444  pogos 

A  compfete  guid©  to  the  Commoctofe  1 28,  this  book  explores  BASIC  7.0.  shows 

you  how  to  Creole  Qfophics  ond  sourtds.  explains  how  to  pfogtam  periphefols, 

and  introduces  you  to  moctilne  longuage  programming. 

SI  7.95 


Mapping  the  Commodore  126 

Ottis  R,  Cowpef 

ISBM  0-87455-060-2  704  pages 

The  comprehensive  memory  rrap  ortd  programmer'i  guide  that  provides  o 

detolled  explonotlon  of  the  Inner  workings  of  the  Commodore  128  including 

memory  management.  BASIC  7.0,  I/O  chip  register,  the  operating  system, 

sVstem  RAM.  and  more. 

SI  9.95 

Machine  Language  Routines  (or  the  Commodore  128 
and  64 

Todd  Heimarck  ond  Patr1cl<  Porrtsh 

ISBN  0-97455-085-8  592  poges 

This  collection  of  mochine  ianguoge  routines  Is  a  must  for  every  Commodore 
128  and  6d  mochine  language  programmer.  Scoresol  these  routines  can  sim- 
ply be  Inserted  Into  your  own  programs,  included  is  the  assembly  language 
code  w/tth  easy-to-understand  documentotbn  and  instructions.  There  is  a 
companion  disk  avallabis  for  S12.95  that  Inctudes  all  the  programs  In  the  booft 
C85SBDSK), 
$18.95 
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Programming  the  Commodore  64  Revised- 
The  Definitive  Guide 

Roeto  Coiiin  Wast 

ISBN0-87455-08T-5  642  pages 

Tha  bestSBliing.  encyclopedic  reference  guide  wtiich  covers  the  CommodoTe 
64  in  (ts  entirety  has  been  updated  to  include  infoimotion  on  the  new  Com- 
modore 64C  ond  GEOS.  from  Berkeley  Softworks  rfte/e  is  alx>  a  dfs*  ovotoWe 
for  512.95  whicn  includBs  fhe  programs  in  fhe  book  (507BDSK). 

Mapping  the  Commodore  64  and  64C 

Sheldon  Leemon 

ISBN  0-87455-082-3  324  pages 

An  updote  o(  the  bestseiiing  memory  mop  and  programming  guide  that's  a 
necessity  for  intermediate  ond  advanced  pfogrammeri.  This  definitive 
sourcebook  has  been  expanded  and  now  covers  tfie  now  icon-based  GfOS 
(Gropfiics  Environment  Operating  System)  with  clear  descriptions  of  how  to 
make  it  v^Drk  for  you.  For  BASIC  and  machine  kjnguoge  programmers  of  both 
the  Commodore  64  and  64C, 
Si  6.95 


These  books  are  now  available  at  your  local  book  or  computer  store. 

You  con  also  order  directly  from  COMPUTEI  by  colling  toll  free  BOO-346-6767  (In  NY  coll  212-887-8525)  or 

by  mailing  your  order  to  COMPUTE!  Books,  P.O.  Box  5038,  F.D.R.  Station,  New  York,  NV  10150. 

Customer  Service  hours  are  10:00  am-12;30  pm  and  1:30  pm-3:00  pm  EST,  Monday-Friday 
Please  include  S2.00  postage  and  handling  per  book  or  disk.  NO  residents  add  5  percent  soles  tax,  and  NY  residents  odd 

8.25  percent  sales  tax.  Please  allow  4-6  weeks  for  delivery, 


COMPUTE!  Publicationsjnc.^ 

A  Caaiot  Citioi/AOC.  inc.  ComDonv  ^^^ 


A  Copilot  CitKH/AOC.  inc.  Company 


COMPUTEI  books  are  ovolloble  outside  the  United  States  from 
subsidiaries  of  McGraw-Hill  Internotbnol  Book  Company- 


64  AutoBoot  Maker 


Rene  Suarez 


Here's  a  Commodore  64  boot-making  program 
with  a  twist:  It's  compatible  with  most  com- 
mercial accelerators  for  the  1541  disk  drive. 


Unlike  most  other  computers,  the  Commodore  64  does 
not  automatically  boot  {load  and  run)  programs  from 
disk.  After  loading  a  program,  you  must  type  either  a 
RUN  or  SYS  command  to  start  it  up.  However,  you've 
probably  used  commercial  software  that  automatically 
loads  and  runs  when  vou  enter  a  statement  such  as 
l£)AD"BOOT",8,l.  Wouldn't  it  be  nice  to  run  your 
own  programs  this  way? 

Such  programs  are  said  to  autoboot  because  every- 
thing is  automatic  after  you  enter  the  LOAD  command. 
In  effect,  they  pull  themselves  up  by  their  own  boot- 
straps; hence  the  term.  Since  autoboots  require  less 
typing,  they're  ideal  for  frequently  used  programs  or 
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V4.0 


ULTRABYTE 

DISK 

NIBBLER 


POWERFUL  NEW  GCR  NIBBLER 
FOR  COMMODORE  64  and  126  (in  64  mode) 

•  Automatically  copies  most  disks  In  2  minutes  or  less 
including  vsriable  density  and  rapid  locked  protection 

•  105  new  parameters  to  make  unprotected  copies  ol 
recent  disks.  Send  stamped  envelope  for  list 

•  Copies  up  to  40  tracks  using  1  or  2  1541  or  1571 

drives.  Copies  both  sides  on  1571 

•  Copies  ilsell  ( lor  this  reason,  no  refunds  given  ) 


SPECIAL  -  BUY  A  NIBBLER  V4.0  ANO  GET 
YOUR  CHOICE  OF  A  FREE  S14.95  PROGRAM 

S3g.95  plus  S4.0Q  shipping 


1.  Disk  Surgeon  V2.0  -  new  disk  utility  $14.95 

2.  Ultramail  "  mall  list  and  labels -t    bolti  for 

Handy-Capper  —  race  fiandlcapper j    $14.95 

3.  McMurptiy's  Mansion— text  adventure  . . . -i   both  for 
Soluware  —  solutions  to  10  adventures  . . .  )    $14.95 

(  AtADve  may  be  ordered  separately  lor  $14.95  plus  t4.00 
gtilpplng.   Foreign  orders  add  $2.00  } 

Mislercaid,  Visa,  Check  or  M.O.,  Cahf.  add  e.S%  {S2.60)  sales  tix. 
Foreign  orderi/COD  add  $2.00.  Paymenl  must  be  In  U.S.  fundi 

UPDATES -Rstum  original  UMrabyte  disk  wllK  $15.00  ptus  $4.00 
stilpplng.   Foreign  add  $2.00.  No  Iree  disk  witti  update 

To  order,  write  or  call  24  hr.  order  line.  For  Info,  write. 

ULTRABYTE   (818)   796-0576 
P.O.  Box  789  LaCanada,  CA  91011  USA 


DEALERS  &  DISTRIBUTORS  WANTED 


programs  intended  for  people  who  aren't  familiar  with 
the  computer,  The  only  catch  is  that  autoboots  can  be 
very  tricky  to  write.  And  though  there  are  programs 
that  construct  them  for  you,  the  resulting  package  may 
not  be  compatible  with  the  popular  accelerator  pro- 
grams for  the  1541  disk  drive, 

"64  Autoboot  Maker"  gives  you  the  best  of  both 
worlds — an  autoboot  that  works  with  most  accelerated 
drives  and  normal  drives,  too.  (Unfortunately,  it  won't 
work  with  the  "TurboDisk"  accelerator  published  in 
the  July  1985  issue  of  the  GAZETTE.)  You  can  make  an 
autoboot  for  any  BASIC  or  machine  language  program, 
and  even  disable  the  RUN/STOP  and  RESTORE  keys 
if  you  like. 

Preparing  An  Autoboot 

Type  in  64  Autoboot  Maker  and  save  a  copy,  then  run 
it.  First  it  asks  for  the  name  of  the  target  program  (the 
one  you  want  the  autoboot  to  load  and  run).  Since  Auto- 
boot Maker  looks  for  the  program  on  disk,  insert  the 
correct  disk  in  the  drive  when  you  enter  the  filename. 
Next,  enter  a  name  for  the  autoboot.  Of  course,  this 
name  should  be  different  from  the  original  filename. 
For  example,  if  the  target  program  is  named  LASER, 
you  could  call  the  autoboot  LASER/BOOT. 

At  this  point,  you  must  enter  the  memory  address 
where  the  program  begins.  If  the  target  program  is 
BASIC,  press  RETURN  without  entering  a  number 
(BASIC  programs  always  start  in  the  same  place).  If  the 
target  program  is  machine  language,  enter  the  memory 
address  where  it  normally  begins.  The  address  may  be 
entered  in  decimal  or  hexadecimal  (a  hex  number  must 
begin  with  the  $  symbol). 

Finally,  you  have  the  option  of  making  the  auto- 
boot disable  the  RUN/STOP  and  RESTORE  keys. 
(Warning:  With  these  keys  disabled,  you  may  not  be 
able  to  break  out  of  the  autobooted  program  without 
turning  off  the  computer.)  Enter  Y  if  you  want  them 
disabled  and  N  if  you  don't.  Once  this  is  done,  the  disk 
drive  spins  for  a  short  time  and  the  status  of  the  drive 
appears  on  the  screen. 

To  test  the  newly  created  autoboot  package,  sim- 
ply type  LOAD  "filename''.^,],  and  press  RETURN.  Re- 
place filename  with  the  name  of  your  autoboot,  and 
don't  forget  the  ,1  after  the  8.  The  target  program  auto- 
matically loads  and  runs.  (If  it  doesn't,  one  reason  may 
be  that  it  loads  into  the  same  memory  area  as  the  auto- 
boot itself— locations  $02A7-0303.) 

Note  that  you  must  repeat  the  procedure  to  create 
the  same  autoboot  file  on  another  disk. 
See  program  listing  on  page  75.  * 


The  Automatic  Proofreader 


'hilip  1,  Nelson 


'Thf  Automatic  Proofreader"  helps 
.'ou  type  in  program  listings  for  the 
128,  64,  nus/4,  and  16  and  prevents 
learly  every  kind  of  typing  mistake. 

Type  in  the  Proofreader  exact lu  as 
isted.  Since  the  program  can't  check  it- 
;elf,  type  carefully  to  avoid  mistakes. 
>on't  omit  any  lines,  even  if  they  con- 
ain  unfamiliar  commands.  After  finish- 
ng,  save  a  copy  or  two  on  disk  or  tape 
jefore  running  it.  This  is  important  be- 
cause the  Proofreader  erases  the  BASIC 
portion  of  itself  when  you  run  it,  leav- 
ng  only  the  machine  language  portion 
n  memory. 

Next,  type  RUN  and  press  RE- 
rURN.  After  announcing  which  com- 
:>uter  it's  running  on,  the  Proofreader 
displays  the  message  "Proofreader 
\ctive".  Novv  you're  ready  to  type  in  a 
iASlC  program. 

Every  time  you  finish  typing  a  line 
md  press  RETURN,  the  Proofreader 
iisplays  a  two-letter  checksum  in  the 
ipper-lcft  corner  of  the  screen.  Com- 
pare this  result  ivith  the  two-letter 
-hecksum  printed  lo  the  loft  of  the  line 
n  the  program  listing.  If  the  letters 
natch,  it's  almost  certain  the  line  was 
yped  correctly,  [f  the  letters  don't 
natch,  check  for  your  mistake  and  cor- 
ect  the  line. 

The  Proofreader  ignores  spaces  not 
-■nclosed  in  c}uoles,  so  you  can  omit  or 
idd  spaces  between  keywords  and  still 
;ee  a  matching  checksum.  However, 
;incc  spaces  inside  quotes  are  almost  al- 
-vays  significant,  the  Proofreader  pays 
jftention  to  them.  For  exainple,  10 
'RINT'THIS  IS  BASIC"  will  generate 
1  different  checksum  than  10 
PRINT'THIS  ISBA       SIC". 

A  common  typing  error  is  transpo- 
iition — typing  two  successive  charac- 
ers  in  the  wrong  order,  like  PIRNT 
nstoad  of  PRINT  or  64378  instead  of 
34738,  The  Proofreader  is  sensitive  to 
he  pfl^itioii  of  each  character  within  the 
ine  and  thus  catches  transposition 
.•rrors. 

The  Proofreader  docs  )iot  accept 
<eyword  abbreviations  (for  example,  ? 
nstead  of  PRINT),  if  you  prefer  to  use 
ibhreviation.s,  you  can  still  check  the 
ine  by  IJSTJng  it  after  typing  it  in, 
noving  the  cursor  back  to  the  line,  and 
;)ressing  RHTURN.  LlSTing  the  line 


substitutes  the  full  keyword  for  the  ab- 
breviation and  allows  the  Proofreader 
to  work  properly.  The  same  technique 
works  for  rochecking  programs  you've 
already  typed  in. 

If  you're  using  the  Proofreader  on 
the  Commodore  128,  PIus/4,  or  16,  do 
not  perform  a»y  GRAPHIC  commands 
icliile  the  Proofreader  is  acth'e.  When 
you  perform  a  command  like  GRAPH- 
IC 1,  the  computer  moves  everything  at 
the  start  of  BASIC  program  space — in- 
cluding the  Proof  reader^  to  another 
memory  area,  causing  the  Proofreader 
to  crash.  The  same  thing  happens  if  you 
run  any  program  with  a  GRAPHIC 
command  while  the  Proofreader  is  in 
memory. 

Though  the  Proofreader  doesn't 
interfere  with  other  BASIC  operations, 
it's  a  good  idea  to  disable  it  before  run- 
ning another  program.  However,  the 
Proofreader  is  purposely  difficult  to  dis- 
lodge:  it's  not  affected  by  tape  or  disk 
operations,  or  by  pressing  RUN/ 
STOP-  RESTORE,  The  .simplest  way  to 
disable  it  is  to  turn  the  computer  off 
then  on.  A  gentler  method  is  to  SYS  to 
the  computer's  built-in  reset  routine 
(SYS  65341  for  the  128,  64738  for  the 
64,  and  65526  for  the  rius/4  and  16), 
These  reset  routines  erase  any  program 
in  memory,  so  be  sure  to  save  the  pro- 
gram "you're  typing  in  before  entering 
the  SYS  command. 

If  \'ou  own  a  Commodore  64,  you 
may  already  have  wondered  whether 
the  Proofreader  works  with  other  pro- 
gramming utilities  like  "MetaBASlC," 
The  answer  is  generally  yes,  if  you're 
usin§  a  64  n)id  nctiimte  the  Proofreader 
after  installing  the  atlter  utUity.  For  ox- 
ample,  first  load  and  activate  Meta- 
BASlC, then  load  and  run  the 
Proofreader. 

When  using  the  Proofreader  with 
another  utility,  you  should  disable  both 
programs  before  running  a  BASIC  pro* 
gram.  While  the  Proofreader  .seems  un- 
affected by  most  utilities,  there's  no 
way  to  promise  thai  it  will  work  with 
any  and  every  combination  of  utilities 
you  might  want  to  use.  The  more  utili- 
ties activated,  the  more  fragile  the  sys- 
tem becomes. 

The  New  Auiomatic  Proofreader 


10    VEC  =  Plii:K(772)  t; 
:t,0=43  Jl[l"41 


■j()*PKi;K(773) 


20    PRINT    '!  AUTOMATIC    PBOQt^READE 

R    FOR    ";:1I'    V[;C--42364    TfU:M 

[SPACElPRlHT    "C-M" 
30    IF    VEC=505GG    THKM    I'UIN'l'    "V'l 

C-20" 
40    IF   VKC=35150  THEN   GKAt'HtC   C 

l.R:  PRINT    "PLUS/4    L    16" 
50    IF    VEC=17i65    'TUliH    LO  =  45:HI  = 

4();GRAPIiXC    CI.R:PRINT"138" 
60    SA=<PEEK(LO)+250*PEEK(HI))-F 

6 ! ADH=SA 
70    FOR   J=0    TO    100: READ    BVTiPOK 

E    ADR, BVT: Ami-AnRt I 7CHK=CHK 

+  !3YT:NfEXT 
sa     IF    CHKO2057H    'I'fIMM    PRINT    "* 

1-;RR0R*    check    XVPtNCi     IN    D.'^TA 

90    FOR    J=l    TO    5: READ    RF,LF,HF: 

RS=SA-i-RF:HB=INT(RK/256)  :  J.B= 

RS-(256*HB) 
100    CHK=CHK+RF+LF+HF!POKE    SA+L 

F,I,B:POKE    SA+HF,  MH  jNEXT 
iia    IF    CHKO22054    THEN    PRINT    " 

*  ERROR*    RKI.OAD    PROGRAM    AND 

(  SPACE  JCHECK    FINAI,    LINE":  EN 

1) 
120    POKE   SA-I- 149,  PEEK  (772)  :POKI-: 

SA4-150,PEEK(773} 
130    IF   VEC=1716  5    TEIEN    POKE    SA+ 

14, 22: POKE    SA+18, 23 :POKESA+ 

29,2  24:POKESA+U<J,2  2.i 
140    PRiriT   CHR$(  147)  ;aiRS(17);  ■' 

PROOFREADER   ACTIVE": SYS    SA 
150    POKE   I!I,PEEK(lt]  )+l  :POKE    (P 

EEK(L0)+2  56*PEEK(H1} )-l ,0:N 

EW 
L60    DATA    120, 1&9,  73, 141 ,4,3,16 

9,3,141,5,3 
170    DATA   89,96,  lr.5,  20, 133,  167, 

165,21,133,  IGS,  169 
li30    DATA    O,141,0,2i5,iO2,31,l8 

1  ,199,157,227,3 

19(3    DATA    202,16,248,169,19,32, 

210,255,  169,19,32 
200    DATA   210,255,160,0,132,180. 

,132,176,136,230,100 
210    DATA    200,18  5,0,2,240,4  6,20 

1,34,208,8,72 
220    DATA    165,17  6,73,25  5,133,17 

6,104,72,201 ,32,208 
230    DATA    7,165,176,208,3,104,2 

08,225,104, 166,180 
240  DATA  24,165,167,121,0,3,13 

3,167, 165,168, 105 
250  DATA  0,13  3,168,202.208,239 

,240,202, 165,167,69 
260    DATA    160,72,41,15,168,185, 

2  U,  3,  32,  2 10,  2  5  r. 

270    DATA    104,74,74,74,74,168,1 

85,2) 1,3,32,210 
280    DATA    2  5  5,162,31,189,227,3, 

149,199,202, 16,248 
290    DATA    169,146,32,210,255,76 

,86,137,65,66,67 
300    DATA   68,69,70,71,72,74,75, 

77,80,81,82,83,88 
310    DATA    13,2,7,167,31,32,151, 

116,  117,151  , 128, 129, 167,136 

'137  ^ 


COMPUT£rs  Gaicttv  Spocial  1988  Issue        6 1 


How  To  Type  In  mmmmm. 
COMPVTEVs  Gazette  Programs 


Each  month,  COMPUTRI's  Gazette 
publishes  programs  for  the  Com- 
modore 128,  64,  Plus/4,  and  16. 
Each  program  is  clearly  marked  by 
title  and  version.  Be  sure  to  type  in 
the  correct  version  for  your  ma- 
chine. All  64  programs  run  on  the 
128  in  64  mode.  Be  sure  to  read  the 
instructions  in  the  corresponding 
article.  Thi.';  can  save  time  and  elim- 
inate any  questions  which  might 
arise  after  you  begin  typing. 

We  frequently  publish  two 
programs  designed  to  make  typing 
easier:  The  Automatic  Proofreader, 
and  MLX,  designed  for  entering 
machine  language  programs. 

When  entering  a  BASIC  pro- 
gram, be  especially  careful  with 
DATA  statements  as  they  are  ex- 
tremely sensitive  to  errors.  A  mis- 
typed number  in  a  DATA  statement 
can  cause  your  machine  to  "lock 
up"  (you'll  have  no  control  over  the 
computer).  U  this  happens,  the  only 
recourse  is  to  turn  your  computer 
off  then  on,  erasing  what  was  in 
memory.  So  be  sure  to  save  a  pro- 
gyaiii  before  you  run  it.  If  your  com- 
puter crashes,  you  can  always 
reload  the  program  and  look  for  the 


Special  Characters 

Most  of  the  programs  listed  in  each 
issue  contain  special  control  charac- 
ters. To  facilitate  typing  in  any  pro- 
grams from  the  GAZETTE,  use  the 
following  listing  conventions. 

The  most  common  type  of  con- 
trol characters  in  our  listings  appear 
as  words  within  braces:  [DOWN} 
means  to  press  the  cursor  down 
key;  {5  SPACES]  means  to  press 
the  space  bar  five  times. 

To  indicate  that  a  key  should 
be  s/ii/h*rf  (hold  down  the  SHIFT 
key  while  pressing  another  key), 
the  character  is  underlined.  For  ex- 
ample, A  means  hold  down  the 
SHIPT  key  and  press  A.  You  may 
see  strange  characters  on  your 
screen,  but  that's  to  be  expected.  If 
you  find  a  number  followed  by  an 
underlined  key  enclosed  in  braces 
(for  example,  {8  A}),  type  the  key 
as  many  times  as  indicated  (in,  our 
example,  enter  eight  SHlFTed  A's). 

If  a  key  is  enclosed  in  special 
brackets,  %  §,  hold  down  the 
Commodore  key  (at  the  lower  left 
corner  of  the  keyboard)  and  press 
the  indicated  character. 

Rarely,  you'll  see  a  single  letter 
of  the  alphabet  enclosed  in  braces. 


This  can  be'ehtefeS  on  the  Cbrhmb- 
dore  64  by  pressing  the  CTRL  key 
while  typing  the  letter  in  braces.  For 
example,  (A}  means  to  press 
CTRL-A. 


The  Quote  Mode 

Although  you  can  move  the  cursor 
around  the  screen  with  the  CRSR 
keys,  often  a  programmer  will  want 
to  move  the  cursor  under  program 
control.  This  is  seen  in  examples 
such  as  {LEFT},  and  {HOME}  in 
the  program  listings.  The  only  way 
the  computer  can  tell  the  difference 
between  direct  and  programmed 
cursor  control  is  the  quote  mode. 

Once  you  press  the  quote  key,j 
you're  in  quote  mode.  This  mode' 
can  be  confusing  if  you  mistype  a 
character  and  cursor  left  to  cfrange 
it.  You'll  see  a  reverse  video  charac- 
ter (a  graphics  symbol  for  cursor 
left).  In  this  case,  you  can  use  the 
DELete  key  to  back  up  and  edit  the 
line.  Type  another  quote  and  you're 
out  of  quote  mode.  If  things  really 
get  confusing,  you  can  exit  quote 
mode  simply  by  pressing  RETURN. 
Then  just  cursor  up  to  the  mistyped 
line  and  fix  it. 


When  You 
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Machine  Language  Entry  Program 
For  Commodore  64  and  128 


OHts  K,  Cowper,  Technical  Editor  ^ 

"MLX"  is  a  labor-saving  utility  that 
allows  almost  fail-safe  entry  of 
machine  language  programs.  Included 
are  versions  for  the  Commodore  64 

and  128. 

Type  in  and  save  some  copies  of  whicK- 
cvcr  version  of  MLX  is  appropriate  for 
your  computer  (you'll  want  to  use  it  to 
enter  future  ML  programs  from  COM- 
PUTEI's  GAZETTE).  Program  t  is  for  the 
Commodore  64,  and  Program  2  is  for 
the  128  (128  MLX  can  also  be  used  to 
enter  Commodore  64  ML  programs  for 
use  in  64  mode).  When  you're  ready  to 
enter  an  ML  program,  load  and  run 
MLX.  It  asks  you  for  a  starting  address 
and  an  ending  address.  These  addresses 
appear  in  the  article  accompanying  the 
MLX-format  program  listing  you're 
typing. 

If  you're  unfamiliar  with  machine 
language,  the  addresses  (and  alt  other 
values  you  enter  in  MLX)  may  appear 
strange.  Instead  of  the  usual  decimal 
numbers  you're  accustomed  to,  these 
numbers  are  in  hexadecimal — a  base  16 
numbering  system  commonly  used  by 
ML  programmers.  Hexadecimal — hex 
for  short— includes  the  numerals  0-9 
and  the  letters  A-l*.  But  don't  worry — 
even  if  you  know  nothing  about  ML  or 
hex,  you  should  have  no  trouble  using 
M!J<. 

After  you  enter  the  starting  and 
ending  addresses,  you'll  be  offered  the 
option  of  clearing  the  workspace. 
Choose  this  option  if  you're  starting  to 
enter  a  new  listing.  If  you're  continuing 
a  listing  that's  partially  typed  from  a 
previous  session,  don't  choose  this 
option. 

A  functions  menu  wilt  appear.  The 
first  option  in  the  menu  is  ENTER 
DATA.  If  you're  just  starting  to  type  in 
a  program,  pick  this.  Press  the  E  key, 
and  type  the  first  number  in  the  first 
line  of  the  program  listing,  if  you've  al- 
ready typed  in  part  of  a  program,  type 
the  line  number  where  you  left  off  typ- 
ing at  the  end  of  the  previous  session 
(be  sure  to  load  the  partially  completed 
program  before  you  resume  entry).  In 
any  case,  make  sure  the  address  you  en- 
ter corresponds  to  the  address  of  a  line 
in  tlic  listing  you  are  entering.  Other- 
wise, you'll  be  unable  to  enter  the  data 
correctly,  if  you  pressed  E  by  mistake, 
you  can  return  to  the  command  menu 
by  pressing  RETURN  alone  when 
.asked  for  the  address.  (You  can  get  back 
to  the  menu  from  most  options  by 
pressing  RETURN  with  no  other  input.) 


Entering  A  Listing:^^^^: 

Once  you're  in  Enter  mode,  MLX  prints 
the  address  for  each  program  line  for 
you.  You  then  type  in  all  nine  numbers 
on  that  line,  beginning  with  the  first 
two-digit  number  after  the  colon  (:). 
Each  tine  represents  eight  data  bytes 
and  a  checksum.  Although  an  MLX- 
format  listing  appears  similar  to  the 
"hex  dump"  listings  from  a  machine 
language  monitor  program,  the  extra 
checksum  number  on  the  end  allows 
MLX  to  check  your  typing.  (Commo- 
dore 1 28  users  can  enter  the  data  from 
an  MLX  listing  using  the  buiit-in  moni- 
tor if  the  rightmost  column  of  data  is 
omitted,  but  wc  recommend  against  it. 
It's  much  easier  to  let  MLX  do  the  proof- 
reading and  error  checking  for  you.) 

When  you  enter  a  line,  MLX  recal- 
culates the  checksum  from  the  eight 
bytes  and  the  address  and  compares 
this  value  to  the  number  from  the  ninth 
column.  If  the  values  match,  you'll  hear 
a  belt  tone,  the  data  will  be  added  to  the 
^vorkspace  area,  and  the  prompt  for  the 
next  line  of  data  will  appear.  But  if  MLX 
detects  a  typing  error,  you'll  hear  a  low 
buzz  and  see  an  error  message.  The  line 
will  then  ha  redisplayed  for  editing. 

Invalid  Characters  Banned 

Only  a  few  keys  are  active  while  you're 
entering  data,  so  you  may  have  to  un- 
learn some  habits,  You  do  not  type 
spaces  between  the  columns;  MLX 
automatically  inserts  these  for  you.  You 
do  not  press  RETURN  after  typing  the 
last  number  in  a  line;  MLX  automatical- 
ly enters  and  checks  the  line  after  you 
type  the  last  digit. 

Only  the  numerals  0-9  and  the  tet- 
ters A-I"'  can  be  typed  in.  If  you  press 
any  other  key  (with  some  exceptions 
noted  below),  you'll  hear  a  warning 
buzz.  To  simplify  typing,  128  MLX  re- 
defines the  function  keys  and  +  and  ^ 
keys  on  the  numeric  keypad  so  that  you 
can  enter  data  one-handed.  (The  64 
vereion  incorporates  the  keypad  modi- 
fication from  the  March  1986  "Bug- 
Swatter"  column,  lines  485-487.)  In 
either  case,  the  keypad  is  active  only 
while  entering  data.  Addresses  must  be 
entered  with  the  normal  letter  and 
number  keys.  The  figures  above  show 
the  keypad  configurations  for  each 
version. 

MLX  checks  for  transposed  charac- 
ters. !f  you're  supposed  to  type  in  AO 
and  instead  enter  OA,  MLX  will  catch 
your  mistake.  There  is  one  error  that 
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can  slip  past  MLX:  Because  of  the 
checksum  formula  used,  MLX  won't 
notice  if  you  accidentally  type  I'F  in 
place  of  00,  and  vice  versa.  And  there's 
a  very  slim  chance  that  you  could  gar- 
bles line  and  still  end  up  with  a  combi- 
nation of  characters  that  adds  up  to  the 
proper  checksum.  However,  these  mis- 
takes should  not  occur  if  you  take  rea- 
sonable care  while  entering  data. 

Editing  Features 

To  correct  typing  mistakes  before  fin- 
ishing a  line,  use  the  INST/DEL  key  to 
delete  the  character  to  the  left  of  the 
cursor.  (The  cursor-left  key  also  de- 
letes.) If  you  mess  up  a  line  really  badly, 
press  CLR/HOME  to  start  the  line  over. 
The  RETURN  key  is  also  active,  but 
only  before  any  data  is  typed  on  a  line. 
Pressing  RETURN  at  this  point  returns 
you  to  the  command  menu.  After  you 
type  a  character  of  data,  MLX  disables 
RETURN  until  the  cursor  returns  to  the 
start  of  a  line.  Remember,  you  can  press 
CLR/HOME  to  quickly  get  to  a  line 
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number  prompt.  v^ 

More  editing  features  are  available' 
when  correcting  lines  in  which  MLX 
has  detected  an  error.  To  make  correc- 
tions in  a  line  that  MLX  has  redisplayed 
for  editing,  compare  the  line  on  the 
screen  with  the  one  printed  in  the  list- 
ing, then  move  the  cursor  to  the  mis- 
take and  type  the  correct  key.  The 
cursor  left  and  right  keys  provide  the 
normal  cursor  controls.  (The  INST/ 
DEL  key  now  works  as  an  alternative 
cursor-left  key.)  You  cannot  move  left 
beyond  the  first  character  in  the  line.  If 
you  try  to  move  beyond  the  rightmost 
character,  you'll  reenter  the  line.  Dur- 
ing editing,  RETURN  is  active;  pressing 
it  tells  MLX  to  recheck  the  line.  You  can 
press  the  CLR/HOME  key  to  clear  the 
entire  line  if  you  want  to  start  from 
scratch,  or  if  ynu  want  to  get  to  a  line 
number  prompt  to  use  RETURN  to  get 
back  to  the  menu. 

Display  Data  9^ 

The  second  menu  choice,  DISPLAY 
DATA,  examines  memory  and  shows 
the  contents  in  the  same  format  as  the 
program  listing  (including  the  check- 
sum). When  you  press  D,  MLX  asks  you 
<ifor  a  starting  address.  Be  sure  that  the 
'Starting  address  you  give  corresponds 
to  a  line  number  in  the  listing.  Other- 
wise, the  checksum  display  will  be 
meaningless.  MLX  displays  program 
lines  until  it  reaches  the  end  of  the  pro- 
gram, at  which  point  the  menu  is  redis- 
played. You  can  pause  the  display  by 
pressing  the  space  bar.  {MLX  finishes 
printing  the  current  line  before  halting.) 
Press  space  again  to  restart  the  display. 
To  break  out  of  the  display  and  get  back 
to  the  menu  before  the  ending  address 
is  reached,  pre.ss  RETURN. 

Other  Menu  Options 

Two  more  menu  selections  let  you  save 
programs  and  ioad  them  back  into  the 
computer.  These  are  SAVE  FILE  and 
LOAD  FILE;  their  operation  is  quite 
straightforward.  When  you  press  S  or  L, 
MLX  asks  you  for  the  filename.  You'll 
then  be  asked  to  press  cither  D  or  T  to 
select  disk  or  tape. 

You'I!  notice  the  disk  drive  starting 
and  slopping  several  times  during  a 
load  or  save  (save  only  for  the  L28  ver- 
sion). Don't  panic;  this  is  normal  be- 
havior. MLX  opens  and  reads  from  or 
writes  to  the  file  instead  of  using  the 
usual  LOAD  and  SAVE  commands 
(128  MLX  makes  use  of  BLOAD).  Disk 
users  should  also  note  that  the  drive 
■  prefix  Or  is  automatically  added  to  the 
filename  (line  750  in  64  MLX),  so  this 
should  tmi  be  included  when  entering 
the  name.  This  also  precludes  the  use  of 
(3)  for  Save-wilh-Replace,  so  remember 
to  give  each  version  you  save  a  different 


le.  The  128  version  makes  up  for 
'Mi  by  giving  you  the  option  of  scratch- 
ing the  existing  file  if  you  want  to  reuse 
a  filename. 

Remember  that  MLX  saves  the  en- 
tire workspace  area  from  the  starting 
address  to  the  ending  address,  so  the 
save  or  load  may  take  longer  than  you 
might  expect  if  you've  entered  only  a 
small  amount  of  data  from  a  long  list- 
ing. When  saving  a  partially  completed 
listing,  make  sure  to  note  the  address 
where  you  stopped  typing  so  you'll 
know  where  to  resume  entry  when  you 
reload. 

MLX  reports  the  standard  disk  or 
tape  error  messages  if  any  problems  are 
detected  during  the  save  or  load.  (Tape, 
users  should  bear  in  mind  that  Commo- 
dore computers  are  never  able  to  detect 
errors  during  a  save  to  tape.)  MLX  also 
has  three  special  load  error  me.s.sages: 
INCORRECT  STARTING  ADDRESS, 
which  means  the  file  you're  trying  to 
load  does  not  have  the  starting  address 
you  specified  when  you  ran  MLX; 
LOAD  ENDED  AT  arfrfrcss,  which 
means  the  file  you're  trying  to  load 
ends  before  the  ending  address  you 
specified  when  you  started  MLX;  and 
TRUNCATED  AT  ENDING  AD- 
DRESS, which  means  the  file  you're 
trying  to  load  extends  beyond  the  end- 
ing address  you  specified  when  you 
Started  MLX.  if  you  see  one  of  these 
messages  and  feel  certain  that  you've 
loaded  the  right  file,  exit  and  rerun 
MLX,  being  careful  to  enter  the  correct 
starting  and  ending  addresses. 

The  128  version  also  has  a  CATA- 
LOG DISK  option  so  you  can  view  the 
contents  of  the  disk  directory  before 
saving  or  loading. 

The  QUIT  menu  option  has  the  ob- 
vious effect — it  stops  MLX  and  enters 
BASIC.  The  RUN/STOP  key  is  dis- 
abled, so  the  Q  option  lets  you  exit  the 
program  without  turning  off  the  com- 
puter. (Of  course,  RUN/STOP-RE- 
STORE also  get-s  you  out.)  You'll  be 
asked  for  verification;  press  Y  to  exit  to 
BASIC,  or  any  other  key  to  return  to  the 
menu.  After  quitting,  you  can  type 
RUN  again  and  reenter  MLX  without 
losing  your  data,  as  long  as  you  don't 
use  the  clear  workspace  option. 

The  Finished  Product 

When  you've  finished  typing  all  the 
data  for  an  ML  program  and  saved  your 
work,  you're  ready  to  see  the  results. 
The  instruction.*!  for  loading  and  using 
the  finished  product  vary  from  program 
to  program.  Some  ML  programs  are  de- 
signed to  be  loaded  and  run  like  BASIC 
programs,  so  all  you  need  to  type  is 
LOAD  "l\\emmt"',%  for  disk  (DLOAD 
"fiimame"  on  the  128)  or  LOAD  "/jff- 
nmxi'"  for  tape,  and  then  RUN,  Such 


programs  will  usually  have  a  starting 
address  of  0801  for  the  64  or  ICO  1  for 
the  128.  Other  programs  must  be  re- 
loaded to  specific  addre.sses  with  a  com- 
mand such  as  LOAD  "fdmami:" ,%,\  for 
disk  (BLOAD  ■'filcnaiiH'"  on  the  128)  or 
LOAD  "fih'nami'",l,l  for  tape,  then 
started  with  a  SYS  to  a  particular  mem- 
ory address.  On  the  Commodore  64, 
the  most  common  starting  address  for 
such  programs  is  49152,  which  corre- 
sponds to  MLX  address  COOO,  In  either 
case,  you  should  always  refer  to  the  ar- 
ticle which  accompanies  the  ML  listing 
for  informarion  on  loading  and  running 
the  program. 

An  Ounce  Of  Prevention 

By  the  time  you  finish  typing  in  the  data 
for  a  long  ML  program,  you  may  have 
several  hours  invested  in  the  project. 
Don't  take  chances— use  our  "Auto- 
matic Proofreader"  to  type  the  new 
MLX,  and  then  test  your  copy  fhorough- 
\y  before  first  using  it  to  enter  any  sig- 
nificant amount  of  data.  Make  sure  all 
the  menu  options  work  as  they  should. 
Enter  fragments  of  the  program  starting 
at  several  different  addresses,  then  use 
the  Display  option  to  verify  that  the 
data  has  been  entered  correctly.  And  be 
sure  to  test  the  Save  and  Load  options 
several  times  to  ensure  that  you  can  re- 
call your  work  from  disk  or  tape.  Don't 
let  a  simple  typing  error  in  .the  new 
MLX  cost  you  several  nights  of  hard 
work. 

Program  1:  MLX  For  Commodore 
64 


SS  10 


EK 

100 

DM 

110 

CJ 

120 

SB 

130 

CQ 

140 

FC 

150 

EJ 

160 

FR  170 


JB  180 


REM  VERSION  l.l:  LINES  8 
30,950  MODIFIED,  LINES  4 
85-487  ADDED 
POKE  56, 50:CLR!DIM  INS, 
I,J,A,a,A?,B5,A(7),NS 
C4=48:C6  =  16:C7»7:22->2iZ 
4=254 iZ5=255 =36*256! 27= 
127 

FA=PEEK(45)+26*PEEK(46) 
.•BS  =  PEEK(55)+Z6*PEEK(S6 
> jHS="0123456789ABCDEP" 
RSeCHR?{13)!L?=" [LEFTt" 
:SS="  ":DS=CHR5(20) tZS= 
CHRS(0)iTS-"(13  RIGHT)" 
SD='54272!FOR  I  =  SD  TO  SD 
+23iPOKE  I,0:NEXTiPOKE 
iSPACEiSD+24,15;POKE  78 
8,52 

PRINT" (CLR)"CHRS( 142 )CH 
R5(8):POKE  53280, 15:POK 
E  53281,15 

PRINT  TS"  IRED) {RVSj, 
12  SPACES  Ha  #1 
(2  SPACES] "SPC( 28)" 
(2  SPACES] f OFF} {BLUj  ML 

X  II  (redHrvs) 

(2  SPACESj"SPC(28)"^ 

(12  SPACES H BLU J  V^' 

PRINT"! 3  DOWN] 

(3  SPACESlCOMPUTEl 'S  HA 

CHIME  LANGUAGE  EDITOR 

I  3  DOWN  I" 

PRI!*T"1BLK} STARTING    ADD 


0 
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D!GOSUB1040  5rF   F   THEN18 

e 

GF    190    PRINT'MBLK)  [2    SPACESjEN 

DI NG   ADDRES  S  N I " f : GOSU  B 

300:EAbAD:GOSUB1030:IF 

1  SPACE )F   THEH190 
KR    200    INPUT"[3    DOWN } [ BLK ) CLEA 

R   WORKSPACE    [y/N]g43";A 

$:IF   LEFTS(A$,1)<>"Y"TH 

&b:220 
PG  210  PRINT" [2  DOWN) {BLU} WORK 

ING. • •"; !FORI=BS  TO  BS+ 

EA-SA+7iP0KE    I.BiNEXTjP 

R1NT"I10NE" 
DR    220    l'RINTTAB(10)  "[2    DOWN) 

( BLK  H  RVS )    MLX    COMMAND 

{SPACE} MENU    [DOWN)§4i"! 

PRINT   TS"{RVS5EiOPF}NTE 

R   DATA" 
BD    230    PRINT   T? " (RVS )d[0FF] ISP 

LAY   DATA":PRINT   T?" 

{RVS)L(0Fr)0AD   FILE" 
JS   240    PRINT   T5"{RVS)s£0FF}AVE 
PILE" t PRINT   TS"{HVS3Q 

{0FF)!JITt2    DOWNKBLK)" 
JH    250    GET   A5:IF    A9«N5    THEN25a 
HK   260   A=0iFOR   1=1    TO   5; IF   A?= 

MIDSC"EDLSQ", 1,1) THEN   A 

=IsI=5 
FD  270  NEXT:ON  A  GOTO420,610, 6 

90, 700 ,280 :GOSUB1060 :G0 

TO2S0 
EJ  280  PRINT" [RVS)  QUIT  ":INPU 

T"{ DOWN) 143 ARE  YOU  SURE 
tY/N]";AS;IF  LEFT? (A?, 

1)<>-"Y"THEN2  20 
EM  290  POKE  SD+24,0!END 
JX  300  IN5=N5:AD=0:INPUTIN5:IF 

LEN ( IN? ) <>  4THENRETURN 
KF  310  B5=IN?!GOSUB320:AD=A;BS 

=MID?(IN5,3) !GOSUB320:A 

D='AD*256+A:RETURN 
PP  320  A=0!FOR  J^l  TO  2:AS=MID 

5(B5,J, 1) !B=ASC(A$>-C4+ 

(A$>"@")*C7jA=A*C6+B 
JA  330  IF  B<0  OR  B>1S  THEN  AD= 

0:A=-1:J=2 
GX  340  NEXT  I  RETURN 
CH  350  B=INT(A/C6) SPRINT  MID5 ( 

HS,B+l,l);:B=A-B*C6!PRI 

NT  MIDS(E1S,B^-1,  1);  :RETU 

RN 
RR    360    A-INT(AD/Z6) iGOSUB350:A 

-AD-A*Z6iGOSUB3 50: PRINT 

BE  370  CK=INT(AD/Z6)  ;CK=AJ}-S4* 

CK+Z5* (CK>Z7);GOTO390 
PX  380  CK=CK*Z2+Z5*(CK>37}+A 
JC  390  CK=CK+Z5*(CK>Z5} : RETURN 
QS  400  PRINT "I  DOWN} STARTING  AT 

Mi";  !GOSUB300:IF  IN?  <> 

N$  THEN  GOSUB1030!lF  F 

{ SPACE )THEN400 
'fc)C''4l0  RETURN 
HD  420  PRINT"! RVS)  ENTER  DATA 

(SPACE} "!GOSUB400: IF  IN 

?=N5   THEN220 
JK   430   0PEN3,3!PR1NT 
SK    440    POKE198,0!GOSUB36O:IF   F 
THEN    PRINT    IN$:PR1NT" 

(UP) {5    RIGHT)"; 
GC    450    FOR    1=0   TO    24    STEP    3:BS 

•■SSiFOR   J=l    TO    2:IF   P   T 

HEN    BS=MID5(1K5,1+J,1) 
HA    460    PRINT" tRVS) "B5L$; :1F    I< 

Z4THEN    PRINT "(off)" ; 
HD    470    GET    AS : I F   AS=NS    THEN470 
FK    480    IF(AS>"/"ANDA5<"J  ■■)OR(A 

5>"g"ANDASt"G")THEN540 
GS    485    Ae-(AS="M")-2*(AS=", ")- 


3*(A?S^^!^'4*(A?  =  "/")-5 

*(AS="J")-6*{AS="K") 

FX    486    A=A-7*(A?='"L")-8*iA5  =  ": 

" )-9* (A5="U" )-10* (A?="I 

")-ll*(A5="0")-12*{AS=" 
p..) 

CM  487  A=A-13*(AS=SS)sIF  A  THE 
N  AS=MIDS( "ABCD123E456P 
0",A,1)!GOTO    540 

MP  490  IF  A5=R5  AND( (I=0)ANDtJ 
=1)0R  F)THEN  PRINT  8$;: 
J=2  !NEXT: 1  =  24  SGOTO550 

KC  500  IF  AS="[H0MH5"  THEN  PRI 
MT  B?!J=2:NEXT:I=24:KEX 
TiFB0iqOTO440 

MX  510  IF {A$=" (RIGHT) ")ANDr  TH 
ENPRINT    D5L5; IGOTO540 

GK  520  IF  A?<>L$  AND  AS<>DS  OR 
( (I=0)AND(J=1) )THEN  GOS 
UB1060!GOTO470 

HG    530   A5=LS+S5-t-LS:PRlNT    B5L5; 
!J=2-J!IF   J    THEN    PRINT 
{ SPACE} L5; ! 1=1-3 

QS    540    PRINT   A5;itJEXT  JjPRINT 
( SPACE )S$; 

PM  550  NEXT  I ! PRINT t PRINT "(UP) 
(5  right)"; !lNPUT#3,IN5 
£lF  INS=N?  THEN  CLOSE 3: 
GOTO220 

QC    560    FOR    1=1    TO   25    STEP3:B?= 
MIDS(IN?,I) !GOSUB320:IF 
I<25    THEN   GOSUB3B0!A(I 
/3)=A 

PK    570    NEXTjIF   AoCK    THEN   GOSU 
Bl 0601 PRI NT "(BLK) (RVS) 
(space) ERROR:    REENTER   L 
INE    143" iF=l tGOTO440 

HJ  580  GOSUB10B0:B=BS+AD-SA;FO 
R  1=0  TO  7 1  POKE  B+I,A(I 
) iNEXT 

QQ  590  AD=AD+8!lF  AD>EA  THEN  C 
L0SE3t PRINT "(down) (BLU) 
*•  END  OF  ENTRY  **(BLK) 
(2    DOWN)"iGOTO700 

GQ    600    F='0!GOTO440 

QA   610    PRINT" (CLR) (down) (RVS) 
{SPACE  3  DISPLAY   DATA    ":G 
OSUB400:IF    IN5=N$    THEN2 
20 

Rj    620    P RI NT  "! DOWN  )f  BLU)  PRESS: 
(RVS) SPACE (OFF)    TO    PAU 
SE,     (RVSjRETURNJOFF)    TO 
BREAKi4i(D0WN}" 

KS  630  GOSUB360:B=BS+AD-SAtFOR 
I=BTO  B+7iA=PEEK(I) sGOS 
UB350iGOSUB380tPRINT    S? 

CC    640    NEXT!PRINT"{RVS)";:A=CK 

:GOSUB350 SPRINT 
K{i„  .630    F=1jAD=AD+8jIF   AD>EA   TH 
;;>^ijjj5,,  ENPRINT  "(DOWN)  {BLU}**    E 
'•<<X^'  ND    OP   DATA    **"iGOTO220 
KC   660    GET   A5iIF    A$=RS    THEN   GO 

SUB10a0iGOTO220 
EQ    670    IF    AS-SS    THEN    F-F+liGOS 

UB1080 
AD   680   ONFGOTO630,660,630 
CM   690    PR1NT"(D0WN){RVS)    LOAD 

(SPACE) DATA    "iOP=ltGOTO 

710 
PC    700    PRINT"£D0WMJ (RVS)    SAVE 

{space} FILE    "iOP=0 
RX    710    INS-NS:INPUT"{ DOWN) FILE 

NAMEg4a";IN$iIF    INS-'NS 

( SPACE )THEN2 20 
PR   720    F=0! PRI NT "(DOWN) (BLK) 

(RVS)t(0FF)APE    or    {RVS} 

D(0FF)1SK!  §43"; 
FP  730  GET  A5iIF  AS="T"THEN  PR 

INT "T { DOWN ] " ! GOT088  0 
HQ  740  IF  AS<>"D"THEN730 


HH  750  PRINT"D{DOWN)"!0PEN15,8 
, IS, "101 "sB=EA-SAiIN$=" 
0:"+INSiIF  OP  THEN810 

SQ  760  OPEN  1,8,8,INS+",P,W"!G 
OSUB8601IF  A  TKEN220 

FJ  770  AH=INT(SA/256) iAL=SA-(A 
H*256) :PRINT»1,CHR$(AL) 
;CHR5(AH); 

PE  780  FOR  1=0  TO  BjPRINT#1,CH 
R$(PEEK(BS-H))  ;  iIF  ST  T 
HEN800 

FC  7  90  NEXT:CL0SE1:CL0SE15 :G0T 
0940 

GS    800   GOSUB1060iPR1NT"{dOWN5 
(BLK) ERROR    DURING    SAVE: 
§41" iGOSUBB60:GOTO220 

MA  810  OPEN  l,8,8,IN5+",P,R"iG 
OSUB860!lF   A   THEN220 

GE  820  GET#l,A5,BSiAD=ASC(A?+Z 
?)+256*ASC(B5+ZS) :IF  AD 
OSA   THEN   F=l!GOTO850 

RX  830  FOR  1=0  TO  B!GET»1,A5!P 
OKE  BS+I,ASC(AS+Z5) !IF( 
roB)AND   ST   THEN    F=2!AD 

=l!l-B 

FA   840    NEXT:  IF    ST064    THEN    F-3 
FQ   850   CLOSEl :CL0SE15:0N   ABS{F 

>0)+l   GOTO960,970 
SA   860    INPUTjll5,A,A$:IF   A  THEN 
CLOSEl ! CLOSEl 5 : GOSUBl 0 

60:PRINT"(RVS)ERROR:     "A 

S 
GO    8  70    RETURN 
EJ    880    POKE18  3,PEEK(FA+2)!POKE 

187,  PEEK (FA+3)  1POKEI88, 

PEEK(FA+4) :lFOP=flTHEN92 

0 
HJ    890   SYS    63466:IF(PEKK(783)A 

NDDTHEN   GOSUB1060:PRIN 

T"tDOWN) (RVS)    FILE   NOT 

( SPACE ) FOUND    " tGOTO690 
CS    900   AD= PEEK (829) +2 56* PEEK (8 

30)  :IF    ADOSA    TN£:N    F=l: 

GOTO970 
SC   910   A=PEEK(8313+256*PEEK(83 

2)-l !F=F-2*(A<tW)-3*(A> 

EA)  !A[>=A-AD:GOTO930 
KM   920    A=SA:B=EA+1  :GOSUBI010-.P 

OKE780,3;SYS    63338 
JF   930   A=BS:B=BS+!EA-SA)+1:G0S 

UB1010;ON   OP    GOTO950:Sy 

S    63591 
AE    940    GOSUBl 080  SPRINT" (BLU)** 
SAVE    COMPLETED    **"sGOT 

0220 
XP   950    POKE147,0:SYS    63562:IF 

{ SPACE )ST>0   THEN970 
FR   960    GOSUBl 080: PRI NT "(BLU)** 
LOAD    COMPLETED    «*":GOT 

0220 
DP    970    GOSUBl 050: PRI NT "(BLK] 

(RVS} ERROR    DURING    LOAD: 

{DOWN)§43"iON    F   GOSUB98 

0,990, 1000 SGOTO220 
PP    980    PRINT "INCORRECT    STARTIN 

G   ADDRESS    ( " ; tGOSUB360 : 

PRINT" ) "5  RETURN 
GR    990    PRINT"LOAD    ENDED    AT    ";: 

AD= SA+ AD s GOSU B3 60  SPRINT 
D5 : RETURN 
FD    1000    PRINT "TRUNCATED   AT    END 

ING    ADDRESS  ":RE:TURN 
RX    1010    AH= INT ( A/256 ) sAL«A-( AH 
*256):POKE193,ALsPOKEl 
94,  AH 
FF    1020    AH=INT(B/256) :AL=B-(AH 
*256} :P0KE174,AL:P0KE1 
7 5, AH s RETURN 
F^    1030    IF   AD<SA    OR    AD>EA   THEN 

1050 
HA    1040    IF(AD>S11    AND    AD<40960 
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%:. 


)OR(AD>49151    ANU   AD<53 

248) THEN    GOSUB1080 :P=0 

: RETURN 
HC    1050   GOSUB1060!PMNT"{EWS} 

(space) INVALID   ADDRESS 
1  DOWN} [ BLK} " ! F=l 1 RETU 

RN 
AR    1060    POKE   SD+5,31iPOKE   SD+6 

,2aaiP0KE    SD,24etPOKE 

(SPACE )SD+ 1,4 (POKE   SD+ 

4,33 
DX    1070    TOR   S=l    TO    100!NEXTtGO 

TO 1090 
PF    1080    POKE   SD+S.SsPOKE   SD+6, 

240JPOKE   SD,0tPOKE   SD+ 

l,90tPOKE   SD+4,17 
AC    1090    FOR   S=l    TO    100tNtKT!PO 

KE   SD+4,0;POKE   SO,0!PO 

KE   SD+1,0; RETURN 


Program  2:  MLX  For  Commodore 
128 

AE  100  TRAP  960:POKE  4627,128: 

DIM  NL?,A(7) 
XP  110  Z2=2:Z4  =  254sZ5=!255!ZG='2 

56!27=127:BS=256*PEEK(4 

627) :EA=652B0 
FB  120  DES=CHR5(7) !RT$=CHRS(13 

) : DL?=CHRS ( 20 ) : SPS=CHR$ 

(32);LK$=CHR$(157) 
KE  130  DEF  FNilB(A)  =  INT{A/256)  ! 

DEF  FNLB(A)='A-FNHB(A)*2 

56: DEF  FNAD ( A )"PEEK{ A )+ 

256*PEEK(A+1 ) 
JB  140  KEY  1,"A"!KEY  3,"B"!KEy 
5, "C":KEy  7, "D":VOL  15 

!lF  RGR(0)=5  THEN  FAST 
FJ  150  PRINT" (CLR)"CHR$( 142 ) ;C 

HR?(e)!C0LOR  0,15:COLOR 
4, ISiCOLOR  6,15 
GO  160  PRINT  TAB(12)"(RED) 

{RVS)(2  SPACfiSJgg  @1 

[2  SPACES] "RTSrTAB( 12)" 

(rvs){2  spaces) (off) 

[BLU)  128  MLX  (RED) 
(RVS)f2  SPACES)"RT$;TAB 
(12)"[RVS] ( 13  SPACES) 
( BLU ) " 
170  PRINT" (2  DOWN) 

{3  SPACES)COMPUTEI 'S  MA 
CHINE  LANGUAGE  EDITOR 
(2  DOWN)" 
180  PRINT" [ BLK I  STARTING  ADD 
RESSg43";  jGOSUB  260aF 
(SPACE) AD  THEN  SA=AD:EL 
SE  180 

FH  190  PRINT" (BLK) (2  SPACES ) EN 
DING  ADDRESSE4E"r sGOSUB 
260: IF  AD  THEN  EA=AD:E 
LSE  190 

MF  200  PRINT" (DOWN) (BLK) CLEAR 
(SPACE iwORKSPACE  [Y/N]7 
i43":GETKEY  A?: IF  ASt>" 
Y"  THEN  220 

QH  210  PRINT "(down) (BLU) WORK IN 
G. . ."; jBANK  0:FOR  A=BS 
(space) TO  BS+(EA-SA)+7! 
POKE  A,0jNEXT  AiPRINT"D 
ONE" 

DC  220  PRINT  TA0( 10 ) " (DOWN ) 

{BLk)[RVS)  MLX  COMMAND 
( SPACE )MENU  i4|tD0KN)": 
PRINT  TA8(13)"(RVS)E 
{0FF)NTER  DATA"RTSrTAB( 
13)"{RVS)D[0FF)ISPLAY  D 
ATA"RT5rTAB(13)"{RVSjL 
(OFF)OAD  FILE" 

HB  230  PRINT  TAB( 13 ) " { RVS JS 


FE 


{off} AVE  FILE " RT5; TAB (1 

3)"(RVSjC[0FF)ATAL0G  DI 

SK"RTS!TAB(13)"(RVS)Q 

( OFF }UITt DOWN) {BLK}" 
AP  240  GETKEY  A? i A- IKSTR( "EDLS 

CQ",A?)iON  A  GOTO  340,5 

50,640,6  50,930, 940 tGOSU 

B  9501GOTO  240 
SX  250  PRINT"STARTING  AT";:GOS 

UB  260:IF(AD<>0)OR(A5=N 

L9)THEN  RETURN: ELSE  250 
BG  260  AS=NL5: INPUT  A?: IF  LEN ( 

A$)=4  THEN  AD=DEC(AS) 
PP  270  IF  AD=0  TBIEN  BEGIN:  IF  A 

?<>NLS  THEN  300: ELSE  RE 

TURN; BEND 
MA  280  IF  AD<SA  OR  AD>EA  THEN 

(space  J  300 
PM  290  IF  AD>S11  AND  AD<65280 

(SPACE }THEN  PRINT  BE5t: 

RETURN 
SO  300  GOSUB  950: PRINT "{RVS 3  I 

NVALID  ADDRESS  (DOWN) 

{ BLK }":AD=0: RETURN 
RD  310  CK"FNHB{AD) :CK=AD-24*CK 

+Z5*(CK>27) :GOTO  330 
DD  320  CKs.CK*Z2+Z5*(CK>Z7)+A 
AH  330  CK=CK+25*(CK>Z5) s RETURN 
QD  340  PRINT  BE5;"(RVS)  ENTER 

(SPACE) DATA  ": GOSUB  250 

:IF  AS=NL?  THEN  220 
J A  3  50  BANK  0iPBINT:Fa0rOPEN  3 

,3 
BR  360  GOSUB  310:PRINT  HEXSCAD 

>+":";: IP  F  THEN  PRINT 

{SPACE JL?: PRINT "(UP) 

[S  RIGHT) "r 
QA  370  FOR  1=0  TO  24  STEP  3:B$ 

=SPS:POR  J=l  TO  2: IF  F 

(SPACE) THEN  B5=MID5{LS, 

I+J , 1 ) 
PS  380  PRINT"{RVS)"B54-LF5;  :IF 

( SPACE] I< 24  THEN  PRINT" 

JOFFJ"; 
RC  390  GETKEY  A?; IF  (A5>"/"  AN 

D  A$<"i")  OR{A$>"(a"  AND 
AS<"G")  THEN  470 
AC  400  IF  A5e="  +  "  THEN  AS="E"iG 

OTO  470 
QB  410  IP  A?="-"  THEN  A5="F":G 

OTO  470 
FB  420  IF  AS=RT5  AND  ((1=0)  AH 

D  (Je-l)  OR  F)  THEN  PHIN 

T  B5; :J=2;NEXT:1=24jGOT 

0  480 
RD  430  IP  A5="{H0ME)"  then  PRI 

NT  B5 :J=2 : NEXT: 1=24 sNEX 

T:F=0:GOTO  360 
XB  440  IF  (A$=" (RIGHT)")  AND  F 
THEN  PRINT  B5+LF5;:GOT 

0  470 
JP  450  IF  A?<>LF5  AND  A5t>DLS 

{SPACE)OR  t(I=0)  AND  (j 

-1)}  THEN  GOSUB  950: GOT 

0  390 
PS  460  AS=LF5+SP5+LP5:PHINT  B5 

+LP5; ;J=2-J:IF  J  THEN  P 

RINT  LFSr : 1=1-3 
GB  470  PRINT  A?;!NEXT  J:PRINT 

(SPACE)SPSj 
HA  480  NEXT  I : PRINT: PRINT" (UP ) 

(5  RIGHT)";  sLS*-" 

(27  SPACES)" 
DP  490  FOR  1=1  TO  25  STEP  3  5GE 

T#3,A5,B$:IF  AS-'SPS  THE 

N  1-25 :NEXT: CLOSE  3: GOT 

O  220 
BA  500  A9=A$+BS:A=DEC(AS) jMIDS 

{LS,I,2)=A$:IF  K2S  THE 

N  GOSUB  320:A{l/3)=AtGE 

T»3,AS 


AR 

510 

1 

m 

DX 

520 

XB 

530 

CA 

540 

MC 

550 

JF  560 


XA 

570 

DJ 

580 

W^ 

XB 

590 

GR 

600 

EB 

610 

QK 

620 

XS 

630' 

RF 

640 

DP 

650 

DM 

660 

RF  670 

SQ  680 

SP  690 
EG  700 

JH  710 
MC  720 

GC  730 

RA  740 

GA  750 
FD  760 


NEXT  I:IF  A<>CK  THEN  GO 
SUB  950: PRINT: PRINT" 
tRVS)  ERROR:  REENTER  LI 
NE  ":Fs'ltGOTO  360 
PRINT  BE?:B=BS+AD-SA:FO 
R  1=0  TO  7  J  POKE  B+I,A(I 
) ! NEXT  I 

F=0jAD='AD+9!lF  AD<-EA  T 
HEN  360 

CLOSE  3; PRINT "(down) 
[BLO}**  END  OF  ENTRY  ** 
(BLK) {2  DOWN)":GOTO  650 
PRINT  BE5;"{CLR){D0WN) 
(RVS)  DISPLAY  DATA  "sGO 
SUB  250  I IF  A$"NL$  THEN 
(SPACE  J  220 
BANK  0:  PRINT"  {DOVfN} 
(BLU) PRESS:  { RVS ) SPACE 
(OFF)  TO  PAUSE,  (RVSJRE 
TURN [OFF)  TO  BHEAKE43 
{DOWN J ° 

PRINT  HEX5(AD)+":"7 :GOS 
UB  310:B=BS+AD-SA 
FOR  I=B  TO  B+7:A=PEEK(I 
): PRINT  RIGHT?{HEXS(A), 
2)rSPS;  ;GOSUB  320ltIEXT 

(space! I 

PRINT" { RVS) " ; RIGHTS (HEX 
?(CK),2} 

F=1;AD=AD+8:IF  AD>EA  TH 
EN  PRINT" (BLU)**  END  OF 

DATA  **":GOT0  220 
GET  A?: IF  A$=RT5  THEN  P 
RINT  BE$;GOTO  220 
IF  A5=SP5  THEN  F=F+1:PR 
INT  BESr 

ON  F  GOTO  570,610,570 
PRINT  BE$ "{down} (RVS ]  L 
OAD  DATA  ":OP=l!GOTO  66 
0 

PRINT  BE?" {down} (RVS)  S 
AVE  FILE  ":OP=0 
F=0 :P5=NL? : INPUT"FILENA 
ME^43";F?:IF  F5=NLS  THE 
N  220 

PRINT" (DOiffl) (BLK) {RVS)T 
(OFF] APE  OR  tRVS)D(0FF3- 
ISK:  §4i"; 

GKTKEY  A?; IF  A?="T"  THE 
N  850:ELSE  IF  aS<>"D"  T 
HEN  680 
PRINT"DISK(DOWN)":IF  OP 

THEN  760 
D0PEN#1, {F?+",P"),WjIF 
{ SPACE )DS  then  A5=DS?;G 
OTO  740 

BANK  SiPOKE  BS-2,FNLB(S 
A):POKE  BS-1,PNHB(SA}:P 
RINT"SAVING  ";F$:PRINT 
POR  A=BS-2  TO  BS+EA-SA: 
PRINT#1,CHR?<PEEK(A)); : 
IF  ST  THEN  AS^-DISK  WRI 
TE  ERROR": GOTO  750 
NEXT  A: CLOSE  1; PRINT" 
(BLU)**  SAVE  COMPLETED 
(SPACE) WITHOUT  ERRORS  * 
*":G0TO  220 

IF  DS=$3  THEN  BEGINiCLO 
SE  1: INPUT "(BLK) REPLACE 

EXISTING  FILE  CY/K]§43 
":A5:1P  A?="Y"  THEN  SCR 
ATCH{FS) :PRINTjGOT0  700 
:ELSE  PRINT"{BLKJ'':GOTO 

660; BEND 
CLOSE  1: GOSUB  950: PRI NT 
° (BLK) (RVS)  ERROR  DURIN 
G  SAVE:  g4i";PBINT  AS:G 
OTO  220 
DOPENSl, <FS+",P") :IF  OS 

THEN  A$=DS9:P=4: CLOSE 
(SPACE}1:GOTO  790 
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PX  770 

GET #1,A5,B$! CLOSE  IjADk 

F5):BAN!C  1  :  A!«PEEK  (AD)  :A 

UB  920!SYS  DEC("E9FB"): 

ASC(AS)+2S6*ASC(B5)!lF 

L=PEEK{AD+1):AH=PEEK(AD 

IF  ST>0  THEN  800IELSE  7 

{ SPACE] AD oSA  THEN  F=l: 

+2) 

90 

GOTO  790 

XX  360  BANK  15: SYS  DEC("FF69") 

XB 

920  P0KE193,FNLB(A) :POKE194 

KB  780 

PRIMT"LOADING  ";F5tPRIN 

,0,1: SYS  DEC("FFBA">, 1, 

,FNHQ(A) jPOKE  174,FNLB( 

T ! 8L0AD { FS ) , 80 , P { BS ) ! AD 

1,0. -SYS  DEC{"FFBD"),A,A 

B):POKE  175,FNHB(BhRET 

=  SA+FNAD(174)-BS-l!F=— 2 

L,AH:SYS  DEC{ "FF90" ) , 12 

URN 

*(AD<EA)-3*(AD>EA) 

3: IF  OP  THEN  890 

CP 

9  30  CATALOG: PR! NT "{DOWN} 

RQ  790 

IF  F  THEN  800  J  ELSE  PRIN 

FG  870  PRINT!A=SA!B=EA+lsGOSUB 

(BLU]**  PRESS  ANY  KEY  F 

T"(BLU]**  LOAD  COMPLETE 

920!SYS  DEC("E919"),3: 

OR  MENU  **";GETKEY  A$:G 

D  WITHOUT  ERRORS  ••"iGO 

PRINT "SAVING  ";F$ 

OTO  220 

TO  220 

AB  880  A=BS:B=BS+(EA-SA)+1:G0S 

MM 

940  PRINT  B£5"tRVS]  QUIT 

ER  800 

GOSU0  950: PRINT "(BLKl 

US  920:SYS  DEC{"EA18")! 

E4i";RTS;"ARE  YOU  SURE 

(RVS)  ERROR  DURING  LOAD 

PRINT"  JDOWNHBLU)**  tap 

[SPACE} [Y/N]?"«GETKEY  A 

I  E4i''jON  F  GOSUB  810,8 

E  SAVE  COMPLETED  **"iGO 

5: IF  A$<>"Y"  THEN  220 :E 

20,830,840:GOTO220 

TO  220 

LSE  PRINT" [CLR]" I  BANK  1 

OJ  810 

PRINT "INCORRECT  STARTIN 

CP  890  SYS  DEC{"E99A">jPRINTiI 

5  SEND 

G   ADDRESS  ("rHEX5(AD)?" 

F  peek! 2816 )=5  THEN  GOS 

JE 

950  SOUND  1,500, 10: RETURN 

>"fRETURN 

UB  950 tPRINT" [DOWN) 

AF 

960  IF  ER°14  AND  EL=260  THE 

DP  820 

PRINT"LOAD  EMDED  AT  ",'H 

{blkHrvs}  file  not  FOU 

N  RESUME  300 

EXS(AD) iRETURN 

ND  "sGOTO  220 

MK 

970  IF  ER=14  AND  EL=50a  THE 

EB  830 

PRINT "TRUNCATED  AT  ENDI 

GQ  900  PRINT"LOADING  . • . {DOWN} 

N  RESUME  NEXT 

NG  ADDRESS  {"HEX$(EA)") 

":AD=FNAD{2B17)  :IF  ADO 

KJ 

9Q0  IF  ER-4  AND  EL=780  THEN 

" 1  RETURN 

SA  THEN  F=liG0TO  800! EL 

F=-4:A5-DS5  I  RESUME  800 

FP  840 

PRINT "DISK  ERROR  ";A5:R 

SE  AD=FNAD(2819)-liF=-2 

DO 

990  IF  ER=30  THEN  RESUME: EL 

ETURN 

*(AD<EA)-3*(AD>EA) 

SE  PRINT  ERRS{ER);"  ERR 

KS  850 

PRINT "TAPE "iAD"POINTER{ 

JD  910  A=BS:B=BS+(EA-SA) +1)008 

OR  IN  LINE"fEL         # 

Down  Time  Got 
You  Down? 


Get  on  line  fy45rwith  TRIAD  COMPUTERS 


Most  computers  and  disk  drives  are  repaired  and  shipped  within  72  hours 


C-64  Compuler 

C-128  Computer 

1541  Drive;  Logic  repair 

1571  Drive  Logic  repair 

1541  or  1571  Permanent  Fix 

(Alignment  and  moditication  to  stay  in  alignment) 

1702,  1802,  1902 

154 1  alignment  (only) 

Commodore  Printers 

C-64  Power  Supply 

C-128  ROM  UpGrade 

1571  ROM  UpGrade 

AMIGA  Repairs 


Witli30Daii 
Warranty  Kepajr 

$59,00 
H9,(X) 
69.00 
79.00 
69,00 

CALL 
Just  29.95 

CALL 
ONLY  S29,95 
ONLY  S55(10 
ONLY  $45,  (JO 

CALL 


Repair  With 

1-Year  Warranty 

$89.00 

129.00 

99.00 

119.00 

99.00 


For  fast,  expert  service  .  . .  Just  call  our  toll  free  number  today! 

1  -  800 .  624 .  6794 

1-800 -521 -6957 

(For  your  convenience,  irav*?  your  equipment  senal 
number  and  credit  number  ready-  Checl^s  and  money 
orders  also  accepted!  Add  S7,50  for  shipping  — 
includes  t\^'o-day  air  service  anvvt'hcre  in  lite  Conti- 
ntnlal  USA  For  APO-FT^  and  PO  Box  addressi's. 
add  515.00  for  siiippiiig  Itxcludiiiy  air  Iteitjln) 

3402-E  W.  Wendover  A«.,  Greensboro,  N.C.  27407  1-800-624-6794  or  (919)  299-0391 


FREE 

Permanent  Fix 

A  S69.00  value  —  includes  align- 
ment and  modification  to  stay  in 
alignment,  FREE  with  any  1541  or 
1571  one  year  warranty  repair. 
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This  collection  of  flight  guidebooks  helps  you  get  the 
most  out  of  flight  simulation  software.  Designed  to  be 
used  with  Flight  Simulator,  Flight  Simulator  11,  F-15  Strike 
Eagle,  and  other  fighter-jet  simulations,  these  books 
contain  scores  of  scenarios  that  lead  you  across  the 
U.S.,  around  the  world,  into  battle,  and  back  to  your 
favorite  landing  strips. 
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ADVENTURES 

fofi  in; 

afi»K»^^:ip:^j 

Jt't  Fighter  Schno! 

Air  Cumtnit  Simubriir 
Taclics  and  Maneuvers 


Flying  on  Instruments  witli 
W/g/i/  Simulator 

Jonathan  M.  Stem  251  pages 

Here's  fascinating  hands-on  instruction  on  (ly- 
ing wltti  instruments  in  FligM  Simulator  and 
Flight  Simulator  It.  How  to  fly  in  aii  kinds  of 
weather— when  the  cloud  ceiling  Is  iow  or  the 
visibility  Is  reduced.  How  to  read  and  fly  the  in- 
stajment  approoch  charts  that  instrument- 
rated  pilots  use.  How  to  take  oft.  fly  to 
another  airport,  ond  land— all  while  the  clouds 
ore  a  mere  200  feet  oft  the  ground.  And  how 
to  novigate  by  using  the  innpressive  in- 
struments available  in  Flight  Simulator  and 
Fligtit  Simulator  11.  Mom  than  1 30  actuoi  in- 
strument approach  procedure  chorts.  For  all 
versions  of  Fligt^t  Simjiotor  ond  Flight  Simi- 
lator  II  (Apple,  Amiga,  Atari.  Atari  ST.  Com- 
modore, IBM  PC  and  compatibles,  Macintosh). 
Fligttt  Simulator  or  Flight  Simulator  II  required. 
Perfect- bound  edition: 
$9.95     ISBN  0-87455-091-2 
Spiit-wi re- bound  edition: 
S 1 2,95     ISBN  0-87455-1 03-X 

COMPUTEI's  Flight  Simulator  Adventurss 
tor  ftifl  Maclntosti,  Amiga,  and  Atari  ST 

David  Florence.  Tom  (?,  Hoifhili.  and  Philip  I. 
(kelson  227  pages 

Fly  through  mists  into  mystery.  This  collection 
of  da  exciting,  new,  customized  simulator 
scenarios  for  the  Macintosh.  Commodore 
Amiga,  and  Atari  ST  personal  computers  puts 
you  in  the  pilot's  seat.  The  now  generation  of 
Flight  Simulator  and  Fiigtit  Simulator  II  offers 
letter  graphics,  easier-to-use  controls,  and 


more  oirports.  With  this  boots,  you'll  experience 
hoir-toising  rescue  missions,  dongerous  night 
landings,  sightseeing  side  trips,  ond  one-of-a- 
kind  flights  of  foncy.  Moke  COMPUJSi's  Flight 
Simulator  Adventumi  your  copilot  ond  thrill  to 
hours  of  flight. 

Flight  Simulator  or  Fllgttt  Simulator  II  required, 
$12.95     ISBN  0-87455-1 OO-S 

Learning  to  Fly  wltti  FlIgM  Simulator 

John  Rafferty 

Learn  to  fly  like  o  simulator  expert  in  the 
imaginary  world  of  Flight  Simulator  and  Flight 
Simulator  II.  You'll  learn  oil  the  fun- 
damenfois— from  tokeoffs  to  landings — in  a 
singte,  detailed  flight.  Then  you'll  develop 
those  flying  skills  by  practicing  stondatd  tote 
turns,  executing  o  flight  plan,  navigating  from 
point  A  to  point  B.  ond  more.  Learn  how  to 
moke  precision  landings  and  use  the  more 
odvonced  instruments  In  your  aircraft.  To  cop 
your  training — ond  turn  you  Into  a  professional 
simulator  pilot — you'll  learn  how  to  read  and 
use  the  octual  FAA  approach  charts  commer- 
cial pilots  fly  with.  This  complete  flight-instruc- 
tion tutorial  was  written  by  a  professional  pilot. 
$12.95     ISBN  0-87455-1 15-3 

40  Great  Fllgtit  Simulator  Adventures 

Charles  Guiick  1 52  poges 

This  bestseliing  volume  offers  40  exciting,  cus- 
tomized flight  simulator  scenorios  for  Flight 
Simufafor  ond  Flight  Simulator  II  on  the  Apple 
ii.  IBM.  Commodore  64,  and  Atari  personal 
computers, 
$  1 0.95     ISBN  0-87455-022-X 


mm\»'tf 


40  More  Great  Flight  Simulator 
Adventures 

Chories  Guiick  236  poges 

Forty  more  challenging  flight  simulator  scenar- 
tos  for  Microsoft's  Flight  Simulator  and 
SubLOGIC's  Flight  Simulator  II.  Explore  the 
world  from  the  air.  For  the  Apple  11.  IBM,  Com- 
modore 64.  and  Atari  personal  computers. 
$  1  a.95     ISBN  0-B7455-043-2 

Jot  Ftghter  Sehoof:  Air  Combat 
Sfmulotor  Tactics  and  Maneuvers 

Richard  G.  Shefdeld  1 77  pages 

Learn  octual  combat  maneuvers  and  much 
more  with  this  hands-on  book  for  popular  jet- 
combat  simulotors  like  F-tS  Strlho  Eogle,  Jet. 
and  AcB.  Information  about  Jet  fighter  pilots 
and  their  aircraft,  especially  the  F-16,  provides 
an  excellent  introduction  to  the  subject. 
There's  even  detoiied  data  obout  the  v.reop- 
Ohs  ovoiioble  to  jet -com  bat  simulator  pilots.' 
The  heart  of  the  book  demonstrates,  step-by- 
step,  numerous  offensive  and  defensive  com- 
bat flight  maneuvers,  from  the  Hi  ¥o-Yo  to  the 
Defensive  Spiral  Drive.  Tactical  tips  on  F-15 
StrliiB  Eagle  scenarios  round  out  the  book,  f- 
15  Strike  Eagle  or  other  jet-combat  flight  simu- 
lotor  required. 
Perfect-bound  edition: 
$9.9S     IS8N  0-87455-092-0 
Split-wire-bound  edition: 
$  1 2.95     ISBN  0-87455-1 04-8 


Ask  for  COMPUTE!  Books  at  your  loco!  book  or  computer  store. 
To  order  direct,  call  toil  free  000-346-6767  (in  N.Y.  call  212-887-8525)  or  write  COMPUTE!  Books.  P.O.  Bo); 

5038.  F.D.R.  Station,  New  York.  NY  10019. 
Customer  Service  hours  are  10:00  am- 12:30  pm  and  1:30  pm-3:00  pm  EST. 

Pleose  include  S2,00  shipping  and  handling  in  the  U.S.  or  SS.fX)  airmail  NC  residents  odd  5  percent  sotes  tax  and  NY 
residents  add  8.25  percent  sales  tax.  Ptease  altew  4-4  vroeks  fof  delivery. 

McGrawHIH  Irstamotronal  Book  Company. 


Since  1981 


Lyco  Computer 

Marketing  &  Consultants 


Order  processed  within  24  liours. 


GOMMOIKMU    128D 

1    System 


>->j  ■;  ■•■  -I  7  ■}  J_->>, -Ji-'  i-_f  < , 


Comrnodora 
1Z8D  Ptus 
Thomson  4tao 

WonJtor 

5659.95 


$439 


95 


COMMODORE  128D 

System  Special 


•  Commodore  1260 
Computer/Drive 

•  Thompson  4120  Monitor 


Panasonic 

1091  Model  II 


Quantities  Limited 


Smarteam 

1200  Baud  Modem 


$89 


95 


Hayes  Compatibte 


COMMOOOftf 

HARDWARE 

1S41  C  Disk  Drive $164.95 

T57t  Disk  Dnvo $215.35 

isai  Disk  DiivB SLOWEST 

Indus  GT  C-64  OrtVi , StS9.95 

Blua  Chlp64C  Dftvo  S139.9S 

Blue  Chip  C  iza  Dnve S1 95.99 

1802C  Monitw SI  89.95 

20Q2  MonitOf S239.95 

t901  Monilor ,  SCAU. 

64  C  Cofflputot SLOW 

128D  Comp<jtDr/Dnvs  $439.95 

1670  Modem  SCALL 

C-t3S1  Mouse t3Z.9S 

1700  RAM  S109.95 

C-17S0  HAM $169.95 

1764  RAM  C64  $124.95 


Attention  Educational 
Institutions: 

If  you  are  not  currently 

using  our  educational 

service  program,  please 

call  our  representatives 

for  details. 

PC 

COMPATIBLE 

HARDWARE 

PC  EV.  Drive  - S119 

MS  DOS  *  Basic  Son $59 

BCM  12G  Gr.  Monitor  J89 

BCM  12A  Am.  Momloi $89 

BCM  14C  Color  RGB  Monllof $269 

BCC  CG  Color  Can)  S94.99 

BCPC  PCXTComp t559 

Avaiex  Graphics  Card $169 

Zucksrtmard  SCAU. 

Ipmegs  BemouUI SCALL 

Hercules «... SCALL 

AST  —  SCAa 


HAHD 

DRives 


<%^  Seagate 


20  meg  kit  , S27S.95* 

30  mog  kit S299.95" 

40  nwg  kit $469.95' 

•Drives  indude  eontrotter 

40  mflg  w.'o  controller  5425.95 


COMMODORE  64C 

^^.^^^^  COMPUTER 

^wS$29r 


Call  For 


Priced  too  low 


December  Special!      '°  P""'- 


•  »:• 


64C 


System 


-  Commodore  64  C  Computer 
k95      »  Commodore  1541  C  Drive 
■  NP  10  Printer 


— --25^/1  n\'.v.Vi'.vVt'A»V 


CHIF 

PERSONAL 
COMPUTER 


•  100%  IBM 


(Green,  artibef 

A  arfor  monrlors 

available) 


CHIP  special 


•  Blue  Chip 
Personal  Computer 

•  Seagate  20  Meg 
Hard  Drive 


$749 


95 


(Hard  dnv^rrvjst 
be  Installed) 


1-800-233-8760 


Lyco  Means  Total  Service. 


vi^.m 


Order  Now 


Mark  "Mac"  Bowser, 
Sales  Manager 

I  would  personally 
like  to  thank  all  of  our 
past  customers  for 
helping  to  make  Lyco 
Computer  one  of  the 
largest  mall  order 
companies  and  a 
leader  In  the  industry. 
Also,  I  would  like  to 
extend  my  personal 
invitation  to  all  computer 
enthusiasts  who  have 
not  experienced  the 
services  that  wo  provide. 
Please  call  our  trained 

sales  stalt  at  our  toll  free  number  to  inquire  about  our 

diverse  product  iine  and  weekly  specials. 

First  ar>d  foremost  our  philosophy  is  to  keep  abreast 
of  ttie  changing  market  SO  that  we  can  provide  you  with 
not  only  factory-fresh  merchandise  but  also  the  now/ost 
models  ofterod  by  the  manufacturers  at  the  absolute  best 
possible  prices.  And  we  offer  the  widest  selection  of 
computer  hardware,  software  and  accessories. 

Feel  free  lo  call  Lyco  if  you  want  to  know  more  about 
a  particular  itern.  t  can't  stress  enough  that  our  toll-free 
number  is  not  just  for  orders.  Many  companies  have  a 
toll-free  number  for  ordering,  but  if  you  just  want  to  ask  a 
question  about  a  product,  you  have  to  make  a  toll  call.  Not 
at  Lyco.  Our  trained  sales  staff  is  knowledgeable  about  all 
the  products  wo  stock  and  is  happy  to  answer  any  questions 
you  may  have.  Wo  will  do  our  best  to  make  sure  that  the 
product  you  select  will  fit  your  application.  We  also  havo 
Saturday  hours  —  one  more  reason  to  call  us  for  all  your 
computer  needs. 

Once  you've  placed  your  order  with  Lyco,  we  don't 
forget  about  you.  Our  friendly,  professional  customer 
service  representatives  will  find  answers  to  your  questions 

about  the  status  of  an 
order,  warranties, 
product  availability,  or 
prices. 

Lyco  Computer 
stocks  a  multlmilllon 
dollar  Inventory  of 
factory-fresfi 
merchandise.  Chances 
are  we  have  exactly 
what  you  want  right  in 
our  warehouse.  And  that 
means  you'll  get  it  fast. 
In  fact,  orders  are 
normally  shipped  within 
24  hours.  Free  shipping 
on  prepaid  cash  orders 
over  S50,  and  there  is 
no  deposit  required  on 
C,0,D.  orders.  Air  freight  or  UPS  Blue 'Red  Label  shipping  is 
available,  too.  And  all  products  carry  the  full  manufacturers' 
warranties, 

I  can't  see  why  anyone  would  shop  anywhere  else.  Selec- 
tion frorn  our  huge  In-stock  inventory,  best  price,  service  that 
can't  be  beat  —  we've  got  it  all  here  at  Lyco  Computer. 
TO  ORDER,  CALL  TOLL-FREE:  1-800-233-6760 
New  PA  Wats:  T-800-233-S760 
Outside  Continental  US  Call:  1-717-*94-1030 

Hours;  9AI^  to  8PM,  Mon.  -  Thurs. 
9AM  to  6PM,  Friday  —  10AM  to  6PM,  Saturday 

For  Customer  Service,  call  1-717-494-1670, 

9Altfl  to  5PM,  li^on.  -  Fri. 

Or  write:  Lyco  Computer,  Inc. 

P.O.  Box  5088,  Jersey  Shore,  PA  17740 

Risk-Free  Policy:  ■  lull  mnnufficturer^'  warranties  ■  no  sales  \ax  oulside  PA 
•  prices  show  4%  cash  discount;  add  4%  tor  crsdit  cards  •  APO,  FPO, 
international:  atfd  S5  plus  3%  tor  priority  ■  4-week  clearance  on  personal  checks 
■  we  check  tor  credit  card  thflfl  *  sdrry,  compatability  not  guaranleod  ♦  rolurn 
authorization  r^qiiiriKl '  prrce/availabilir/  subject  to  change  *  prepaid  orders 
under  $50  In  Conlinenlal  US.  add  (3.00 


New  Item! 


Computer  Ar««  Ught  Center 

•  Heavy-duiy  woighitjd  t>as^  for 
(Jjtfra  stabfUty 

•  BuiltHn    slcrago    (Of    disks, 
pens,  and  popor 

•  Two-hingod  tSosk'op  nrrn  for 
optimal  posilionifK] 

Introductory 
price:  $29.95 

(includes  deljvcry) 


Disc 
Storage 


QVS-10  5i/-  $3.99 

QWS-75  bVA  $16.95 

QVS-40  3V4  $11.9S 


Great 
News 


PeakPejiphe(alsnsz32 
Modem  a<Japter  lof  CSiJ  1 28 

•  Adapis  sId  DB25  Modem  lo 
your  Commodore  computer 

Only  $19.95 


Printer 
Interfaces 


XetecJr $38.95 

Xelec  Supergraphhcs  ...  $S8.95 

PPI S45.9S 

Cardco  GWhir $35.95 

Caidco  Super  G $4S.B6 


Special 
Purchase 


Data  Share-Messenger  Modem 
300  Baud  Auto  DialiAuto 
Answer  Modem 

Only  $29.95 


Great 
Bargain 


Contriver  M-1  Mouu 
I  Works  wilh  Goos 
■'  Complate  wiltt  Graphic  Utiiily 
Sollwarr) 

Only  $32.95 


I 


Mouse  Pad 


*  provides  dean,  dusl-hoo  sur- 
face (Of  y&ur  moustJ 

*  No-mar   bac:kir>g  to   proloct 
',    your  desk,  surface 

9x11  ....  $10.95 


'MaitvfCard 


ACCESSORIES- 


Diskettes 


Printer 
Paper 


SOFTWARE 


COMMOMNIE    m   COMMODORE 


'miMSGA. 


1/4 

■•II: 

30  S8.M 

DD $8.09 

lua; 

3D  „„.„ $6.45 

OD  $6,05 

C; 

OD  $7.99 

HD  $18.95 

leric  DSDD  S6.99 

twUm: 

30  tt.SS 

00  $12.95 

5 

idl: 

3D  J12.S0 

DD „.  $17.99 

00 $1^99 

DO  „.„ .„- „  $18.99 

C: 

DD $11.99 

DD $14.99 

Teitc  SSDD $13.95 

leric  DSDO  $15.95 

Free 

DE«k  Stor*o«  Cai« 
w/purclMft«  of  s  box«« 


Joysticks 


;  3 $9.95 

;Z  _ _.,  $1D.BS 

:5 t1Z.BS 

:  1  +  IBM/AP $26.95 

inomy $5.95 

Stk* $«.95 

ck  Max „„ $10.95 

is $11.99 

/ay $19.99 

fiandlB  $ie,75 

(XJ  $13.95 

PXJ-Appla'PC $28.95 

inerSOS $24  95 

a  IBW'AP $29.95 

nitv»r  Joystick  Bd  ..  $34.95 


Dustcovers 


I  1081  $9.95 

I  1091  S9.95 

an  FX286  $14  95 

,on  FXB6  $9.95 

a-n  LXfle S9  95 

rNXIO $9.95 

f  SR10 S9.9S 

rSRiS  $14.95 

■182-192 ,  59.95 

kosha  3P  series  59.95 

Color 514.95 

!8 59.95 

'1  „„ S99S 

iga  $14.95 


Printer 
Paper 


150  shool  white.  20lb  ....  $9.95 
1000  sh.  G(.  bai  14'  . .  S29.9S 
1000  mailing  labels  59.95 


Surge 
Suppressors 


OVS  Surge  S-oullot  $24.95 

QVS  Surge  6-oullet  with 

EMI.'RFI  S32.95 

OVS  Surge  6-oul1ot  with 

indicator , $29.95 

QVS  6'Out .  Pow.  snip .   514  95 


Drive 
Maintenance 


Horlmnlcs  5^4  Drive 

Cleaner 19.95 

Norlronlc^  Sv'a  Drive 
Ctean«r  Kit $17.95 


.$25.95 


Switch 
Boxes 


Cent  ^S'  AQ S49.9S 

Cent  'Se'  AB 549.95 

RS232  ABC  $52.96 

Cent  ABC  S54.9S 

RS332  ABCD  $59.95 

Cera  ABCD $59.95 

Color  Ribbons 
Available 


Video 
Tape 


I  sheet  laser $9.95 

10  sheet  laser  SI  9.95 

I  stiect  ivory.  201b $9.95 


SKCT120VHS 
Video  Tape: 

eacti $4.49 

3  pack S12.75 

10  pack „. $39 JO 


Closeouts! 


Faclot7  Fresh 

Special  Pricing 

Call  lor  Availability 

Owjntum  Unk ISAVE 

Leading  EtSgo SSAVE 

Computer  Cover-up 

(dustcovers) SSAVE 

Novation  modorrs  SSA\^ 

AtTctior  modeiTis  SSAVE 

Canron  ....„ „ _  SSAVE 

Toshiba  VC«"s  ..SSAVE 

Telsniha  Mofrilors SSAVE 

Partasonic  Monitors SSAVE 

Denrtison  DlEikotlos  SSAVE 

Great  sovlnga  on  Epyx, 
Cardco,  Enstorn  Ht>uite,  High 
Tech  Eirpre^&lons,  Time- 
woilts,  Splnaker. 
Scarborough.  ContlnentaU 
and  much  moretl 


Generic 
Ribbons 


Save  up  to  50%  off 

brand  priceal  Call  lor  your 

make  and  model! 


Acceae; 

Echelon  „.... 

Leader  Board  S^.9S 

Mach  S $19.95 

'  Maeh  -  128 _  $Sft.9S 

tOlh  Framo  ,. ^.M 

TriploPadi $11.95 

Wkj.  CL  Leader  Brd.  ...  S22  95 
Famous  Couraos  #i  ...  S11.95 
Famous  Dwrsss  #2  ...  SI  1.9S 
Action  Soft: 

Up  Pertseope $18,95 

Thunder  Chopper  SNEW 

Actlvlllon: 

Aliens $19.95 

Champion.  Batkatball .  SI  9.95 

Ha(*or $8.95 

Hacker  2 $1995 

Latjyiirim $19.95 

Musk!  Studio S19.9S 

TassTimos S18.9S 

TltBf*:. $11,95 

LeeUnr  Goddesses $22,95 

Statiwilall $19.95 

LurtiliSg  Fkirror  $19.95 

Top  Fuel  Etimlnalor $15,95 

8e>1i*l*y  SoftMorka: 

Geos  , $35.95 

Deskpalt  I  $20.95 

Fompak  I $17.95 

Geodox $23.95 

Gootilfl  $29.95 

Wrtien  Workshop $29.95 

Goo  Gate  $29.95 

BrodertHjnd: 

Bank  SI.  Wrller $27.95 

Camr^en  San  Diego  $19,95 

Qraphk:  Lib, ).  II,  II!  ,.,.,  $13.95 

Karateka $12,95 

Prtnl  Shop  $25.49 

Prtnl  Shop  Compan 522.95 

Print  Shop  Paper $12.95 

Epin: 

Ccoate  A  Calendar $15.95 

DesBoyw $22.95 

Fastk>Bd $19,95 

Football $11.95 

Movie  Monster $11,95 

Sub  Battle ^2,95 

Winter  Games S22.95 

CaNfomla  Games  S22.95 

Super  Cycie $11.95 

Graphics  Scrapbook  ....  S1 1.95 
Str.  Sports  Sasksttiali .  $22.95 
WM.'B  Great  Baseball .   $11.95 

Summer  Garries  II $22.95 

Votpol  Utility  Kit $11.95 

Work!  Games $K.95 

Firebird: 

Cotossus  Clwss  IV $19.95 

Elite $18.95 

GoWon  Psih  $22.95 

GuiWot  Thieves  $22.95 

Pawn $22.95 

Talkino  Toachw  $22.95 

Tracker S22.95 

Stargiider .,.„  $22,95 

Sentry  $22.95 

MIcrolAagua: 

Microleag.  Baseball S22.95 

General  ^tanager S16.95 

Stal  Disk $13,95 

'86  Taam  Ditk  $11.95 

Mk^oteeg.  WroeUing ......  $New 

MIereproM: 

F-1S  Strike  Eagle  $19.95 

Gunstilp $19.95 

Kennedy  Approat^h $13.95 

Sileni  Servree  $19.95 


Sok)  Flight  $13.95 

Top  Gunner  $13.95 

Origin: 

Autoduel $2895 

UtUma  Hi S22.95 

UIDmn  IV „ $33.95 

Moebigt  $22.95 

Sprfngboard: 

Newsroom 529.95 

Cnrtinf^ala  Maker $29.95 

Clip  Art  Vol  #1  $17.95 

Clip  Art  Vol  #2 $23.95 

OipArtVol.  #3 $17.95 

Graphics  Expander  $21.95 

Strategic  Simulation i: 

Gemsloho  Hoalor $16.95 

Gettysburg $33.95 

Kamplgruppe $33.95 

Phantasia  II  $22.95 

Phantasie  Ml  $^.95 

Ring  ol  Zemn $22.95 

Road  War  2000 S22.95 

Stia/d  ot  ftirinc S22.95 

Wiiardi  Crown $22.96 

Wat  in  tfw  S,  Paofk:  ..,  $33.95 

WarflartMi  Constr $16.95 

Baltlecfuiser  $33.95 

Gftfnslona  Warrior $7.95 

Battle  of  Antetiem $28.95 

Cok>nial  Conquest $22,95 

Computer  Ambush $3395 

e-24  $19.95 

SuMoglc: 

BigW  Smulalof  11 $31.49 

Jot  SIrtHHalOf $24,95 

Night  Misskin  Pinball  ,„  $16,95 

Scenery  Disk  t-6 $12.95 

Tlmawarka: 

Partner  C64 $24,95 

Parlnar  126  $39.95 

Swltt  Cat  123  $29.95 

Wofdwriter  128 $29.95 

Unlton  WorW; 

Art  Gallery  1  or  2  $14.95 

Pnnt  Master $17.95 


-^^moA 


Aceeta: 

Loader  Board  $24.95 

toth  Frame S24.95 

Toomaroont  #1  ...„ $14.95 

Actlvialon: 

Champ.  Basketball $27.95 

Chflmpionship  GoK $24.95 

QFL  Foolball  $27.93 

Hacker S1695 

Hacker  2 S24.95 

Music  Studk)  ...„™ S29,9S 

Tass  riniM'„—- ^—  iSMR 
Epyx: 

Apshai  Trilogy $13.95 

ftoguo ,„ „,  $22,95 

Winter  Games  $22,95 

Workt  Games 522.95 

Firebird: 

Guild  0)  Thieves  .,„ $26.95 

Pawn $26.95 

SlarglkJor  -.. S26.9S 

lllcroproae: 

SiitiKit  Service  $24.95 

Sublogic: 

Flngtil  Simulator  II  $32.95 

Jet  Simulator  „ S32,95 

Sconory  Disk S17.93 


Unison  World: 

Print  Master  ..,., $24.95 

Art  Gallery  1  or  Z  518.95 


IBK 


Acr^sa: 

Wld,CL  Leader  Board,   $27.95 

lOlh  Frame $27,95 

Aetlvlaton: 

Pebbte  Seach  Goll $22  95 

Champ.  Baseball $22.95 

Champ.  Basketball $22.95 

Zok  Tnlogy $39.95 

Leather  Goddesses $22.95 

Moonmrst $22,95 

BrodertHjnd: 

Ancient  Art  of  War $25,95 

Print  Shop  $32,95 

Print  SIxip  Compan $31.95 

Graphic  Lib,  1  or  It $tgjS 

Karateka .,...,.  $19.95 

Toy  Shop „,  tt2,9S 

Bank  Sl  WWtar  +  ,.,„„  $44,95 
Epyx: 

Apshai  Tritogy  $11.95 

Create  A  Calendar  $15,95 

D«sttoyef $22.95 

Movie  Ktonster $11.95 

Rogue  „. $16-95 

St.  Sports  Basketball ..,  ^2,95 
Sub  Battle  Simulator  .„  $22,95 

VWraor  Games  $22,95 

World  Games  $22.95 

FIrMtlrtI: 

Starglkier $25.95 

GuHd  OIThteves  .,..  $25,95 

Mlcrolftsgua: 

Microleag,  Baseball  $22.95 

General  Manager  ,„,...,  $16.95 

Slat  Disk $13.95 

'86  Team  [>sk $11.95 

Hlcroproaa: 

Conliict  in  Vietnam $22.95 

Crusade  in  Europe $22,95 

Oedsion  in  Oosert $22.95 

F-t  5  Strike  Easte  S22.95 

Silent  Servk»  $22.95 

Gunship $27.95 

Origin: 

unma  1 $22.95 

Ultima  lit $22.95 

Ultima  tV $33.95 

MoeWua $33.95 

Ogre $16.95 

StraleQlc  Simulation  a: 

Road  War  2O00 $22,95 

Kamplgruppe $33,95 

Shard  of  Spring  $22.95 

Baltle  ot  Antetiem  ....„.,  $33,95 

Computer  Baseball $7,M 

Gettysburg $33.95 

Wizards  Crown .,,.  $22.95 

Chickamauga  , „  $33.95 

Sublogic: 

Jet  Simulator  $31.49 

Scenery  Japan  „,.  $17.95 

Scenery  San  Fran $17.95 

Scenery  #l-#6  $64.95 

Flight  Simylawt ,  $34.95 

TVTWworlist 

Swidcatc $%.95 

Wordwriter  KM.95 

Unlaon  Wortd: 

Art  Gallery  2  $14.95 

News  Master  .,,  $49,95 

Print  Master  (■!■) $29.95 

Fonts  a  Borders $17.95 


B  Shipping  on  Prepaid  casli  orders  over  S50  in  the  Continental  US. 


Price  Guarantee 

SInco  1 981 ,  we  have  ted  the  Industfy  by 
continuing  to  offer  the  lowest  national 
prices  while  providing  quality  service.  Many 
companies  tiave  come  and  gone  trying  to 
Imitate  our  quality  and  service.  I(  by  some  ? 

oversight  we  do  not  have  the  lowest  prices  y 

advertised  on  the  products  you  desire,  4 

then  we  would  appreciate  the  opportunity  ^ 

to  rectify  this  oversight.  ? 


New  1080i  Model  II 


•  Now  150  cps 
Draft  Mode 

•  NLQ  Mod© 

•  Frictioti  &  Tractor 
Feed 

•  2- Year  Warranty 

$159^^ 


Panasonic 

WBO\  Modem 


Monitors 


Modems 


Tboitiion: 

saOAmboiTTUtZ" $65 

450  Amber  TTUtS" $129.95 

4120  CGA $1B9.9S 

4160  CGA  $259.95 

4460  EGA S319.95 

4375  UiiiaScan $45995 

Zanlth: 

ZVM1220 sas 

ZVM  1230 $89 


Btua  Chip: 

BCM  12"  G(oen  TTL  $79 

BCM  12-  Amber  TTL $89 

SCM  U'Cdor  $259.95 

NEC: 

MulU$Yr>0  ...,.- , $549 

Sava  $00  ovar  NEC  Mullltync 

wH)<  Thomton  43T5  UltnScan 

$459.95 


Wide  Carriage  Special 


THOMSON  O  *"•'" 

.**'^    ...^     12001  PC  Cord  $99 

4120  Monitor  i2ootic  Modam $99.95 

.  14-  RGBL'VKteo  ^^ • • *2'^ 

composile.anakjg  2*001  PC  Card  .,..., $CALL 

«  Ccimp^Eibli]  witri  IBM  H>y*»i 

and  Co^rTKJCtoro         ^  ^  ^  ^_  SmartriKXlflm  300 S149.9S 

•  ^.d^/^^'''''"<Cl  QQ95sn..rt™iar.12(X> S2^.95 

^|f   I  V^         Smanmotiem  2AQ0 $425,95 


Great  Performance 
Great  Price 


.IL 


•^( 


mi<r*nitt>iBi 


NX-10 


•  1 20  cps  Draft 

•  EZ  Front  Panel 
Selection 

•  NLQ  Mode 


SEIKOSHA 
SP  180Ai 


•  1 00  cps  draft 

•  20  cps  NLQ 

•  direct  connect 
for  Commodore 


$124 


95 


PRINTERS 


SEIKOSHA 

SP160AI St  24,95 

SP  tBOVC SI  24.95 

SP  1000VC  5135,96 

SP  1200VC  SI  44.95 

SP  r200Ai  $155.95 

SP  1200AS  RS232  $155.95 

SL  80AJ $295.95 

MP13(.»JAI    $269.95 

MP5300AI  $375.95 

BP5420AI   ,.,., .„..  $879.95 

SP  Ssrtos  Ribbon $7.95 

SK3000  Ai $349 

SK3005  Ai  $429 

BROTHER 

M1109  S195 

M1409  $299 

M1509  $365 

M1709  .  5-175 

Twlnwriter  B  Dot  &  Dais^ $899 

M1724L  $CALL 

HR20  $339 

HR40  $569 

HR60  $709.95 


n-H  r  troni;  iMi 

NP-10 $134.95 

NJC-IO  ...$149.95 

NX-1Xw,1ntsrlBC8 $165.95 

NL-10 „ „ $199.95 

NX-15  $289.95 

NX- 1000 $Newl 

ND-IO $259  95 

NO-15  $375,95 

NR-15  $409,95 

Nn-15  ?a  I'm S6SW,95 

NB24-iO  24  Pin $409.95 

NBZ4-1S  24  Pin $549.95 

^CITIZEN 

120  D  $149  95 

ISOD $175.95 

MSP- 10  $269,95 

MSP-40  $269,95 

MSP-15  $324.95 

MSP-50  $359.95 

MSP-4S $425.85 

MSP-55  ., $469  95 

Premiere  35 $464,95 

Tnlxjto  224 $624  95 


EPSON 

IJ<SOO $175.95 

FX86E  $288.95 

FX286E  $429,95 

Exsoo sa'-s.^s 

EX1000  „ $509.95 

LOBOO $369.95 

UQIOOO $549,95 

102500 $849,95 

QQ3500 $LOW 

LC18S0 $499,95 

LQ1050 $679,95 

OKIEMTA 

OWmalB  20 , $119 

Okimate  20  w.'carl $179.95 

120 $189.95 

180 $219.95 

182 $199.95 

192  .    $309,96 

193  ■(    $449,95 

292  w,'interfaca , $449,95 

293  w,'interiaca $585.95 

294  wlntertaca $819.95 

393 $955.95 


10801  Model  II $159.95 

10911  Modolll  $179.95 

10921 $295 

1592 $379 

1595 -  $419 

3131  $259 

3151  $399 

KXP  4450  Lfliwr SCALL 

1524  24  Pin  $M9  9& 

SILVER  REED 

EXP  420P $199 

EXP  600P $299.95 

EXP  flOOP „ $649 

Toshiba 

321SL  $^89 

341  SL $659 

P351  Modolll $898 

DIABLO 

D25 S499.95 

635 $779.95 


Join  tiie  thousands  who  shop  Lyco  and  Save! 


We  stock  intarfacing  for  AtaN,  Commodore,  Apple  and  IBM. 


BEFORE  TYPING  .  .  . 

Before  typing  in  programs^  please 
refer  to  "How  to  Type  In 
COMPUTEI's  GAZETTE  Programs," 
elsewhere  in  this  issue. 


Gradebook 

See  instructions  in  article  on  page 
33  before  typing  in. 


C000:A9 
0008: A9 
C0)0:8S 
0018:85 
C020:02 
C028:D2 
C030:42 
C03B:00 
C040:32 
C048:85 
C050:8D 
C05B:20 
C060:A9 
C06S:9) 
C070:90 
C078:AB 
C080:FF 
0083:20 
C090:C6 
C098:93 
C0A0:60 
C0A8:03 
C0B0:02 
C0B8:A5 
C0C0:A1 
C0C8:C1 
C0D0!00 
C0D8:65 
C0E0:D0 
C0E8:AD 
C0F0:C8 
C0F8:8E 
CI  00: 00 
C]08:42 
ClL0:Ca 
CI) 8:13 
C120t20 
C]2B:AS 
C)30:FC 
C] 38:65 
040:85 
CJ48:C] 
CI  50: 69 
C]58:85 
C]60:CA 
0168:80 
C170:05 
C)78:09 
C]a0:68 
0)88:48 
C) 90:02 
C19a:A2 
C1A0:A2 
ClAe:)0 
C)B0:E6 
CJ38:E6 
C]C0:FD 
C1C8:FD 
O]D0;30 
C1D8:02 
C)E0:E0 
0168:0  J. 
O1F0:A5 
O1F8:20 
C200:8B 
O208;A5 
0210 :C9 
C218:12 
0220:85 


13  as 

04  85 
AF  8  5 
A7  85 
A9  0: 
FP  A9 
00  20 
8a  D0 
00  A9 
A6  A9 
86  02 
D2  FF 
0B  8D 
00  08 
FS  A9 
A2  18 
A9  6A 
BS  C0 
20  Al 
02  20 
A9  00 
60  A5 
A5  03 
06  AA 
00  8A 
E8  08 
20  AA 
20  83 
F4  20 
BD  80 
00  05 
A5  04 

19  65 
85  FC 
as  02 
A0  00 
91  0  2 
FB  18 
69  00 
FB  85 
FC  A0 
C8  C0 
80  85 
FC  48 
D0  B6 

67  20 
D0  F4 
80  99 
6B  60 
0A  0A 
A9  2F 
00  A5 
0  2  BD 
F9  30 
CI  10 
E0  03 
BS  F7 
D0  04 
E6  FD 
90  E6 

68  A8 

20  2A 
A7  85 
E2  06 
85  B5 
8B  49 
13  D0 
20  54 
04    85 


AA   A9  CB 

A9    A9  00 

AB    85  AC 

B0    A9  80 

85    813  A9 

08    20  132 

EC    C]  A2 

FD    CA  D0 

00  as  06 

05  85  A7 

BD  21  1)0 

A9  00  8D 

21  D0  A0 

08  08  C8 

2B  A0  CA 

A0  00  J  8 

A0  CA  20 

20  54  C9 

C0  A2  19 

AA  00  CA 

85  02  A9 

02  IB  69 

69  00  85 
85  AD  AO 

18  69  01 

00  0  5  D0 
C0  A6  AD 

01  E8  C8 
AA  00  A0 
66  20  83 
D0  F4  A9 
4A  66  8E 
8E  85  FB 
43  A5  FB 
A9  04  85 
BI.  FB  D0 
C8  C0  13 
69  14  85 
85  FC  A5 
FB  AS  FO 
00  Bl  FB 
05  D0  F6 
FB  A8  68 
98  48  20 
A6  06  A0 
83  01  E8 
A0  27  89 

C3  07  aa 

85  05  8A 

IB  69  14 

95  F7  CA 

05  C9  C9 

E9  O)  95 

11  F6  F7 

F8  1.8  70 

D0  EP  A2 

C9  30  D0 

A9  20  D0 

91  02  08 

E6  FD  E0 

68  AA  60 

20  A9  00 

B0  AS  A6 

48  20  BC 

68  09  5F 

04  85  BB 

1 7  AE  8D 

C9  A9  00 

AF  A9  05 


85 

AB 

9A 

05 

A  6 

A9 

A9 

05 

E2 

8D 

BA 

F6 

8E 

20 

05 

FF 

20 

35 

14 

A0 

37 

FA 

4C 

Bl 

85 

04 

93 

A9 

0F 

E8 

A9 

93 

86 

20 

D0 

80 

13 

20 

8C 

C0 

28 

9B 

20 

IE 

2E 

20 

FO 

17 

IE 

AB 

82 

40 

E8 

AD 

Ag 

42 

CO 

D0 

F6 

DB 

04 

85 

59 

28 

85 

D4 

03 

60 

10 

00 

20 

40 

20 

83 

29 

F3 

A0 

7E 

BD 

80 

A3 

C0 

05 

92 

00 

A6 

ES 

01 

E8 

A2 

00 

85 

88 

48 

A9 

F7 

68 

69 

7S 

48 

A9 

89 

03 

A2 

13 

02 

A9 

39 

D0 

F3 

CC 

PB 

AS 

6B 

06 

IB 

87 

69 

00 

Dl 

20 

83 

)B 

68 

18 

92 

69 

00 

D2 

AA 

00 

49 

00 

BD 

2P 

08 

00 

46 

C0 

07 

FB 

10 

F5 

50 

4a 

98 

32 

A8 

A2 

05 

10 

F9 

C3 

D0 

0C 

95 

F7 

OA 

6B 

38 

FD 

BF 

E6 

01 

EP 

00 

86 

E6 

0A 

AS 

CA 

04 

A9 

90 

EB 

E0 

E4 

03 

90 

D6 

64 

0A 

34 

85 

06 

SB 

85 

AF 

6F 

C6 

A5 

C9 

D0 

08 

5F 

D0 

E8 

91 

02 

D0 

4B 

85 

06 

34 

35 

B0 

32 

C228: 
C230: 
C23a: 
0240: 
0248: 
C250: 
0258: 
C260: 
C26a: 
0270: 
0278: 
0280: 
C288: 
0290: 
0298: 
C2A0: 
C2AB: 
C2B0: 
02B8: 
C2C0: 
C2C8: 
CZD0: 
02D8: 
C2E0: 
C2E8: 
C2F0: 
C2F8: 
C300: 
0308: 
C310: 
C318: 
0320: 
0328: 
C330: 
0338; 
0340: 
0348: 
C350: 
0353: 
0360: 
C363: 
C370: 
C378: 
C380; 
0388: 
C390: 
C398; 
C3A0: 
C3Aa: 
C3E0: 
C3BB: 
0300: 
C3C8: 
C3D3: 
C3DB: 
O3E0: 
C3E8: 
O3F0: 
03  F8: 
0400: 
0408: 
0410: 
0418: 
C420: 
0428: 
C430: 
C438: 
0440: 
0448: 
0450: 
0458: 
C460: 
C468: 
C470: 
C47B: 
0480: 
C488: 
C490: 
C498: 
C4A0: 
C4A8: 
C4E0J 
C4BB: 
C4O0: 
C4Ca: 


40  48 
11  DO 
E0  17 
F0  02 
20  B8 
A5  B0 
02  85 
D0  30 
AF  F0 
14  00 
BO  09 
85  B0 
02  C6 
4a  C2 

09  A6 

05  BO 

06  F0 
C6  AF 
0  2  09 
A6  AF 
E0  5F 
02  E6 
48  02 
E0  03 

10  AS 
AB  A9 
60  09 
B5  20 

07  A9 
B6  A9 
E6  A6 
A6  20 
18  20 
20  IE 
E2  06 
85  B6 
C9  93 
2A  20 
A9  C9 
0  3  CA 
47  A0 
5  0  F9 
4C  48 
D0  41 
B0  39 
54  F0 
20  BA 
A2  21 
C0  FP 
20  BD 
A2  S0 
40  DO 
.16  C6 
0  2  00 
18  20 
F0  4  5 
F0  FF 
OF  A2 

00  20 
0F  20 
2C  D0 
F0  06 
20  CF 
0F  20 

02  20 

01  85 
01  A9 
20  E2 
D0  0B 
37  CD 

03  4C 
20  CF 
18  65 
85  OS 
85  03 
20  BA 
20  CO 
AS  A6 
F0  0D 
AB  A9 
E6  A0 
20  El 
A0  OA 
B9  80 
10  06 


02  09 
2B  20 
D0  12 
E6  04 
C0  4C 
09  03 
BO  4C 
20  5  4 

06  C0 
OS  F0 
04  DO 
40  8B 

04  C6 
C9  9D 
AF  FO 
0D  E0 

07  C6 

C6  as 

ID  D0 
E0  05 
F0  07 
AF  C6 
09  20 
4C  43 
AB  F0 
20  91 
50  DO 
54  09 

64  85 

01  85 
20  C2 
PS  00 
FO  FF 
AB  A5 
09  10 
20  60 
D0    3  2 

2  2  OA 
91  ii2 
D0  F6 
13  A9 
20  ES 

02  40 
20  16 
20  02 
17  A9 
FF  A5 
A0  CC 
AS  AD 
FF  20 
AO    68 

03  09 
20  2F 
A9  00 
D5  FF 
A2  04 
A9  OF 
03  A8 
BD  FF 
C6  FF 
F9  20 
20  D2 
FF  09 
03  FF 
C3  FF 
00  AS 
29  A0 
C6  4C 
20  54 
40  4fl 
42  05 
CQ   8A 

A6  as 

A9  00 
A9  04 
FF  A9 
FF    A2 

05  B6 
A9  0E 
78  B5 
OA  20 
05  20 
20    IE 

65  AA 
A9    6A 


OD  F0  04 

54  09  A6 

A5  04  C9 

06  BS  DO 

E8  C6  E6 

D0  05  18 

44  C2  C9 

C9  A4  B0 

0)  D0  06 

10  06  BO 

05  38  E9 
02  AS  04 
85  D0  D6 

00  23  20 
OA  A4  R0 

01  D0  09 

06  4C  B2 
D0  E3  4C 

1  D  20  54 
DO  OB  A6 
E6  06  40 
D5  D0  E9 
90  07  C9 
C7  09  J  4 
0C  C6  AB 
A8  08  91 
4B  A5  06 
B0  3F  20 
06  A5  A6 
A6  20  C2 

09  A5  36 
A2  00  A0 
A9  7E  A0 
B5  35  06 
DO  07  A9 
C4  40  48 
20  FE  05 
A2  27  A0 
88  DO  FB 
20  22  CA 
00  91  02 
CB  CA  DO 
FB  01  09 
06  20  2F 
CC  AS  8E 
0F  A2  08 
AD  18  69 
20  BD  FF 
A2  24  AO 

2  2  CA  A9 
38  20  D8 

00  D0  7F 
06  80  77 
A2  00  A0 
AS  8E  09 
A0  00  18 
20  C3  FF 
20  BA  FF 
20  03  FF 
20  CF  FF 
CF  FF  09 
FF  4C  OB 
0D  D0  P9 
2  0  00  FF 
20  24  06 

01  09  20 
CD  20  IE 

02  CC 
C9  B0 
02  09 
A9  00  35 
F0  EC  AS 
FD  18  69 
85  02  A9 
A2  04  A0 
00  20  BD 

04  20  C9 
F0  4B  AS 
A0  08  20 

05  D0  34 
IE  AB  A6 

10  06  A9 
AB  A4  FD 
20  El  C5 
A0  CA  20 


09 
03 
10 


09 

D8 

B0 

AJ 

33 

33 

EE 

79 

80 

C9 

69 

72 

91 

6D 

A6 

8C 

P0 

17 

AS 

82 

02 

35 

F0 

DC 

40 

98 

54 

A5 

C0 

B6 

A6 

88 

02 

44 

48 

D0 

C9 

9E 

06 

F7 

D3 

EO 

40 

E4 

SB 

FD 

D0 

9B 

A4 

DB 

A8 

0B 

85 

30 

FS 

4A 

as 

SC 

C9 

DA 

85 

04 

14 

38 

OA 

35 

20 

OF 

01 

14 

02 

EO 

D0 

30 

00 

DFl 

E6 

DF 

A2 

67 

88 

8B 

FI 

FD 

13 

CA 

06 

02 

09 

BE 

A8 

B7 

03 

DC 

20 

BA 

CC 

D3 

02 

4B 

FF 

40 

20 

70 

20 

00 

42 

5A 

54 

7E 

20 

10 

A9 

CB 

A9 

09 

A  2 

E6 

09 

FB 

2C 

SB 

04 

DO 

A9 

8B 

A9 

8F 

A9 

FB 

85 

FF 

AB 

A2 

01 

08 

20 

70 

P0 

04 

B6 

2A 

06 

9C 

13 

BA 

42 

FC 

00 

65 

FF 

SP 

FF 

BO 

B6 

59 

IE 

36 

A9 

4F 

FD 

14 

FA 

67 

88 

9F 

20 

IE 

D2 
76 

C4D0: 
C4D9: 
C4E0: 
C4E8: 

04  F0: 
C4F8: 
C500: 
C508: 
CS10: 
C518: 
C5  20; 
C52B: 
C530: 
CS38  : 
C540: 
CS48: 
C550: 
C5S8: 
CS60: 
C568: 
0570: 

05  78: 
0580: 
CS88  : 
0590: 
CS9B: 
O5A0: 
05A8: 
C5B0: 
05B8: 
CSO0: 
0508: 
C5D0: 
CSD8: 
CSE0: 
CSEB: 
C5F0: 
0SF8: 
0600: 
0608: 
0610: 
0618: 
C620: 
0628: 
0630: 
C638: 
0640: 
0648: 
0650: 
0658: 
C660: 
0668: 
C670: 
C67a: 
C680: 
0688: 
C690: 
C698: 
C6A0: 
C6A8: 
C6B0: 
06B8: 
0600: 
0608: 
C6D0: 
06DS: 
C6E0: 
C6E8: 
O6F0: 
C6F8: 
0700: 
0708: 
0710: 
0718: 
0720: 
0728: 
C730: 
C73B: 
C740: 
0743: 
C750: 
C758: 
C760: 
0768: 
0770: 


AB  A4 
20  El 
C6  20 

as  BS 

00  Bl 
40  00 

08  00 

ne  FO 

C9  90 

40  IF 

B6  FO 

A4  05 

E5  CD 

A8  A9 

FF  60 

CS  DO 

4C  OD 

DO  2D 

7A  18 

A8  20 

20  E  5 

88  A9 

65  99 

52  D0 

4A  A5 

85  A6 

AS  02 

03  69 

FB  00 

02  E6 

DO  ED 

D7  AO 

C0  13 

88  10 

02  8A 

E6  01 

A9  20 

A9  00 

A0  OA 

09  59 
A9  0D 
C9  A2 
CA  D0 
OF  95 
A6  AO 

06  09 
0)  D0 
DC  06 

A0  m 

A9  B9 

00  85 

C9  00 

09  20 
A4  AD 
l-;6  AD 
20  BC 
AD  F0 
BD  FF 
A9  02 
AD  40 
20  DO 
BC  C6 
99  AO 
00  85 
48  98 
20  F0 
An  60 
20  37 

07  A5 
A7  20 
00  OA 
07  18 
69  00 
DO  02 
00  A4 
A8  88 
60  00 
AA  Bl 

10  F7 
C9  20 
6B  60 
A9  20 
C9  41 
AB  43 
91  A8 


FD  aa  D9 

C5  20  10 

El  FF  F0 

20  El  FF 

0  2  09  IB 

02  A9  20 

1 3  DO  EC 
24  A4  05 

08  A9  2A 
05  AA  20 
00  A9  20 
CS  E6  B5 
20  10  06 

04  20  03 
C9  18  D0 

03  00  C9 

05  20  AC 
20  CF  CB 
65  06  85 
22  CA  A9 
CB  CA  DO 

09  99  80 
80  66  4C 
SO  AS  A7 
A6  43  A9 
20  33  C7 
18  69  30 
00  85  FC 
00  D0  06 
B5  91  02 
20  ES  CB 
7F  A9  C9 
D0  F9  A9 
FB  20  88 
A0  03  88 
B0  F8  98 
20  D 2  FF 
20  CD  8D 
20  D0  06 
08  20  BC 
20  D2  FF 
FE  B5  0) 
F8  60  A2 
0J  OA  DO 
CA  20  00 
54  85  8E 
0B  09  44 
38  60  A2 
20  BA  FF 
AO  CA  20 
CC  85  AO 
F0  IC  09 

90  Fl  09 
99  24  CO 
AS  AD  09 
C6  A9  01 
24  A2  24 
IB  60  AS 
AO  CA  20 
65  06  A9 
C6  20  E2 
68  60  A9 

04  88  10 
02  A9  42 
48  A2  04 
FF  58  A3 
20  E4  FF 
07  20  54 
AF  85  A6 
Al  00  A6 
D0  FA  A6 
65  02  85 
85  A9  AO 
AO  12  84 
AA  Bl  A8 

10  F7  A9 

14  IB  30 
A8  29  7F 
60  48  A6 
FO  06  C9 
AS  AB  D0 

91  A8  aa 

90  03  33 

20  83  C7 

A2  1 2  A5 


80  67 

C6  20 

5  3  A9 
P0  4A 
B0  06 
20  D2 
AS  A6 
B)  02 
20  02 
El  CS 
20  D2 
D0  DE 
C6  DE 
FF  20 

06  20 
04  F0 
C6  C9 
A5  A6 
BE  69 
09  91 
F6  A4 

67  99 
43  C  2 
09  03 
00  85 
63  35 
85  FB 
AO  00 

29  DF 

ca  CO 

AS  B5 

91  02 
00  91 
CO  4C 

30  OS 
30  09 
88  00 
60  A9 
20  E2 
C6  28 
60  20 
9D  00 
FE  BD 
F8  60 
06  20 
00  04 
F0  05 
06  A9 
20  BC 
00  C6 
20  E2 
14  FO 
5B  B0 
20  02 
OC  D0 
85  CO 
AO  CO 
AD  F0 
IE  AB 

92  AO 
06  48 
20  A0 
FA  60 
as  03 
AO  00 

68  20 
FO  FD 
C9  20 
A5  BO 
A7  20 
A6  BO 
AB  A5 
02  AS 
AA  20 
09  80 
00  85 
20  2  4 
91  A8 
A6  DO 
41  DO 

09  A4 

10  P9 
E9  40 
63  09 
A6  F0 


AA  EA 

10  91 

FE  39 

A0  BD 

09  74 

FF  08 

05  DP 
09  B6 
FF  B7 
A5  AE 
FF  36 
20  9D 
D0  46 
00  30 
FE  7C 
03  8E 
43  OB 
FO  CB 
13  88 
02  DA 
8E  F.S 

30  DA 
09  6E 

90  00 
B5  12 
A6  5E 
A  5  D0 
131  84 
DO  DC 
80  04 
F0  E3 
88  14 
02  AD 
48  D7 
09  9D 
C8  5E 
F8  47 
ce  05 
C6  E4 
60  05 
54  FC 
CF  BC 

00  F8 
A9  A4 
E2  59 
A  2  E0 
20  90 

02  7D 

06  DE 
A9  65 
C6  RR 
20  AA 
ED  27 
FF  0  5 
DD  7  A 
A5  26 
20  4F 
CS  99 
06  00 
CA  DC 
20  40 
12  3A 
A9  23 
60  21 

1  a  96 
IE  7H 
60  CA 
37  90 
85  CC 
>\A  61 

31  E3 

03  68 
A6  9E 

BB  ao 

91  A5 
AB  B3 
A4  42 
88  4D 

OA  El 

02  F9 
AA  3A 
68  62 
A4  F5 
BO  8E 
02  14 
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C780:84 
C788:04 
C790:65 
C79B:03 
C7A0!BA 
C7Aa!]8 
C7B0I00 
C7Ba!65 
C7C0:e5 
C7C8:06 
C7Da:A6 
C7D8:8S 
C7E0tA5 
C7E8!A5 
C7F0:34 
C7F8jA9 
CS00I20 
ce08:CF 
Cai0iA9 
CBiasAS 
0620:9] 
C828:AE 
C830:0] 
C838;20 
ca40:64 
C848:D0 
0850:86 
0858:85 
C860:99 
C868:A4 
C870JC9 
C878:02 
C880:8E 
C888:9). 
C890I80 
C898i20 
C8A0IBC 
C8A8:20 
C8B0:A9 
CBB8:6A 
C8C0 : BB 
C8C8i9F 
CaD0!C9 
C8DB:A2 
caE0:BA 
C8EB1C6 
C8F0:A9 
C8F8:BJ 
C900:65 
C908:F9 
C910:00 
C9J.e:18 
C920!00 
C92aiA5 
C930!6] 
C938I02 
C940:D9 
C948:20 
C950:]L0 
C9585AA 
C960:05 
C968:2A 
C970:CE 
C97aiE9 
C980185 
C988:85 
C990:CA 
C998:90 
C9A0J88 
C9A8:A9 
C9B0IC9 
C9B8:C7 
C9C0!l8 
C9C8:8A 
C9D0185 
C9D8iA9 
C9E0:C9 
C9E8:C9 
C9F0:69 
C9F8:D0 
CA00:B3 
CA0B:A9 
CA10190 
CA18iB7 


02  E4 
AC  60 
4A  66 
8E  85 
A6  A7 
18  69 
69  80 
85  03 

02  85 

03  60 
20  E5 
F0  )B 
02  A5 

02  )8 

03  69 
15  16 
Bfl  85 
F0  C8 
CB  86 
42  85 
8D  85 
B3  20 
20  91 
60  20 
49  D8 
91  02 
CA  20 
B]  A9 
03  A9 
3C  03 
B2  E9 
B0  4E 
C9  C9 
85  BE 
B3  20 
6  5  AB 
F4  CB 
A4  B2 
91  B3 
3C  A0 
BB  A2 
E6  B2 
A5  8E 
D0  0E 
BB  20 
A0  6S 
Bl  F0 
00  85 
02  C9 
C9  C9 
80  65 
85  AE 
71  02 

85  FD 
FD  60 
CA  10 
A9  43 
A0  CA 
83  C7 
F9  IB 
C0  12 
as  AB 
D0  0C 
A9  C9 
30  F0 
FD  AS 
05  B0 

86  10 
lA  A5 
B9  80 
00  CS 
C9  B0 
AS  05 
60  20 
F0  55 
8E  69 
00  85 
C9  90 
IB  65 
00  85 
E4  AS 
20  0C 

00  20 

01  60 
8A  A4 


AB  F0 

A9  00 

BE  48 

02  68 

CA  E0 

65  85 

85  02 
A6  A6 

02  AS 
CA  CA 
CB  CA 
A5  06 

03  69 
7D  EF 
00  85 
)7  16 

02  A9 

84  8C 
BJ  A9 

03  AS 
AE  20 
0F  BC 
B3  20 
E2  BA 
20  Al 
20  E5 
28  C9 
14  85 
00  85 

86  10 
80  66 

85  AD 
B0  44 
A4  AD 
0F  BC 
A9  00 

90  01 
Bl  02 
AS  6] 
03  20 
3C  A0 
A5  B2 
C9  64 
A9  3C 
49  B8 

91  02 
03  4C 
0S  85 
C9  90 
B0  IE 
85  AD 
4C  2  3 

as  05 

88  10 
A2  10 
F9  6  0 
85  03 
20  D0 
Bl  A8 
60  20 
F0  EB 
A2  02 
A5  A7 
85  05 
14   C9 

05  18 
B3  C6 
Dl    AS 

06  18 
65  C9 
05  90 
8B  A0 
91  02 
2B  C9 
A5  06 
13  A8 
05  BS 
0S  C6 
05  BS 
FD  20 
FD  A4 
BC  A4 
91  B3 
20  49 
8E  8B 


02  E6 
85  8E 
A9  00 

69  42 

03  B0 
03  AS 
A5  03 
CA  8A 
03  69 
CA  CA 
D0  FA 
18  65 
00  B5 
C7  85 
03  60 
20  2D 
6S  8S 
85  BD 
14  65 
8C  65 
F0  C8 
A4  AD 
F4  CB 
20  E2 
B7  8A 
CB  C6 
20  CF 

02  A9 
8E  A0 
FA  85 
F0  5A 
A4  B2 
A5  AD 
Ag  00 
A4  B2 
20  91 
60  20 
A8  A9 
20  2B 
8C  BA 

03  20 
C9  64 
F0  04 
A0  03 
20  A] 
20  E5 
5A  C8 
FD  A0 
18  89 
AS  AD 
AS  AE 
C9  AS 
A5  FD 
D2  A4 
A9  00 
A9  14 
A0  6C 
C6  38 
91  02 
37  C7 
A9  00 
Bl  AB 
C9  03 
D0  3D 
F0  F0 

70  E6 
FD  D0 
A7  C9 
65  A6 
C9  D0 
91  AS 
00  20 
20  C2 
20  CF 
18  65 
20  22 
FD  Bl 
BE  4C 
05  A5 
E5  CB 
0S  20 
BE  F0 
20  F4 
S8  2  0 
99  80 


AB  3A 
A5  FC 
18  63 
85  3A 

23  ac 

06  86 
69  ID 
18  F9 
00  58 
F0  94 
A6  13 

02  0B 

03  E9 

02  4A 
00  32 
C9  6  5 

03  3F 
20  F4 

02  0B 
AD  FF 
20  Fl 
A5  05 
90  83 
BA  63 
A0  E6 
Bl  48 
CB  ES 
42  Dl 

07  51 
B2  E0 
C9  AD 
Bl  4C 
6S  3B 
20  0B 
B9  5C 
B3  C2 
0F  D2 
00  31 
BA  JC 
20  33 
D4  EB 
D0  F0 
A9  9A 
20  62 
B7  84 
CB  CD 
60  56 
63  21 
80  92 
3a  18 
E9  09 
05  30 
69  D0 
05  77 
95  01 
85  20 
A9  15 
60  B6 
88  F8 

A4  as 

as  4E 
C9  69 

90  IC 
38  85 
11  71 
CI  Al 
F2  34 

03  2D 
A8  SC 
02  66 
05  35 
83  33 
C9  33 
CB  69 
A6  E4 
CA  FD 
02  CB 
F4  EC 
FD  ED 
CA  C4 

91  CD 
18  DE 
CB  63 
Al  4B 
67  BC 


CA20:18 
CA28:85 
CA30:1D 
CA38:4D 
CA4011D 
CA48 : 46 
CA50:4B 
CA58  5  1D 
CA60:52 
CA6a:45 
CA70:45 
CA7a!20 
CA80J47 
CA88:20 
CA90:20 
CA98 : 20 
CAA0 : 4C 
CAAS 1 54 
CAB0120 
CABS: 00 
CAC0 I  20 
CAC8:12 
CAD0:5S 
CADS i 00 
CAE0:S2 
CftE8:53 
CAF0I20 
CAFB 1 20 
CB00:54 
CB0B:20 
CB10;4D 
CBI8:20 
CB20:20 
CB2B:00 
CB30!4E 
C838:CF 
CB40:BE 
CB48iB9 
CBS0SF0 
CB58!69 
CB60:A9 
CB6S:A9 
CB70:A5 
CB78:03 
CBBOsFF 
CBBBtFO 
CB90:B1 
CB98!02 
CBA0:DF 
CBAa:7F 
CBB0:02 
CBB8:E6 
CBC0:D0 
CBC8:F0 
CBD0J22 
CBD8!02 
CBE0120 
CBE8!69 
CBF0:85 
CBF8:20 
CC30:la 
CC08:18 
CC10:88 
CC18:68 
CC20:60 


60  A9  00 
03  60  13 
ID  41  53 
45  4E  54 
ID  ID  ID 
45  43  54 
0D  ID 


JD 
41 
00  41 
20 
20 


00 

4F 


ID 
25  20 
44  4S 
56 
20  20 
20  20 
ID  46  49 
)D  20  20 
12  28 
52  20 
S5  4D  4E 

29  41  50 

28  44  29 
12  4E  41 
00  20  9D 
20  41  52 
20  S3  55 

12  44  41 

52  4F  52 
49  47  4E 
4E  55  4D 
00  50  45 
20  4D  41 
20  20  20 
45  20  20 
20  20  20 
41  56  47 
0D  0D  4B 

59  20  4B 
E0  02 
12  85 

A9  B0  8D 

13  AS  06 
13  85  B9 
90  8D  AS 
00  85  F7 

02  18  69 
69  00  85 
A4  B9  BB 

30  AS  BB 
FB  Dl  02 

29  OF  85 
CS  B5  F0 
Bl  02  95 
AS  8E  9: 
F7  20  E5 
AE  C6  BE 
04  A5  F7 
CA  A0  00 
29  DF  D0 
ES  CB  B0 
80  BS  02 

03  38  60 
3F  C9  38 

60  AD  IB 

D0  AD  aa 

02  48  A9 
C9  04  D0 

53  30  3A 


CB 
A9 


85  02 
ID  ID 

53  49 
20  23 
ID  50 
20  4D 
)D  ID 
4F  45 
0D  4E 
45  52 
20  20 
20  00 
4E  ID 
20  ID 
52  29 
28  43 
92  00 
4S  20 
49  53 
4D  45 
9D  20 
45  20 
52  45 

54  41 

92  00 
4D  45 
42  45 
52  46 
52  48 
20  00 
20  20 
20  20 
20  46 
49  54 
45  59 
B0  01 
B8  A9 
AS  CB 
!8  65 
A9  0J 
CB  20 
A6  BE 

B0  as 

FC  86 

Ca  EB 

C9  01 

4C  A3 

BS  Bl 

DF  B0 

BE  B) 

FB  aa 

CB  A6 
A5  BE 
DD  97 
A2  FF 
03  86 
F]  AS 
A5  03 
A5  51 
60  20 
DO  49 

02  49 

93  20 

03  20 
00    00 


41 
41 


7B 
3C 
41 


A9  42  D8 
ID  ID  33 
47  4E  95 
0D  ID  99 
45  52  28 
41  52  0B 
ID  ID  F8 

20  47  as 

4D  BD 
47  6B 

20  20  98 

41  56  06 

20  20  AS 

20  20  51 

4F  S7  38 

29  4F  4E 

12  26  21 
4F  52 
4B  92 
3F  92 
9D  00  EC 

59  4F  69 
3F  92  91 
20  4  5  BC 
41  S3  AD 
4E  54  B8 
52  20  95 
45  43  76 
20  20  A7 
4E  4)  9C 
20  20  87 
20  20  AP 

49  4E  52 
20  41  46 
00  20  AD 

60  E6  18 
00  B5  2E 
AS  A6  64 
A6  18  FS 
85  B8  CA 
22  CA  EA 
CA  CA  95 
FB  AS  AC 
FD  A2  E4 
E4  B8  5D 
D0  07  DF 
CB  Bl  94 
FB  29  65 

13  A0  E7 
FB  91  C9 
10  Fl  B] 
FD  CA  E3 
C9  02  EE 

50  20 
EB  Bl 
BE  60  D4 
02  la  C8 
69  00  32 
DO  05  72 
12  BB  90 
20  6D  6E 
08  8D  ,F2 
02  FF  04 
4E  G0  OB 
00  00  58 


D3 

DB 


Autoboot  Maker 

Article  on  page  60. 

FF    100    INPUT    "NMAE    OF    PROGRAM 

1  SPACE j TO    LOAD";PNS 
RH    110    INPUT    "NAME    OF    BOOT    PRO 

GRAM"fBtJ? 
BE    120    INPUT    "LOCATION    TO   JUMP 

AFTER    LOAD", -LOGS 
XS    130    IF   L0C5=""    THEN    BASIC=] 

:GOTO    160 
CD    140    IF    LEFT5(LOC5, 1)="$"    TH 

EN    GOSUB    760! GOTO    160 
MG    150    L0C=VAL(L0C5) 
PX    160    INPUT    "KILL    RUNSTOP/RES 

TORE    (Y/N)";RNS 


EK    170    RN$=LEFTS(RN5,y) 

FE    180    IF    NOT     (RNS'="Y"    OR    RN5= 

"N")    THEN    160 
FE   190   OPEN    15,8. IS, "I" 
BB    200    OPEN    a,8,8,"0!"+BHS+",P 

,W" 
KC    210    PRINT#8,CHRS(167)CHR?(0 

2); 
XX    220   PRINT#8,CHRS(LEN(PNS)) ; 
XQ   230   PRINT«8,PN5; 
KB    240    IF    RNS="N"    THEN    380 
JX   250   FOR   C=l    TO    17 
BM    260    READ   CODE 
SK    270    PRINT#8,CHR5(CODE)r 
EE    280   NEXT   C 
SJ    290    DATA    120f9   SPACES):    REM 

SEI 
KK    300    DATA    169,052} 5    SPACES): 

REM   LDA    #5  2 
AK    310    DATA    141,020,003    i    REM 

[SPACE)STA    50314 
SK    320    DATA    169,134t5    SPACES); 

REM   LDA    #134 
PM   330    DATA    141,024,003    :    REM 

iSPACE)STA    $0318 
QF    340    DATA    169,2  34(5    SPACES): 

REM    LDA    1234 
SG    3S0    DATA    141,025,00  3    :    REM 

lSPACE)STA   $03 19 
XQ    360    DATA    088(9    SPACES} j     REM 

CLI 
MS    370    GOTO    390 
FK    380    FOR   C=l    TO    17:READ   CODE 

jNEXT    C 
BP    390    FOR   C=l    TO    38 
GC    400    READ   CODE 
PB    410    PRINT#8,CHRS(C0DE); 
MR   420    NEXT    C 
AH    430    DATA    169,002(5    SPACES}: 

REM   LDA    #2 
RX   440    DATA    162,008(5    SPACES}: 

REM   LDX    #8 
SR   450    DATA    160,255(5    SPACES): 

REM   LDY    #2SS 
BA   460   DATA    03  2,186,255    : REM   J 

SR   5FFBA 
KD    470    DATA    173,167,002    : REM    L 

DA    S02A7 
JE    480   DATA    162,168(5    SPACES): 

REM   LDX    #$A8 
EH    490    DATA    160,002(5    SPACES] : 

REM   LDY    ISO 2 
DG    500    DATA    032,189,255    : REM   J 

SR  SFFBD 
PB  510  DATA  169,000(5  SPACES)) 

REM    LDA    #$00 
AH    520    DATA    032,213,255    : REM    J 

SR  $FFD5 
MH  S30  DATA  169,131(5  SPACES): 

REM  LDA  #131 
MX  540  DATA  141,002,003  : REM  S 

TA  S0302 
XH  550  DATA  169, 164 {5  SPACES): 

REM  LDA  #154 
SP  560  DATA  141,003,003  j REM  S 

TA  $0303 
MP  S70  DATA  134,045(5  SPACES): 

REM  STX  S2D 
EG  580  DATA  132,045(5  SPACES): 

REM  STY  $2E 
AA  590  IF  BASIC=1  THEN  GOSUB  8 

50 1  GOTO  620 
HD  500  Ll=INT(LOC/256) :L2"L0C- 

(L1*2S6) 
CM  610  PRINT#8,CHR${76)CHRS(L2 

)CHR$(L1); 
RP  620  IF  RN?="Y"  THEN  BU=58+L 

EN(PN5)+1 
CR  630  IF  RN9="N"  THEN  BU=41+L 

EN(PN?)+1 
GE  640  IP  BASIC-1  THEN  BU-SU+1 

1 
GR  650  BL-8S-BU 
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KC  660  FOR  C=l  TO  BL+i : PRINT #8 
,CHR$(0 J; tNEXT  C 

KP  670  PRINT#8,CHR5(139)CHR$(2 
27); 

GH  680  B=679+LEN(PN5)+1 

SD  690  Ll=IHT(B/256) iL2=Q-(Ll* 
256) 

CA    700    PRINT#e,CHR$tL2)CHB?(Ll 

); 

JP    710    CLOSES 

AS    720    GET#15,R5!S=ST 

AJ    730   PRINT   A?; 

QE    740    IF    S=0    THEN    720 

KF    750    END 

KP    760    L=LEN(LOC?) 

ED    7  70   S=L-1 

RK    780    FOR    C=l    TO    L 

JR   790    IS=MIU5(LOC5,C,l) 

HD    600    IF    IS<="9"    THEN    I5"STRS 

(VAL(iS)) 
MB   810    IF    I5=>"A"    THEN    I5=STR5 

(ASC(I$)-S5) 
QQ    820    L0C=L0C+VAL(I?)*16rS 
FK   830   S=S-1 
ftil    840    NEXT    C 
SM    850    RETURN 
JC    860    FOR   C=J    TO    14 
JA    870    READ    CODE 
RE    880    PRINT#8,CHR5(C0DE) ; 
EP    890    NEXT    C 
CK   900    DATA    169,000(5    SPACES): 

REM    LDA    #500 
EA   910   DATA    133,122(5   SPACES): 

REM    STA    57A 
EG    920    DATA    169,00815    SPACES): 

REM    LDA    #508 
RR    930    DATA    J  33, 123 [5    SPACES): 

REM    STA    $78 
KP    940   DATA    032,096,166    sREM   J 

SR   5A660 
QG    950    DATA    076,174,167    :REM   J 

MP    5A7AE 
SD    960    RETURN 


Snapshot 

Article  on  page  28. 
Program  1:  Snapshot 


KQ  100  POKE56, 146:CLH:SC=1024: 
CM=54272:XT=0!YT=0iX=0t 
Y=>0!R=.24:C=39!DIMNA5(31 

) 
KQ  110  SNAPSHOT=51000:POKE5328 

0,11:POKE53231, 12:G0SUB 

240 
AE  120  PRINT  TAB{7)"SET  UP  AND 
COPY  SCREENS" :FOR1=0TO 

1200! NEXT 
BK  10  GOSUB240!PRINTTAB{9)"SNA 

PSHOT  DEMONSTRATION" 
EA  140  SYSSNAPSHOT, D,*:REM  ERA 

SE  OLD  SCREENS 
BB  150  FORI=  0  TO  31:X=l!Y=0!G 

OSUB250 
SQ  160  X=X-3  :Y=y+l:IF  X>=0  THE 

N  GOSUD2  50:GOTO160 
ME  170  NA5CI)=STR5(I)!NAS(I)=H 

IGHTS ( NA5 ( I) , LEN ( NA5 ( I ) 

)-l}:N5=NA5(I) 
EM  180  SYSSNAPSHOT, C,NS: NEXT !R 

EM  COPY  SCREEN 
ME  190  GOSUB240: PRINT  TAB(3)"S 

NAPSHOT  PRINTS  SCREENS" 
KQ  200  PRINT; PRINT: PRINT  TAB{1 

0)"PRESS    (STOP)    TO    END" 
:FORI='0TO3000:NEXT 


KJ    210    FORI=0TO31 :NS=NA?(I) :SY 

SSNAPSHOT, P, N3 : NEXT 
QA   220   FORI=31TO0STEP-1:N5=NA5 

1 1 ) : SYSSNAPSHOT , P , N  S ; NE 

XT 
CX    230   GOTO210 
KD    240    PRINT" [CLR) [WHT)": FORI* 

0TO9 ! PRI NT : NEXT ; RETURN 
CC    250    IF    Y>24   THEN300 
JX   260   XT-XiYT=YiCH-78!GOSUB31 

0 
XA   270   XT=C-X:CH=7  7:GOSUB310 
JK    280   YT=R-y:CH=78:GOSUB310 
CP    290    XT=X:CH=77:GOSUB310 
HJ    300    RETURN 
CM    310   P=40*YT+XT+SC: IFPEEK(P) 

=770RPEEK(P)»78THENCH=8 

6 
GO    320    POKEP,CH! POKEP+CM,0 
DM    330   RETURN 


Program  2:  Snapshot  Demo 


0124:78 

C12C:8D 

C134sCl 

C13C:SD 

CI  44: AD 

C14C!58 

C154:FA 

C15C:aD 

C164:AD 

C16C:C9 

C174:C5 

C17C:C1 

CI  84: ID 

C)8Ci21 

C194:25 

C 1 90 ! 20 

C]A4:C1 

C1AC:F9 

C1B4:20 

C1BC:C1 

ClC4t67 

GlCCiFE 

C1D4:A9 

C1DC:C7 

C1E4:85 

CIEC:A0 

C1F4:C1 

C1FC!37 

0204:63 

C20C:84 

0214:14 

C21C:E4 

C224:C9 

C22C:EE 

C234:00 

C23C:D0 

C244!D0 

C24C:9D 

C254:04 

C25C:a5 

C264:71 

C26C:C2 

C274:8E 

C27C:A2 

C284:86 

C2aC:B6 

C294:FF 

C29C:D7 

C2A4:CC 

C2AC:01 

C2B4!98 

C2nC!02 

C2C4:D3 

C2CC:D2 

0  204:60 

C2DC:01 

C2E4:FC 

C2EC:A0 

C2F4:00 

C2FC:D0 


AD  15 
E8  CI. 
A9  64 
15  03 
6  3  CI 
60  98 
A9  FF 
FF  C0 
36  C7 
04  F0 
CD  13 
C9  14 
09  00 
C9  12 
C9  IS 
C6  CI 
4C  C3 
C7  20 
C6  01 
4C  F2 
02  BA 

02  01 
20  4B 
85  CC 

01  4C 
00  80 
F0  04 
C7  D0 
40  8C 
0B  AD 
CI  60 
FF  A6 
14  D0 
29  7F 
CI  E8 
DB  A9 

03  4C 
00  CI 
85  08 
09  A0 
C4  60 
85  02 
69  C3 

02  CA 
02  AD 
02  F0 
F0  FB 
C2  40 
20  C0 
EB  8D 
20  D7 
40  3B 
08  20 
69  00 
85  01 
34  CD 
20  D2 
00  34 
00  99 
F5  60 


03  C9 
AD  14 

8D  )4 
A0  00 
D0  03 
99  00 
8D  FE 
80  63 
D0  07 
03  4C 


CI 
FO 
F0 


F0 
IB 
IF 


F0  23 
F0  27 
4C  0D 
C4  20 
C6  CI 
4C  DF 
C6  20 
FE  0) 
E8  E8 
48  48 
20  Fl 
31  EA 

36  C7 
68  4C 
06  68 

37  C7 
37  C7 
85  CC 
00  C9 
05  CA 
C9  20 
20  D7 
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E9  CI 
60  AD 
AD  FF 
00  20 

20  50 
8D  65 
AD  86 
E4  0D 

21  D0 
EE  84 
C9  00 
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02  18 
63  G4 
C2  A5 
C3  18 
7)  C4 
20  71 
A4  CF 
A4  A2 
FF  A0 
CF  60 
70  C9 
A0  00 


CI  FO 
03  SD 

0  3  A9 
8C  36 
20  4E 
C0  C8 
C0  A9 

01  60 
AD  8E 
E6  CI 
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09  39 
09  2A 
C9  21 
4C  E6 
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C6  CI 
4C  12 
C5  20 
C6  CI 

01  D0 
8E  16 
48  80 
C2  A9 
20  FF 
BA  EC 
Fl  01 
A8  68 
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F0  04 
86  00 
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A8  A9 
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BE  69 
00  80 
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F0  0A 
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00  26 
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F0  07 

01  ca 
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C6  ]4 
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03  A4 
CI  6E 
36  77 
36    65 

02  A2 
16  CE 
AE  F8 
AA  E9 
00  D7 
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20  33 
lA  33 
30  DC 
90  AE 
0B  E7 
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85  4F 
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CO  70 

03  18 
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aE  2E 
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71 
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A5 
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5B 
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84 

0A 

6E 

C364:A9 
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02 

A9 
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29 
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34 

C3eC:09 

08 

85 

03 

as 

00 

AD 

69 

B0 

C374:C4 

29 

03 

09 

08 

80 

69 

04 

2E 

C37C:20 

CD 

05 

AS 

04 

91 

08 

AS 

B6 
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08 

91 

08 
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CI 
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0E 

FD 
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00 

20 

71 
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A5 

0B 

20 

0F 

C3ACs71 

04 

AD 

15 

CI 

20 

71 

C4 

5B 
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00 

80 

15 

CI 

40 

59 

C3 

09 

C3BC!85 

0E 

AS 

0B 

8D 

15 

CI 

40 

80 
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03 

OE 

15 

CI 

40 
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C3 

86 
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6a 

AD 

15 

01 
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08 
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11 
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CE 
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14 
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05 
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EC 

0484: D0 
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E6 

04 
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05 
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CI 
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A5 

0C 

F0 
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59 

04 

A6 
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01 

BE 

C4BC:60 

4C 

CC 

03 

A9 

00 
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5F 

40 
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A0 

03 

20 

0A 
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20 

B3 

00 

040C:C6 

C0 

FF 

00 

08 

A9 

48 

23 

8E 

C4D4:5F 

C7 

40 

E9 

01 

R9 

00 

00 

Oi) 

C4DC:85 

04 

139 

01 

00 

85 

05 

l\0 

38 

C4E4:0O 

20 

C0 

05 

35 

09 

20 

C0 

30 

C4EC:C5 

85 

08 

20 

C0 

OS 

8S 

02 

E7 

C4F4:B5 

06 

20 

CO 

05 

85 

03 

29 

46 

C4FC:03 

09 

08 

85 

07 

20 

C0 

05 

BO 

C504t8D 

63 

04 

20 

C0 
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8D 

69 

6B 

C50C:C4 

84 

OA 

64 

0E 

A9 

02 

85 

45 

C514:0F 

20 

00 

05 

09 

00 

FO 

2B 

FE 

C51C!20 

57 

C4 

A5 

0A 

D0 

OA 

C6 

EE 

C52450F 

00 

EE 

20 

69 

C5 

4C 

15 

SB 

C52C:C5 

06 

OF 

00 

06 

20 

69 

05 

84 

0534:40 

99 

C5 

A9 

60 

3D 

7E 

OS 

9B 

0530:20 

69 

OS 

A9 

4A 

80 

7E 

C5 

DO 

0544:40 

99 

05 

20 

CO 

05 

85 

0B 

4A 

0540:20 

00 

05 

as 

0D 

E6 

00 

A5 

EO 

C554:0B 

20 

57 

04 

06 

00 

F0 

03 

B4 

C55CIC6 

0F 

00 

F3 

20 

69 

05 

40 

E6 

C564:53 

C5 

40 

IF 

05 

A6 

0E 

F0 

50 

0560:07 

A5 

00 

06 

OE 

40 

7B 

C5 

31 

0574:20 

OB 

C5 

C9 

00 

FO 

0F 

20 

5A 

C570:D6 

C5 

4A 

4A 

4A 

4A 

20 

06 

65 
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A2 

02 

86 

0F 

60 

20 

CB 
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85 

0C 

20 

GB 
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6E 
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0C 

40 

7B 

C5 

AC 

BC 

C5 

57 

0590 <D0 

IF 

A9 

20 

85 

02 

A9 

DO 

E7 

76    COMPUTErs  GazettB  Special  1988  Issub 


CSA4:85 
C5AC:A6 
C5B4:4A 
C5EC5  00 
C5C4JD0 
C5CCI0B 
C5D4:06 
C5DC!E6 
C5E4:A0 
C5EC:DD 
C5F4:B3 
C5FC:20 
C604:C6 
C60C:69 
C6].4:00 
C6rC!8D 
C624iC0 
C62CtB9 
Ce34:S5 
C63CJB9 
C644!B9 
C64C:S8 
C654:C0 
C65C!C0 
C664JC0 
C66C!00 
C674IF0 
C67C!PD 
Ce84:A8 

cescsce 

C694:A5 
C69C!A5 
C6A4:AD 
C6AC1FF 
ceB4s00 
CeBCsC) 
C6C4!C8 

ceccici 

C6D4:Ca 

C6DC:60 

C6E4SCI 

C6EC!20 

C6F4:20 

C6FC:99 

C704!A2 

C70CJ00 

C714:20 

C71C;B9 

C724:C0 

C72C:C7 

C734:3B 

C73C:A9 

C744;51 

C74C!D0 

C754:D2 

C75C!D0 

C764i05 

C76C!20 

C774:84 

C77C:0B 

C784:C7 

C7ec:82 

C794:53 

C79C:4] 

C7A4:45 

C7AC 1 54 

C7B4t44 

C7BC:44 

C7C4:59 

C7CC:4C 

C7D4:49 

C7DC:4E 

C7E4S20 

C7EC: 52 

C7F4S94 

C7FCiAD 

C804iO5 

C80C!20 

C8J.4:  ,8 

C81C:C1 

C824:20 

C82C:20 

C834!A2 


03  20 
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04  C0 

05  20 
00  C0 
0)  C0 
88  A6 
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77 

C8 

17 

G0 

2B 

00 

60 

10 

5C 

E9 

A7 

10 

08 

C3 

42 

C7 

9F 

AD 

A4 

C83C: 
C844! 
C84C! 
C854: 

cesc: 

0864: 
C86C! 
C874! 
CB7C: 
Ca84: 
C88C: 
C894: 
C89C: 
C3A4: 
C8AC; 
C8B4: 
C8BC: 
C8C4: 
C8CC: 
C8D4: 
CBDCi 
C8E4: 
C3EC: 
CBF4: 
C8FC! 
C904! 
C90C: 
C914t 
C91C! 
C924s 
C92C! 
C934: 
C93C: 
C944: 
C94C! 
C954: 
C95C: 
0964: 
C96C: 
C974: 
C97C! 


10  CI    C9 

00  06  C9 
A9  02  A0 
68  63  A9 
E9  CI    A0 

6  3  CI  D0 
36  85  01 
C7  BA   8E 

01  CI  20 
C9  49  FO 
00  20  73 
CI  ca  20 
2C  F0  0C 
00  CI  C0 
20  99  00 
0D  C9  4C 
28  20  FB 
F0  0B  C9 
F0  09  4C 
4C  DP  C5 
C7  20  73 
C6  20  73 
8D  10  CI 
C9  4C  00 

79  00  F0 
;FB  60  A5 

85  03  AO 

80  BD  01 
Dl  02  F0 
IB  C9  C8 
F0  07  88 
C9  C8  Bl 
A9  0F  8D 
Bl  02  85 
05  AO  00 

ca  CA  10 

CI  4C  An 

07  85  02 
03  C5  30 
C5  2F  BO 
00  00  00 


44  00 

54  00 
01  20 
5  7  20 
00  20 

03  20 
BD  37 
16  CI 
73  00 

55  85 
00  F0 
73  00 
C9  24 
I3F  00 
Gl  3C 
FO  2C 
C8  A5 
44  F0 

56  C8 
4C  C0 
00  D0 
00  C9 
20  FB 
E2  4C 

05  20 
2D  85 
00  AD 
CI  AE 

06  20 
AD  01 
20  60 

0  2  C9 
14  CI. 

04  ce 

Dl  04 

F7  A9 

C8  18 

AS  03 

BO  01 

01  60 
00  00 


A  2 
A  2 


BA  FF 
5F  G7 
Fl  C2 
4E  CI 
C7  BD 
AO  00 
60  37 
0D  20 
C4  99 
F0  10 
F0  63 
EB  C8 


1.4 
C9 


00  C9 
0A  C9 
4C  0D 
C4  4C 
FB  4C 
2C  F0 
C8  A5 
12  C8 
73  00 
02  A5 
01.  CI. 
00  CI. 
60  C9 
CI  Dl 
C9  4C 
10  90 
AA  CA 
Bl  02 
99  00 
20  99 
A5  02 
69  00 
60  A5 
4C  54 
00  00 


08  A7 

01  33 
60  A3 
4C  39 
AD  63 
A9  C9 
36  9D 
8C  E8 
C7  A6 
73  D4 
00  62 
C9  22 
99  E3 
A9  21 
A5  AE 
F0  F7 
4  3  AE 
50  A2 
C3  5D 
F9  AD 
F2  CA 
F9  2B 
0D  DE 
20  23 
00  59 
2G  E2 

09  35 
8A  0B 
4G  F9 

02  60 
IB  EA 
02  E6 
C6  72 
85  B8 
CI  ED 
00  81 
69  AA 
85  BA 
02  DA 
C8  82 
00  10 


Memo  Diary 

Article  on  page  37. 

CE  90  F=  (1=1) 

QM  100  GOSUB  2250 

RG  110  DATA  JAN, FEB, MAR, APR, MA 

Y,JUN 
DR    120    DATA   JUL,,  AUG,  SEP,  OCT,  NO 

V.DEC 
CB    130    DATA    SUNDAY, MONDAY, TUES 

'     DAY, WEDNESDAY 
ES    140    DATA   THURSDAY, FRIDAY, SA 

TURDAY 
CF    150    DIM   M?(12),W$(6) ,L5(]O0 

) 
BK    160    FOR    J=l    TO    12 
AC    170    READ   M5 (J> 
KC    180    NEXT   J 
GE    190   FOR   J=0    TO   6 
BJ    200    READ   WS(J) 
JD    210    NEXT   J 

DB    220    PRINT    "EVENT   CALENDAR" 
SA    230    IF    F=0    THEN    260 
JH    240    C=l 
PD    250    GOSUB    3010 
JC    255    IF    E=0    THEN    260 
Ql    256    F=0 

DH    260    PRINT    "TODAY'S    DATE:" 
FF    270   Y8-Y9 
PM    280    GOSUB    1670 
DC    290   M8=M 
GQ    300    D8=D 

PJ    310    IF   M8>=M9   THEN    330 
JX    320   Y8=Y9+1 
AJ   330    IF   M80M9  OR   D8>-=D9  THE 

N    350 
QA    340   YB^'Yg+l 
JS    350    IF    Y8<-Y9   THEN    3  70 


HP 

360 

PRINT  "HAPPY  NEW  YEAR" 

RM 

370 

IF  F  THEN  400 

PA 

380 

PRINT  "YEAR"; 

JK 

390 

INPUT  Y8 

KD 

400 

D9?=RIGHT$ (STR5 (100+M9 ) 
,2)+"/" 

JC 

410 

D95=D9S+RIGHT5 (STR$ ( 100 
+D9),2) 

PA 

420 

IF  F  THEN  440 

FA 

430 

D9S=D8S 

DM 

443 

F=(l=l) 

FG 

450 

GOSUB  1960 

CR 

460 

PRINT  "PAST  EVENTS:  "; 

FJ 

470 

IF  L0>=0  THEN  500 

DB 

480 

PRINT  "NONE" 

MF 

490 

GOTO  6  50 

KA 

500 

PRINT  L0+1 

EC 

510 

GOSUB  4010 

SK 

520 

F9=-l 

RA 

530 

FOR  J=0  TO  L0 

BE 

540 

IF  MIDS(L5(J),6,  1)  =  "/" 
tSPACEjTHEN  570 

QF 

550 

L5(L9)=L5(J) 

PG 

560 

L9=L9+1 

GM 

570 

NEXT  J 

SD 

580 

L8=L0+1 

XX 

590 

FOR  J-LB  TO  L9-1 

CS 

600 

L5(J-L8)=L5(J) 

PQ 

610 

NEXT  J 

AD 

620 

L9=L9-L8 

AM 

630 

L8=0 

XG 

640 

L=L9 

EC 

650 

F=0 

BP 

660 

F9=0 

QA 

670 

D95='D8? 

FR 

680 

L=L9-La 

JQ 

690 

IF  L<>0  THEN  710 

HC 

700 

PRINT  "NO  FUTURE  EVENTS 

QA    710    IF    L=0    THEN    730 

PE    720    PRINT   Lf"    FUTURE   EVENTS 


SEE    FUTURE   EV 


EF 

730 

PRINT 

FQ 

740 

PRINT 
ENTS" 

"1 

RB 

750 

PRINT 

"2 

PS 

760 

PRINT 

"3 

RH 

770 

PRINT 
ENT" 

"4 

HX 

780 

PRINT 

"5 

QM 

790 

PRINT 

KF 

800 

PRINT 
1-5)"! 

hi 

MA 

810 

INPUT 

A 

ADD   NEW    EVENT 

CANCEL    EVEMT" 
SEARCH   FOR   EV 

OUIT" 

.YOUR   CHOICE    ( 


XP    820    PRINT 

SM    830   ON   A   GOTO    850, 940, ) 210, 

1450,) 570 
DP   840   GOTO   730 
SM    350    PRINT    "AHEAD   TO   DATE:" 
PS    860    GOSUB    1670 
PA    370    GOSUB    1960 
CG    880    IF   L0O-1    THEN    910 
XA    890    PRINT    "NO    EVENTS" 
XQ    900   GOTO    920 
BR    910    GOSUB    4010 
XK    920    PRINT   L9-L0-lr"    OTHER   F 

UTURE    EVENTS" 
OS    930    GOTO    730 
SR    940    PRINT    "ANNUAL  OR    ONE-TI 

ME    (A/0)" 
QJ    950    INPUT    PS 
CE    960    A=0 

MA   970    P$=LEFT5{P5, 1) 
QG    980    IF   pS="0"    THEN    1010 
OH    990   A=] 

HK    1000    IF    P5<>"A"    THEN    730 
PJ    1010    GOSUB    1670 
DP    1020    Y5="/"+RIGHT5(STR5(10) 

+Y8),2) 
AA    1030    IF    D8?<=D9S    THEN    1050 
DP    1040   Y$="/'"+RIGHT5(STRS(10O 
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RM  1050  IF  A<>1  THEH  1070 

FK  1060  YS="" 

QS  1070  GOSUB  1960 

JQ  1080  IF  L9-1 <L0+1  THEN  1120 

PC  1090  FOR  J=L9-]  TO  L0+)  STE 

P  -I 
XF  1100  LS(J+1  )=»L$(J) 
DB  3110  NEXT  J 
MQ  1120  PRINT  "DETAIL"; 
GF  1130  INPUT  LL? 
GK  1140  D85=D8S+Y5 
RJ  1150  DS5=D8?+"  " 
SK  1160  LS(L0+1)=D85+LL? 
CC  1170  L9=L9+1 
AF  1J.80  L»L9 
MC  1190  F9=-J 
JM  1200  GOTO  680 
CQ  1210  PRINT  "CHANGE  WHICH  DA 

TE:" 
BH  1220  GOSUB  1670 
MC  1230  L0=-1 
QP  1240  rOR  J=La  TO  L9-1 
ME  1250  IF  DeS<>LEFTS(LS(J) ,S> 

THEN  1300 
RJ  1260  L1=J 

BA  1270  IF  L0O-1  THEN  1290 
KK  12  80  L0=J 

KQ  1290  PRINT  J;":  ";L5(J) 
AR  1300  NEXT  J 
ED  13]  0  IF  L0O-1  THEN  1340 
BB  120  PRINT  "NO  EVENTS" 
FD  1330  GOTO  730 
QB  1340  PRINT 
CM  13S0  PRINT  "  DELETE  WHICH  E 

VENT  ABOVE"; 
EX  1360  INPUT  A 
HP  1370  IF  A<L0  OR  A>L1  THEN  7 

30 
CX  1380  FOR  J=A  TO  L9-1 
BH  1390  L?tJ}=L5(J+l) 
FD  1400  NEXT  J 
RD  1410  L9=L9-1 
FX  1420  F9=-J 

SC  1430  PRINT  "  ...  DELETED" 
KM  1440  GOTO  680 
DE  1450  PRINT  "SEARCH  FOR"; 
XH  1460  INPUT  PS 
DG  1470  P=LEN(P?) 
GP  1480  FOR  J=0  TO  L9-1 
GA  1490  A=7 

JS  1500  IF  MID5(L5(J),6, 1 )<>"/ 
"  THEN  1520 

DF  1510  A=10 

PH  1S2S  IF  A+P-1>LEN(LS{J))  OR 
P50MIDS(LS(J)  ,  A,P)  T 
HEN  1540 

SC  1530  PRINT  L?{J) 

DR  1540  NEXT  J 

KQ    1550    PRINT    "14    SPACES)END   O 
F   SEARCH" 

FA   1560   GOTO    730 

HM    3570    IF   F9<s-0   THEN    1590 

HB    1575    IF0THENCL0SE15 

FD    1580    END 

XK  1590  PRINT  "READY  TO  WRITE 
t SPACE} NEW  EVENTS  PILE 
(Y/N)" 

BX  1600  INPUT  PS 

DH  1610  IF  LEFT?{P$,1)="Y"  THE 
N  1630 

HK  1620  STOP 

GE  1630  D9$=D9S+"/" 

OK  1640  D95=D9S+RIGHT$(STR$(Y8 
+100), 2) 

FJ  1650  C=2 

MK  1660  GOTO  3010 

PQ  1670  M=0 

CP  1680  PRINT  "MONTH"? 

PM  1690  INPUT  MHS 

CA  1700  M='VAL(MMS) 

FG  1710  MM5=LEFTS(MH5+"XX",3) 


BP  1720 

PD  1730 

PB  1740 

AA  1750 

SB  1760 

MQ  1770 

RX  1780 

RR  1 790 

MX  1800 

CC  1810 

SR  1820 

DH  1830 

FG  1840 

BJ  .1  850 

BP  1860 

EF  1870 

QD  1880 

KX  1890 

HH  1900 

QH  19)0 

EJ  1920 

HK  ] 930 

FQ  1940 

RM  1950 

GD  1960 

DD  1970 

KC  1980 

KX  1990 

SP  2000 

OK  2010 

JA  2020 

MS  2030 

BK  2040 

XS  2050 

XC  2060 

EX  2070 

AJ  2080 

XD  2090 

AP  2100 

HB  2110 

KR  2120 

AB  2130 

SH  2140 

CB  2150 

GB  2160 

SJ  2170 

JH  2180 

JG  21  90 

JE  2200 

DH  22)0 

GM  2220 

AM  2230 

ER  2240 

EJ  2250 

SX  2260 

AC  3000 

ES  3010 

PM  3020 

EG  3030 


DF  3040 

FF  3050 

HB  3060 

BG  3070 

DR  3080 

XJ  3090 


FC  3100 


IF  M^0  THEN  1760 

IF  M<1  OR  M>12  THEN  16 

70 

PRINT  M5(M) 

GOTO  1810 

FOR  J=:  TO  12 

IF  MM$<>M5(J)  THEN  179 

0 

M=J 

NEXT  J 

IF  M<1  OR  M>12  THEN  16 

70 

PRINT  "DAY"; 

INPUT  D 

IF  D<1  OR  D>31  THEN  16 

70 

D85=RIGHT5CSTR$(100+M) 

,2)+"/" 

D8S=D85+RIGHTS (STR? (10 

0+D),2) 

Y=YS 

IF  D8S>D9S  THEN  1390 

Y=Y8+1 

GOSUB  2150 

IF  LEN(LLS)<=0  THEN  19 

20 

PRINT  "( ";W5(W) ; ") " 

RETURN 

C=l 

GOSUB  3010 

RETURN 

LL5=CHRS(255) 

L0=-1 

IF  L<>0  THEN  2000 

RETURN 

VS=D8S+LL5 

tm5=D95 

IF  FOB  THEN  2040 

WV$=D95+LLS 

Fl=tWWS>=V?) 

FOR  J=L8  to  L9-1 

F2=(LS(J)>WWS) 

F3=!VS>L5(J)} 

F0=F2  AND  F3 

IF  F1=0  THEN  2110 

F0=F2  OR  F3 

IF  F0=0  THEN  2130 

L0=J 

NEXT  J 

RETURN 

IF  Y>=85  THEN  2170 

Y=Y+100 

M]=M+1 

M2=INT(l/Ml+.7) 

M3=Y-M2 

M4=MH-12*M2 

N=INT(M4*30,6001)+INT( 

M3*365.25 )+D 

M6=INT(N/7) 

W=K-7*h6 

RETURN 

PRINT  CHRS{147)CHRS(S) 

RETURN 

REM  INPUT/OUTPUT  ROUT  I 

NE 

F 5= "EVENTS" 

PRINT"DISK  OR  CASSETTE 

{D/C}?" 
GETA5:IF( (AS<>"C")AND( 
AS<> "D" ) )ORAS=""THEN30 
30 

IFAS="D"THEN3060 
Dl=0:GSa""!GOTO3070 
F5  =  "@0!  '■  +  F¥!D1>=1 
IFC=2THEN31,60 
IFD1=1THENGS=",S,R" 
0PEN1,1+7«D1,8*D1,F$+G 
S:GOSUB3220:IFETHENCLO 
SE1:GOTO31S0 
INPUTil,LLS:IF    LEN(LL5 
)<^8    THEN    PRINT    LI,$f"7 
"sGOTO    3140 


XD    3110 


QE    3120 


ES  3130 

PH  3140 

MC  3150 

SB  3160 

RD  3170 


FB  3180 

GG  3190 

XA  3200 

SG  3210 

SR  3220 

AB  3230 

RM  3240 

SR  3250 

AQ  4000 

DX  4010 

GP  4020 


FX  4030 

ED  4040 
GF  4050 
JD  4060 
RP  4070 

MQ  4080 
GM  4090 
JG  4100 
JM  4110 

SF  412  0 

XD  4130 

PM  4140 

QC  4150 

CS  4160 
GK  4170 
QE  4180 


M=VAL(LEFTS<LLS<2) )tD= 

VAL(MIDS(LL?,4, 2)) iY0= 

VAL(MID5 (LLS, 7,2) ) 

M9=M : D9=D : Y9=Y0 : L=0 : PR 

INT  "LAST  ACCESS  1  " ;LL 

? 

INPUTIl , LS (L ) t  L-L+1 1  IF 

STa0  THEN  3130 
CLOSE] : GOSUB 3220 
L8»=0:L9  =  L:  RETURN 
IFD1=1THENG?=",S,W" 
OPENl,l+7*Dl,l+7*Dl,F5 
+GS:GOSUB3220: IFETHENC 
L0SE1:CL0SE15:END 
PRINTI1,D9S;CHRS(13) J 
FORJ=0TOL9-1 tPRINTtl.L 
S(J);CHRS(13); iNEXTJ 
GOSUB3 220: CLOSE  1: GOSUB 
32  20! IPOTHENCLOSEJ  5 
END 

IFD] =0THENRETURN 
IFO=0THENOPEN15,8,15:O 
=1 

INPUT#15, E, B?i IFETHENP 
RINTBS:CLOSE15!O=0 
RETURN 

REM  PRINT  ROUTINE 
DS=""!P=3 

INPUT  "WANT  EVENTS  ON 
{SPACE} PRINTER  {Y/N)"; 
PS 

IF  LEFTS(PS,1)<> "y"  TH 
EN  4050 
P=4 

OPEN    3,P 
FOR   J-LB   TO   L0 
IF    DS=LEFT5(LS(J),5)    T 
HEN    4150 

DS=LEFTS(L?(J),5) 
M=VAL(LEFTS(DS,2) ) 
D=VAL{MID?{D5,4, 2)} 
Y=Y8;IF   D?<=D9S    THEN   Y 
=Y8+1 

GOSUB    2150 
PRINT»3,WS{W) r  "    "; 
PRINTI3,M5(M) ;D 
PRINT#3,"13    SPACESr'fM 
IDS(L${J),6) 
NEXT    J 
CLOSE    3 
RETURN 


BEFORE  TYPING  .  .  , 

Before  typing  in  programs,  please 
refer  to  "How  to  Type  In 
COMPUTEi's  GAZETTE  Programs," 
elsewhere  in  this  issue. 


Solarpix 

Article  on  page  21. 

XA    10    POKE56, ]32!CLR 

FG    20   POKE792,193:POKE64e,  ] 32 

RC    30   POKE56576, (PEEK(56576)AN 

D2  52)OR] 
XR   40   POKE53  280,3:POKE5328] , 3j 

DIMS(255),C(2S5),MS(9,17 

) 
PA    S0    BP=34a0Q:V=53248!LC-4915 

2:EY=19Q4.B2 
CB    60    PP  =  2'UP$ia)="hC"  ■,P9ll}  = 

"DE":SA=)  .1 
RA    70    PRINT" tCLRllB    DOWNjlBLUj 

"SPCO 4) "PLEASE    WAIT" 
CB    80    SPS=CHRS(32):XS=SP5+"Z=E 

XI T" 
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KC    90    RE5=CHRStl8):BX?=CHRS(]4 

6) 
XQ    100    T5(] )=RE5+"SUN    &    PLANET 

S"+RX5 
FF    1)0   T$(2)=RE5+ "SUN, EARTH    & 

[SPACEJM00N"+RX5 
RD    120    T9{ 3 )=RE5+ "COMETS "+RX5 
PQ    130    T5(4)=RES+"FACTS"+RX? 
SH    140    FORJ=49152TO49240!READK 

sPOKEJ.KtNEXT 
AF    150    FORJ=3  4816T035199tREADK 

:POKEJ,K:NEXT 
KK    160    FORJ=3  55  20TO35775;POKEJ 

<0!NEXT 
PX    170    FORL=1TO10:READJ,K:POKE 

3S584+J,K:NEXT 
SJ    ]80    FORJ=0TO7;READK:POK£BP+ 

J,  K: NEXT 
BH    190    FORJ=0TO7:READH(J)lNEXT 
BC    200    FORJ30TO10:READF?(J),US 

(J) 
HO   210   L=0!H=10!lFJ>4THENL=l:H 

=9 
EB    220    FORK=LT0H ! READZ ( K , J ) t NE 

XT: NEXT 
DQ    230    FORJ=1T09jD(J)=Z(J,5} 
BB    240   P(J)=Z(J,6) iNEXT 
XE    250    FORJ=0TO10iREADN?(J) 
DG    260    IFJ<4ORJ=10THEN280 
HF    270    FORK=1TOZ(J,10)5READM?{ 

J,K):£JEXT 
CE    280    NEXT:F0RJ=1T09:READR:R( 

J)=R/360:NEXT 
SJ   290    FORN-0TO2S5:M=N*2*_£/256 
RJ    300    S(N)=SIN(M) :C(N)=COSC«) 

I  NEXT 
RR   310   FORJ=32T036!K=74-J 
BA    320    POKE251, J:POKE252,2!POK 

E253,K 
AK    330    POKE254,2sSyS49175:NEXT 
MF    340   FORJ=0TO7:POKEV+39+J,H( 

J):NEXT 
BH    350    POKEV+23,0:POKEV+29,0iP 

OKEV+16,128 
QQ    360    GOSUB550:POK£V+39,7:POK 

EV+40,3 
HK    370    POKEV+32, 3JPOKEV+33,  3!P 

OKE646,6 
EG    380    PRINT"lCLRj" :SYSLC,4,  14 
KQ    390    PRINT"SOLARPIX": PRINT: P 

RINT 
KC    400    F0RJ=lT04;PRINTTAB(8)Jr 

TS(J)tPRINT 
GD    410    NEXT!PRINTTAB(9)"0   QUIT 

DR    420   GOSUB470IONKGOTO630, 101 

0, 1280, 1460 
MB    430    IFK5<>"Q"THEK420 
MM    440    POKE5657e, PEEK{ 56576 )0R 

3 
MG   450    POKE648,4!POKE792,71:GO 

SUB550 
KE   460   PRINT" ICLR) "1POKE56, 160 

iCLRjEND 
GE    470    POKE 198,0 
RR   480    GETKSi  IFK5'=""THEN460 
HF    490    K=VAL(K5) ; RETURN 
BM    500   SYSLC,I8,31tPRINT"G=GO" 
BC    510    PRINTTAB(31)"S=ST0P" 
PH    520    PRINTTAB(31) "+=FASTER" 
ME    530    PRINTTAB(31)"-=SL0WER" 
RS    540    PRINTTAB( 30 )X?: RETURN 
PX    550    POKEV+2I,0!FORJ=0TO15 
JK    560    POKEV+J,0! NEXT: RETURN 
DH    570    SYSLC, 23,  30:PRINTX$ 
GA    580    SYSLC,2,0:RETURN 
FR    590    GETKS:IFKS="S"THENFL=1 
PH    600    IFK?="G"THENFL=0 
QJ    610    IFK?="-"THENM=M/2 
XR    620    RETURN 
JA    630    POKEV+32, 11: POKEV+3 3, 01 

POKE646,7 


KR  640  GOSUB550 ; PRINT" {CLRJ "T9 

(1):GOSUB570 
HG  650  PRINT" I73PLEASE  SELECT 
[SPACE]  PLANETS  (MAX5)'" 
FF  660  PRINT : FOR J=1T09: PRINT J ; 

N5{J)iNEXT 
DG  670  PRINT: PR I NT "INNER  PLANE 

T7"; 
CX  680  GOSUB470iIFK5»''Z"THEN36 

0 
QF  690  L=.K!lFL<lTHEN6a0 
EG  700  PRINTN5(L):PRINT"0UTER 

[SPACE)PLANET?"; 
RK  710  GOSUB470!lFK53"z"THEN36 

0 
DB  720  H=KtIFH<L0RH>9ORH-L>4TH 

EN  710 
FR  730  PRINTN5{H)! PRINT :X=1 
MH  740  F0RJ=1T0H-L+) :X=X+2rJ:N 

EXT 
MK  750  FORJ=LTOH!F(J)=D(J)*90/ 

DtH) 
RR  760  E(J)=F(J}*SA:NEXT:M=P{L 

)/50:ML=M*9 
SR    770    INPUT "STARTING    YEAR    (1- 

2000) ";K5 
FC    780    SY=VAL{K9):IFSY<10RSY>2 

000THEN630 
DJ    790    PRINT"lCLR)  lYEL)"T5(n: 

K=l 
AF    800    FORJ=LTOHiPOKE646,!i(K) 
RF    810    PRINTTABt31 )N5(J):K=K+1 

:NEXT 
DJ   820    POKE646,14!GOSUB500:SyS 

LC,7,31 
AX   830    PRINT"EARTH" iPRIKTTAB(3 

1) "YEAR" 
PE    840    E=.25!T=SY-EY!FL=1 
RS    350    POKEV,130:POKEV+1,148jP 

0KEV+21,X 
BH    860   FORJ=LT0H!A=T/P(J)+R(J) 
BD   870   A=INT((A-INT(A))*256):I 

FJ=9THENS90 
AD   880    X(J)=C(A):Y(J)=-S(A):GO 

TO  91 0 
MB    890    Z=1+E*C<A};X(J)=E+(E+C( 

A))/Z 
FK    900    Y(J)=(E*E-1 )*S(A)/Z 
XE    910   X{J)=INT(131+X(J)*E(J) ) 
MQ   920   Y(J>=INT(J49+Y(J)*F(J)) 

:NEXT 
JC    930   K=l :F0RJ-LTOH:POKEV+2*K 

,X(J) 
ER    940    P0KEV+2*K+1, Y(J)!K=K+lt 

NEXT 
JB    950    T$=STRS(INT((T+Ey)*10)/ 

10) 
BA    960    SYSLC, 9,30iPRINTTSSP?SP 

5 
CP   970    GOSUB590!lFK$="Z"THEN63 

0 
QJ    980    IFFLTHEN970 
HK    990    IFK5="+"ANDM<MLTHENM=M* 

2 
RJ   1000   T=T+MiGOTO860 
BQ   1010    POKEV+32, 14: POKEV+33,0 

:POKE646,  14 
SH    1020    PRINT"lCLR)"T?(2) iPRIK 

TTAB(31)"M0ON" 
AQ    1030    PRIKTTAB(31) "PHASE" :G0 

SUB 500 
BR    1040    SYSLC, 24, ltPRINT"(EART 
H-MOON    DISTANCE    MAGNIF 
lED   BY    30)"; 
CP    1050   SYSLC, 7,31iPRINT"EARTH 

It 

EQ    1060    PRINTTAB(31)"DAY" 

GP    1070   E=84jD=E*SA:F=D*30/390 

:G=F/SA 
BF    1080    M=0.3/36S.25:T=0:H=13, 

3685 


EB    1090    POKEV+39, i4:POKEV+40,  1 

2 
SF    1100    POKEV+12, 14itPOKEV+13, 

147 
HS    1110   POKEV+14,24!P0KEV+] 5,8 

0 
PS    1120   POKEV+2) , 195tFL=l 
DG    1130   A=T-1NT(T):B-T*H!B=B-I 

NT(B) 
CO    1]40    C=INT(12*(B-A)+. 5-7) 
RX    1150    IFC<0THENC=C+12!GOTO11 

50 
DG    1160    A=A*PP:B=B*PP 
XB    1170   X=INT(142.5+COS(A)*D) 
RH    1180   Y=INT(]48. 5-SIN(A)*E) 
KJ    1190   W=INT(X+1+C0S(B)*F) 
GA    1200    Z=INT(Y+1-SIN(B)*G) 
HD    1210    P0KEV,X!P0KEV+1, YiPOKE 

V+2,W 
EP    1220    POKEV+3, ZsPOKEBP+7, 32+ 

C 
JR    1230    SYSLC, 9,30:PRINTINT(T* 

365.25) 
GR    1240    GOSUB590! IFK?="Z"THEN3 

60 
QX    1250    IFFLTHENJ240 
PB    1260    IFK9-"+"RNDM< .006THENM 

=M*2 
GJ    12  70   T=T+M:GOTO1130 
GD    12  80    POKEV+3  2, 5: POKEV+33,0: 

POKE646, 5 
CR    1290    GOSUB550 : PRINT" lCLR)"R 

EST? (3) :GOSUB570 
SB    1300    INPUT" ECCENTRICITYt0-0 

.96) "jKS 
HJ    13J0    E=VAL(K5):IFK5="Z"THEN 

3  60 
KB  J  320  IFE<0ORE>.96ORLEN{K?)  = 

0THEN1280 
BE  1330  FL=J  :IFRIGHT$(K?, 1)="R 

"THENFL=-] 
BS  1340  PRINT" [CLR] "RE$T5(3):G 

OSUB570 
FF  1350  PRINT"ECCENTRICITY="E: 

SYSLC, 2,27 
JS  1360  IFETHENPRINT"ACCELERAT 

ING" 
HC  1370  M=0,01iT=0iF=6S*SA!G=6 

5*FL 
QK    1380    POKEV, 106:POKEV+] , 148: 

POKEV+2 J, 3 
MG    1390   A=<T-INT(T))*PP:Z=J+E* 

COS(A) 
RC     )400    X=E+(E+COS(A))/Z:Y=(E* 

E-1)*SIN(A}/Z 
AG    )410    X=INTO07+X*F)  iY=INT(l 

49+Y*G) 
FD  1420  J=INT(A/X) J POKEV+2, XiP 

OKEV+3,y 
JQ  1430  IFE>0.1THENSYSLC,2, 27: 

PRINTP5(j) 
FX  )440  GETK9:IFK5='"Z"THEN1280 

XO    1450   T=T+M:GOTO1390 
XA    )460    POKEV+32, 3 : POKEV+3 3,  6 1 

POKE646,3 
CD    1470    PRINT" lCLR)"RE5T?(4)" 

{SPACE}MENU":SYSLC, 4,0 
MS    1480    GOSUB570! SYSLC, 4,0 
JK    1490    PRINT"    S    SUN": PRINT"    M 

MOON" 
SJ    1500    FOR J=1T09 SPRINT J; NS(J} 

iNEXT 
PS    1510    SYSLC, 4,0: FOR J=0TO10 
BC    1520    PRINTTAB{20)CHRS (J+65) 

"     "FS(J):NEXT 
CR    1530    GOSUB470: IFK$="Z"THEN3 

60 
QD    1540    IFK?="S"THENK=0;GOTO15 

90 
GE    1550    IFK$="M"THEHK=10!GOTO1 

590 
EM    1560    IFK>0ANDK<J.0THEN1590 
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RS    15  70   K=ASC(K5)-6  5!lFK<0ORK> 

J0THENJ530 
RG    1580   GOTOJ.720 
FM    1590    POKEV+32, 3iPOKEV+33, U 

:POKE646,3 
QG    1600    PRINT"  [CLR} '■RE?N?(K)RX 

5; 

AG    1610    H=4: IFK=0ORK=10THENPRI 

NT: GOTO) 630 
SB    1620   H=J0! PRINT"    PLANET    i"K 

"FROM   SUN" 
PE    1630    PRINT! FOR J=0TOH 
HJ    1640    PRINTF5(J}TAB(18)Z(K,  J 

)TA[3(28JU?(J) 
GR    1650   NEXT:IFK<10THEN16  80 
FS    1660    PRINT"DIST.FROM    EARTH" 

TAB(19) "2  43000   MILES" 
DH    1670    PRINTF5(9)TAB(19)"6    MO 

NTHS" 
SE    1680    PRINT: IFK<4ORK=10THEN) 

770 
CQ    1690    FORJ=1TOZ(K,10)!C=INT( 

(J-))/7) 
PE    1700    L=13+J-C*7:SYSLC,L,C*1 

3 
BD    17)0    PRINTM$(K, J):NEXTiGOT0 

1770 
MR    1720    POKEV+32, 3 tPOKEV +33,  n 

!POKE646,3 
BK    1730    PRINT" ICLR}"RE5FS(K>RX 

5TAB(19)U$(K} 
CP    1740    L=0:H=10:IFK>4THENL=1: 

H=9 
AR    1750    SYSLC, 5,0!FORJ=LTOH 
KD    1760    PRINTN5(J}TAB(18)Z(J,!< 

) iNEXT 
RO    ] 770   GOS UB 570 tGOSUB470i GOTO 

1460 
XJ    1780    DATA    32,13,192,132,251 

,32,13 
HG    1790    DATA    192,166,251,76,24 

0,255,32 
EM    JB00    DATA    253,174,32,156,17 

3,32,1  70 
AH    1810   DATA    177,96,162,6,6,25 

1,33 
BA    1820    DATA    2  52,6,253,38,254, 

202,208 
MH    1830    DATA    245,169,21,133,2, 

160,2 
CC    1840    DATA    177,251,162,8,106 

, 38,255 
ME    1850    DATA    202,208,250,192,1 

240   4 
QX    1860    data' : 52, 73, 2, 166, 165, 

255,145 
PK   1870   DATA    253,192,1,240,4,1 

52,73 
PH    1880    DATA    2,168,136,16,223, 

162,3 
OR    1890    DATA    230,251,230,253,2 

02,208,249 
KS    1900    DATA    198,2,208,208,96 
KS    1910    DATA    0,15,0,0,0,192,0, 

0,48 
JG    1920   DATA    0,0,56,0,0,28,0,0 

,28 
FP    1930    DATA    0,0,14,0,0,14,0,0 

,7 
GC    1940    DATA    0,0,7,0,0,7,0,0,7 
GF    1950    DATA    0,0,7,0,0,14,0,0, 

14 
GR    1960    DATA    0,0,28,0,0,28,0,0 

,56 
JX    1970    DATA    0,0,48,0,0,192,0, 

15,0,0 
QM    1980    DATA   0,15,0,0,7,192,0, 

3,240 
GR    1990    DATA    0,1,248,0,1,252,0 

,1,252 
ER    2000    DATA    0,0,254,0,0,254,0 
,0,255 
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BJ  2010  DATA  0,0,255,0,0,255,0 

,0,255 
MR  2020  DATA  0,0,255,0,0,254,0 

,0,254 
SG  2030  DATA  0,1,252,0,1,252,0 

, 1,248 
KH    2040   DATA    0,3,240,0,7,192,0 

,15,0,0 
HH    2050    DATA    0,15,0,0,15,192,0 

,15,240 
RQ    2060    DATA    0,15,248,0,15,252 

,0,15,252 
GF    2070   DATA    0,15,254,0,15,254 

,0,15,255 
QB    2080    DATA    0,15,255,0,15,255 

,0,15,255 
SE    2090    DATA    0,15,255,0,13,254 

,0,15,254 
EF    2100    DATA    0,15,252,0,15,252 

,0,15,248 
SJ    2110    DATA    0,15,240,0,15,192 

,0,15,0,0 
BE    2120    DATA    0,15,0,0,31,192,0 

,63,240 
SX   2130   DATA   0,127,248,0,127,2 

52,0,127,252 
MX    2140    DATA    0,255,254,0,256,2 

54,0,255, 255 
DD   2150   DATA   0,255,255,0,255,2 

55,0,255,255 
QX    2160    DATA    0,255,255,0,255,2 

54   0   255, 2  54 
FK    2170    data' 0, 12  7,252,0, 12  7,2 

52,0,127,248 
XD    2180    DATA    0,63,240,0,31,192 

,0,15,0,0 
FR   2190   DATA    0,31,0,0,255,192, 

3,255,240 
HA    2200    DATA    3,255,248,7,255,2 

52,7, 255,252 
HP    2210    DATA    15,255,254,15,255 

,254,31,255,255 
RP    2220    DATA    31,255,255,31,255 

,255,31,255,255 
HS    2230   DATA    31,235,255,15,255 

,254, 15,255,254 
XE    2240    DATA    7,255,232,7,255,2 

52, 3, 255,248 
CA   2250   DATA    3,255,240,0,255,1 

92,0,31,0,0 
KQ    2260    DATA    0,255,0,3,255,192 

3  5    25  5    240 
PB    2270    DATA    31 ! 255 , 248, 63, 255 

,252,63,255,252 
XR    2280    DATA    127,255,254,127,2 

55,254,255,255,255 
AF    2290    DATA    255,255,255,255,2 

55,255,253,255,255 
CB    2300   DATA    255,255,255,127,2 

55,254,127,255,254 
DG    2310    DATA    63,255,252,63,255 

,252, 31,255,248 
RR    2320   DATA    15,255,240,3,255, 

192,0,255,0,0 
CK   2330   DATA   0,112,3,248,6,248 

,9,248,12,112 
BR   2340   DATA   64,192,67,192 
BR   2350    DATA    128,224,131,224,1 

34,224 
SE    2360   DATA   46,45,45,45,45,45 

,44,37 
FR    2370    DATA    7,3,4,14,8,6,7,12 
AK    2380    DATA    DIAMETER, MILES 
FEl    2390    DATA    864000,3100,7700, 

7926 
RC    2400   DATA   4200,88000,71000, 

32000 
GA    2410   DATA    31000,1500,2160 
GJ    2420    DATA   MASS, IEARTH=1 ) 
MK    2430    DATA    332830,0.055,0.81 

5,1 
HF    2440    DATA    0.107,318,95.2,14 

.6 


CM    2450    DATA    17.2,0.01,0.012 
SA    2460    DATA    DENSITY, ( WATER^l } 
SD   2470   DATA    1.4,3.4,5.2,5.3,3 

.9,1.3 
BD    2480    DATA    0.7,1.2,1.7,1.4,3 

.4 
EE    2490    DATA    ROTATION    PERIOD, E 

ARTHDAYS 
QS    2500    DATA    25,58.9,24  3,1,1.0 

3,0.404 
MJ    2510    DATA   0.444,0.72,0.77,6 

.39,27.3 
KK  2520  DATA  TEMPERATURE, FAHRE 

NHEIT 
AJ  2530  DATA  10000,620,900,72, 

-10,-240 
BM  2540  DATA  -300,-340,-370,-4 

00, -10 
FE    2550    DATA    DISTANCE   FROM    SUN 

, MILL. MILES 
SP   2560   DATA    36,67.2,92.9,142, 

483 
DK    2570    DATA    887,1783,2795,367 

0 
GK    2580    DATA    LENGTH   OF    YEAR, EA 

RTH YEARS 
EX   2590    DATA    0.241,0,615,1,1.8 

8,11.86 
PR    2600    DATA    29.46,84,164,248 
BK    2610    DATA   ORBIT   SPEED, MPH 
XJ    2620    DATA    107000,78000,6600 

0,54000 
QD    2630    DATA    29000,22000,15000 

, 12000, 10000 
XG    2640    DATA   AXIS    TILT, DEGREES 
AJ    2650    DATA    0,179,23.5,25,3.1 
FD    2660   DATA    26.7,97.9,28.8,0 
Xa    2670    DATA    DRIVETIME(5  5MPH), 

YEARS 
JA    2680    DATA    75,139,193,295,10 

02 
MM    2690    DATA    1840,3698,5797,76 

12 
RS    2700    DATA    MOONS, - 
CE    2710   DATA   0,0,1,2,16,17,15, 

3,1 
XC    2720    DATA    SUN, MERCURY, VENUS 

, EARTH, MARS, PHOBOS,  DEI 

MOS 
DH    2730    DATA    JUPITER, METIS, ADR 

ASTREA,AMALTHEA,THEBE, 

10, EUROPA, GANYMEDE, CAL 

LISTO 
JB    2740    DATA    LEDA, HIMALIA, LYSI 

THEA, ELARA, ANANKE, CARM 

E, PASIPHAE,SINOPE 
FR    2750    DATA    SATURN, ATLAS, X, X, 

JANUS, EPIMETHEUS , MIMAS 
, ENCELADUS, TETHYS, TELE 
STO 
MA    2760    DATA    CALYPSO, DIONE, X, K 
HEA, TITAN, HYPERION, lAP 
ETUS, PHOEBE 
SF    2770    DATA    URANUS, MIRANDA, AR 
lEL, UMBRIEL, TITANIA, OB 
ERON,X,X,X,X,X,X,X,X,X 
,X 
JK    2  780    DATA    NEPTUNE, TRITON, NE 
RE ID, X, PLUTO, CHARON, MO 
ON 
EH    2790    DATA    198,255,351,285,2 
49,180,204,227,173 


BEFORE  TYPING  .  .  . 

Before  typing  in  programs,  please 
refer  to  "How  to  Type  In 
COMPUTE!'?  GAZETTE  Programs," 
elsewhere  in  this  issue. 


Math  Dungeon 

Article  on  page  22. 

m    ))0    DIM   CMS(22),CM(22),IN5( 

5},IN(5),OB5(13),OB(13) 

,DS$(4O),FL(]0,10) 
KM    120   SYS65517:CC  =  PEEK(78I  ) 
EQ    130    IFCG=40THENPOKES3281, 1 
FC    150    GOSUB    700:GOSUB1620 
SK    155    PRINT'MCLR)  " 
KS    160   GOSUB790!CM(2)=1 !CM(5 )= 

1 :F0RI=14TO] 9:CM(I )=1 :N 

EXTsOBU  }  =  1 
XK  170  PR^-'DSSd  hGOSUB2S70:IF 

GTTHENPR5=DSS(2 )!G0SUa2 

5  70 
GR  130  IFGT-0THENPR9-DS5(3) tGO 

SUB2570 
KA  190  GOSUB2310:IFPL=2ORPL=5T 

HENGOSU3800: GOTOl 90 
XS  200  IFPL=16ANDGT=0THENPR5=D 

S5{3)!GOSUB2570:GOTO190 
SM  210  IFPL=16THEK280 
SD  220  IFPL>16THENGOTO2S0 
DC  230  GOTOl 70 
QC  240  PRINT"lCLR} ":PR$=DSS(4) 

JGOSUB2570 
PS  250  GOSUB790!FOR1=14TO19;CM 

(I J=l!NEXT:GOSUB2310:lF 

PL=16THEN280 
EE  260  IFPL=1STHENPR?=DS5(4):G 

OSUB2570 
RF  270  GOTO250 
KA  280  GOSUB790 : PRINT" ICLR} "iC 

M(l}=liCM(3)=ltCM(6)=li 

F0RI-14T019sCM( I )=1 :NEX 

T 
MK  290  CM(4)=1 
RC  300  PR$=DS$(5);GOSUB2570:IF 

MB''0THENPRS='DS5(6}!GOSU 

B2570 
CE  310  IFMBTHENPR5=DS$(7);CM{7 

)=1 :GOSUB2570i IFNT=1THE 

NPR5=DS? (11 )! GOSUB  2570 
FF  320  IFFD=0THENPR5=DSS(8):NT 

=l!GOSUB2570 
FG  330  IFFDTHENPR5=DS? {9}:NT=0 

:GOSUB2570 
BG  340  GOSUB2310:IFPL=15THEN30 

0 
KE  350  IF(PL=18)OR(PL=19)THENG 

OTO300 
GM  360  IFPL=17THENGOTO160 
MS  370  IF(PL-16)AND(FD=0)THEN3 

20 
XE  380  IFPL»16ANDFD»0THEN320 
QB  390  IFPL=16THEN450 
PK  400  IFPL=lTHENPR$=DS?(ia)iG 

OSUB2570 
SX  410  IF(PL=3)OR(PL"6  )THENGOS 

UB900;GOTO340 
BX  4J.5  IFPL=7ANDNT=0THENPRINT" 

I  SEE  NO  NOTE  HERE1"!G0 

TO340 
DJ  420  IFPLO7THEN340 
SH  430  PR5= "THERE  IS  A  QUESTIO 

N  ON  THE  NQTE.":G0SUB25 

70 
HS  435  GOSUB1320:IFWR=1THENGOT 

0160 
GA  440  PRS=DS?(12)jGOSUB2570tP 

R5-DS$  (13  )  iGOStlQ2  570iPD 

=liMB=0:GOTO340 
CG  450  GOSUB790: PRINT" [CLR) 

{7  D0V7N}"; 
Efl  470  PR5="A  TRAP  DOOR  OPENS 

{SPACE] BENEATH  YOUR  FEE 

T  AND  YOU  BEGIN  SLIDING 
DOWN  A  " 
BG  480  PRS-PRS+"CHUTE.  YOU  PAS 


S  A  NEON  SIGN  THAT  SAYS 
i"!GOSUB25 701  PRINT 
BC  490  IFCC=40THENS05 
JA  500  PRINT" [4  SPACES] 'MATH  D 

UNGEON" ": PRINTS  PRINT" 

{6  SPACES) 'LEVEL  "+STR5 

(LV)+ 

PRINT: PRINT: GOTO  510 

PRINT" [D  SPACES) 'MATH 

(SPACE) DUNGEON' " 

PRINTt PRINT" [13  SPACES) 

'LEVEL  "+STRS(LV)+ 

PR?= "PRESS  ANY  KEY  TO  C 

ONTINUE" ! GOSUB2570 : PRIN 

T: PRINT 

GETAS : IFAS- " "THEN  520 

LT=liPX=INT(RND(l )*10)+ 

1 : PY=INT (RND ( 1 ) *10 ) +1 iF 

L(PY, PX>a2 

GOSUBTgejCMOJ^liFORl-l 

2T019!CM(I)=«1:NEXT!CM(9 

)»LT:CM{22 )=1 

IFFL(PY,PX)=2THENPRINT" 

{CLR) " : PRS=DSS (14 ) : GOSU 

B2570 

IFFL(PY,PX)=1THENPRINT" 

{CLR)":PR$=DS5(15)iGOSU 

B2570 

IFLT=1THENPR5=DS? ( 16 ) ! G 

OSUB2570 

GOSUB2310 

IFPL=9THEKGOSUB9S0:GOTO 

580 

IFPL=12THENGOSUB970 ! GOT 

0580 

IFPL=13THENGOSUB1O00!GO 

TO580 

IFPL=15ANDLO~0THEN550 

IFPL»15ANDL0=1THENG0SUB 

102O!GOTO570 
IFPL=14THEN580 

IFPL=22THENGOSUB2470:GO 

TO  6  70 

IF  PL  > 1 5THENG0SUB 1 560 : IF 

(LO=0)OR{WA=1 )THEN580 

ONZGOSUB1B60, ) B60, 2000 

GOTO670 

END 

PRINT" [CLR) {9  DOWN)"; IF 

CC=40THENPRINTTAB(10);  j 

GOTO720 

PRINTTABd  )  ! 

PRINT" [4  SPACESjMATH  DU 

NGE0N{3  SPACES]": PRINT" 

(DOHN) " : IFCC=40THENPRIN 

TTAB(1.2)  r  I  GOTO  7  40 
JQ  730  PRI[]TTAB(3  }; 
PF  740  PRINT"A  MATH  ADVENTURE" 
MM  750  PRINT" [HOME) [21  DOWN}": 

IFCC=40THEN75  5 
GC  751  PRINT" [3  SPACES} ENTER  D 

ESIRED(10  SPACES }LEVEL( 

1-5  )";  !GOTO760 
MS  755  PRINT" {3  SPACES) ENTER  D 

ESI RED  LEVEL (1-5)"; 
PQ  760  INPUTLV; IFLV<10RLV>5THE 

NGOTO750 
EJ  770  F0RI=1T022:READCM?(I):N 

EXT:FORI»1T0  5:READINS(I 

) :NEXT 
AA  780  F0RI=1T029:READD3?(I):N 

EXT: RETURN 
DA  790  PORI=1TO22jCM(I)=0:NEXT 

IiIFIN(5  )  =  1THENCM(20)  =  J. 

; RETURN 
ER  800  IFPL=2ANDGT-)THENPR$="T 

HE    GATE    IS    ALREADY   OPEN 

."IGOSUB2570 
MG    810    IFPL=2ANDGT=0THENGT=1;P 

RINT"OK. " 
DA    820    IFPL-5AHDGT-0THENPR?-"T 

HE    GATE    IS    ALREADY   CLOS 

ED."!GOSUB2570 


MH 

501 

FF 

505 

JH 

506 

KC 

510 

SO 

520 

CA 

530 

XR 

540 

KX 

550 

MK 

560 

XX 

570 

EJ 

580 

EK 

590 

JG 

600 

GR 

610 

EA 

620 

JB 

630 

FQ 

60 

HA 

650 

MD 

660 

HG 

670 

FD 

690 

EB 

690 

HX 

7(30 

MP 

710 

MM 

720 

BF  330  IPPL=5ANDGT=lTHEHGT-0iP 

RINT"OK." 
CM  340  RETURN 

CA  850  IFPL=1ANDFD=ITHENPRS="T 
HE  DOOR  IS  ALREADY  OPEN 
."  !GOSUB2570 
KD  860  IFPL=1ANDFD»0THEHFD=1:P 

RINT".OK." 
XM  870  IFPL=4ANDFD-0THENPRS="T 
HE  DOOR  IS  ALREADY  CLOS 
ED.":GOSUB2570 
QG  880  IFPL=4ANDFD=1THENFD=0:P 

RINT"OK." 
SX  890  RETURN 

KG  900  IFPL=3ANDMB=1THENPR5="T 
HE  MILKBOX  IS  ALREADY  0 
PEN." !GOSUB2570 
PM  910  IFPL=3ANDMB-0THENMB-liP 

RIHT"OK. " !CM(7)=1 

KS    920    1FPL=6ANDMB=0THENPR5«"T 

HE   MILKBOX    IS    ALREADY   C 

LOSED.":GOSOB2570 

PM    930    IFPL=6ANDMB=1THENMB=0:P 

RINT"0K.":CM(7 )=0 
GA    940    RETURN 

KH  950  IFINd  )  =  1THENPR$="Y0U  A 
LREADY  HAVE  THE  LIGHT." 
SGOSUQ2570: RETURN 
AB  960  IFLT=1THENLT=0:IN(] )-l: 
PRINT "OK. " !CM(9}=0iRETU 
RN 
GG  970  IFINd  )=0THENPR5=" YOU  D 
O  NOT  HAVE  A  LIGHT,": GO 
SUB2570SRETURN 
RD  980  IFLO=0THENPRINT"OK.";LO 

=J : RETURN 
DJ  990  IFL0=1THENPR?-"THE  LIGH 
T  IS  ALREADY  ON.": GOSUB 
2 5 70; RETURN 
AG  1000  IFLO=0THENPR5="THE  LIG 
HT  IS  ALREADY  OFF.":GO 
SUB2570! RETURN 
RP  1010  IFL0=1THENPRIHT"0K.":L 

0=0: RETURN 
AB  1020  PRINT"  [CLR]  "DS5d6-FL( 

PY,PX)) 
KD  1030  EC=PX+l!l»J$-"EAST"iIFE 

C=11THENGOTO10S0 
RF  1040  IFFL(PY,EC)<>0TnENGOSU 

B1120 
SS  1050  WC=PX-1 :DN5="WEST" :IFW 

C=0THENGOTO1070 
AG    1060    IFFL(PY,WC)O0THENGOSU 

B1120 
FF    1070    NC=PY-1  :E4J5="NORTH"  sIF 

NC=0THENGOTO1090 
BE    1080    IFFL(NC, PX)<>0THENGOSU 

B1120 
HS    1090    SC=PY+1 ! DN5= "SOUTH" : IF 

SC=11THENGOT01110 
Bii    1100    IFFL(SC, PX)<>0THENGOSU 

B1120 
CE    1110    RETURN 
FR    1120    PRINTDN?"    IS   A    DOORWAY 

.": RETURN 
KG    1130    IFGK=0ANDBK=0ANDRK=0TH 
ENPRINT"WHAT    KEY?":RET 
URN 
QM    1140    PRINT"OK." 
FP    1150    IFGKTHENGK=0!lN{2)=l:R 

ETURN 
GH    1160    IFBKTHENBK=0:IN(3)=X:R 

ETURN 
GA    1J70    IFRKTHENRK=0:IN(4)=')  :B 

D=2: RETURN 
FM    1180    RETURN 
SX    )190    IFGD<>lTHEN122a 
GS    1200    IFIN(2)=0THENPRS=DSS(1 

0):GOSUB2570: RETURN 
DA    1210    IFIN(2  )  =  1THENPR?=DS5(2 
7):GOSUB2570:MA=).  :CM(1 
1  )  =  l:CMd  )=0:RETURN 
OR    1220    IFBDO1THENJ250 

COMPUTE!  i  Galeae  Special  1988  Issue        81 


CB  )230  IFIN(3)=0THENPR5=DS${1 
0):GOSUB2S7a: RETURN 

QK  J.240  IFIN(3  )  =  1THE:NPR5=DS$(2 
8):GOSUB25  70:CM(B)  =  J.;R 
K=l!CM(].  )=0;RETURN 

JJ    1250    IFRDO)  THEN)  280 

DE  1360  IFIN(4)=0THEKPR5=DS?{1 
0):GOSUB257a! RETURN 

MG    1270    IFIN(4  )=1THENPRINT" 

[CLR)":PR$=DS$(29):G0S 
UB2570:GOSUB2520 

CA  1280  RETURN 

JJ  1290  G=INT(RND().  )*LV*I0)+l! 

prS="you  have  found  "+ 

STR5(G)+"  GOLD  PIECES. 

MB  3  300  GOSUB2570:GP=GP+G:PR5= 
"YOU  NOW  HAVE  "+STRS(G 
P)+"  GOLD  PIECES. ":GOS 
UB2570 
QS  13}.0  CM(10)  =  0!RETURN 
CM  1320  0P=INT(RND(1)*4)+1 
SX  1340  IF(LV<=2)AND(0P>=3)T[1E 

N1320 
SD  1350  PRINT"WHAT  IS..."; 
SX  1360  ONOPGOTO] 370, 1400,1430 

,  1460 
ED  1370  X=INT(RND0  )*LV*.10)!Y= 

INT(RND(1 )*LV*10) 
SD  J3B0  IFLV>4THENX=X-INT<RND( 
1)*LV*5)!Y=Y-INT(RND(1 
)*LV*5) 
HR  1390  21=X+Y:PRINTX"  +  "Y"7" 
!lNPLJTZ$:GOSUB1510:  IFW 
R=2THEN)390 
GP  1395  RETURN 
KC  1400  X=INT(RND0  )*LV*10):Y= 

IBT(RND(1)*LV*10) 
SB  1410  IFLV<=3THENIFY>XTHENT= 

X!X=YiY=T 
RD  1420  Z1=X-Y: PRINT X"  -  "Y"7 " 
:INPUTZ?:GOSUB1S10!IFW 
R=2THEN.1420 
PP  1425  RETURN 
GX  1430  X=INT(RND(1)*LV*5):Y=I 

NT(RND(1)*LV*5) 
RP  1440  IFLV>=4THENX=X-INT(RND 
(1)*LV*2)!Y=Y-INT(RND( 
1)*LV*2) 
JP  1450  Z1=X*Y:PRINTX"  *  "Y"?" 
! INPUTZ5:GOSUB1510: IFW 
R=2THEN  3.450 
AQ  145  5  RETURN 
RK  1460  X=INT(RND(1 )*LV*5):Y=I 

NT(RND(1)*LV*5) 
RD  1470  IFLV>='4THENX=X-INT(RND 
(1)*LV*3>!Y=Y-INT{RND( 
1)*LV*3) 
RR  ).480  IFy=0THENY=: 
FC  1490  Zl=X/Y!lFZl<>INT(Zl)TH 

EN1460 
PB  1500  PRINTX"  /  "Y"7"t INPUTS 

S 
MG  150  5  GOSUB 1510! IFW R-2THEN14 

90 
MS  1506  RETURN 
AA  1510  IFVAL{Z$)<>0THENZ2=VAL 

(Z5) tGOTO1540 
CP  1520  IFZS<>"0"THENPR5="ANSW 
ER  THE  QUESTION  FIRSTl 
■• !  GOSUB2570  tWR=2  iRETUR 
N 
EG  1530  Z2-VAL(Z$) 
CE  1540  IFZl=Z2THENPRINT"{CLRl 
CORRECT  I  1":WR=0! RETURN 
CR  15  50  PRINT" [CLRj INCORRECT  1  1 

"!HR=1 : RETURN 
EF  1560  WA=0;IFLO=0THENPR5="I ' 
D  TURN  ON  MY  LIGHT  FIR 
ST."!GOSUB2570:GOTO161 
0 
FF  1570  C=ABS(PL=18)-ABS(PL-19 


DB  1580 


CQ  1590 


BR  1600 
RS  1610 
QS  1620 

BF  162  5 

JK  1630 


AQ  1640 

EG  1650 
DX  1660 

MF  1670 
HS  1680 
OR  1690 
SE  1700 

SP  1710 
MJ  1720 


SS  1730 


HF  1740 


RK  1750 


CJ  1760 


XB  1770 
KH  1780 


JH  1790 


AC  1 800 

HD  1810 
SX  1820 

RC  1830 
DR  1940 


DE  1850 
KA  1860 

EP  1870 


XF  1880 
SB  1890 

FS  1900 

CF  1910 
DR  192  0 

KJ  1930 
QD  1940 


):D=ABS(PL=17)-ABS[PL= 
16): TX=PX+C ! TY=PY+D 
IFTX=11ORTX=0ORTY=11OR 
TY=0THENPRINT"THERE  IS 
A  WALL  THERE. "!WA"1:G 
OTO1610 

IFFL(TY, TX)=0THENPRINT 
"THERE  IS  A  WALL  THERE 
,"iWA=l!GOTO1610 
PX=TX!PY=TY 
Z=FL(PY,PX) : RETURN 
FORI  =  1TO10!FORJ=-1TO10: 
FL(I, J)=0:NEXTJ!NEXTI 
NM»INT(RNDtl)*10)+LV:I 
=1 

X=INT(RND{l)*10>+l!Y°I 
NT(RND(l)*10)+ltIPPL(Y 
,X)  =  3THEN  1.630 
FL(Y,X)>-3!  1=1  +  1  iIFI<=N 
MTHEN1630 
FORI=1TONM*2 
X=INT(RND(1 )*10)+liY=I 
NT(RND(1)*10)+1 
IFFL(Y,X}=3THEN1660 
FLtYrXji'BitlEXTI 
FORI=lTOlOiFORJ=lTO10 
IFFL( I, J )-3THENGOSUB17 
80 

NEXTJiNEXTI 

GOSUB18405GX=-X:GY=YiIF 
( BX=XANDBY=Y ) OR ( RX=XAN 
DRY=Y)ORFL(Y,X)=0THEN1 
720 
GOSUB1840iBX=X:BY=Y!  IF 

(GX=XANDGY=Y)OR{RX="XAN 
DRY=Y)ORFL(Y,X)=0TliENl 
730 
GOSUBje40:Xl=X!Yl=Y! IF 

( X2 =XANDy 2  =Y ) OR ( X  3  =XAN 
DV3=Y)ORFLtY,X)=0THENl 
740 
GOSUB3.840tX2=X:Y2=Y!  IF 

(X1=XANDY1=Y)0R(X3=XAN 
DY3=Y)ORFL(Y,X)=0THEN1 

7  50 

GOSUB5  840iX3=X:Y3=Y!lF 

(X1=XANDY1»Y)0R(X2=XAN 

Dy2=Y)ORFL(Y,X)=0THENl 

760 

RETURN 

F0RK=JT01 0: GOSUB] 800 :N 

EXTK:F0RK=JT01STEP-1 :G 

OSU3180O :NEXTK 

FORK=IT01 0: GOSUB 1 8201 N 

EXTK:F0RK=IT0]STEP-1 jG 

OSUB1820:HEXTK: RETURN 

IFFL(I,K>=0THENFL(I,K) 

=INT(RND{1)*2)+1 

RETURN 

IFFL(K,J)=0THENFL(K,J) 

=INT(RND(1 )*2)+l 

RETURN 

X=INT(RNDtl )*10)+) !Y=I 

NT(RND(] )*10>+1 :IFFL{Y 

,X}=0THt;N)e40 

RETURN 

GOSUB790:FORI=12TO1 9:C 

H(I  )  =  1:NEXT:CM(Z2 )  =  ] 

PRINT"  ICLR)  ■'  :  PR5  =  DSS(1 

6-Z) : GOSUB 25  70: IFL0=1T 

UENGOSUB3  030 

GOSUB22  70:GOSUB2200 

GOSUB2310I IFPL=1 5ANDL0 

THENGOSUBL 020: GOTO! 880 

IFPL=20THENGOSUB2850:G 

OTO1890 

IFPL=1 5ANDLO=0THEN1870 

IFPL=]THENGOSUB1190:GO 

TO1890 

IFPL=14THEN1S90 

IFPL=11THENGOSUB2490:G 

OTO1890 


MQ   1950    IFPL=8THENGOSUB1130!GO 

TO 18 90 
XC    1960    IFPL=22THENGOSUB2470:R 

ETURN 
KF    1970    IFPL>15THENGOSUB1560:I 
F(LO-0 )0R(WA=1 )THEN189 
0 
GX    1980    RETURN 
AB    2000    GOSUB790:PORI-30TO19:C 

M(I  )  =  l!NEXTl!CM(22 )  =  1 
JD    2010    PRS=DS5(23) JGOSUB25701 
PR$=DS5 (24) ;GOSOB2S70! 
GOSUB 1 320 : IFWR=0THENGO 
TO 20 50 
XD    2020    GP=0:PR5=DS5 (25): GOSUB 
2570 iFORW=lTO2000: NEXT 
W 
FG    2030    X-INT(RND(1 )*10+1) jY=I 
NT(RND<1)*10)+1 !IFFL(Y 
,X)=0THEN2030 
GB    2040    PX=X:PY=Yj2=FL(PY,PX) : 

RETURN 
EQ    2050    PRS=DS$(26) JGOSUB2570: 

FL(PY,PX)=2 
BA   2060    PRS=DS3U4)  SGOSUB2570: 

IFLOTHENGOSUB) 030 
PJ    2070   GOSUB22701GOSUB2200 
MG   2080   GOSUB2310 
PM    2090    IFPL=20THENGOSUB2850:G 

OTO2080 
CH    2100    IFPL=15ANDL0THENG0SUB1 

020:GOTO2070 
PF    2)10    IFPL=1SANDLO=0THEN2060 
PS    2120    IFPL=14THEN2080 
JE    2130    IFPL=11THEN2490:GOTO20 

80 
QJ    2140    IFPL=8THENGOSUB1130:GO 

TO20a0 
BQ    2150    IFPL=1THENG0SUB11 90:GO 

TO2080 
DM    2160    IFPL=>10THENGOSUB129a!G 

OTO2080 
GX    2170    IFPL=22THENGOSUB2470!R 

ETURN 
QJ    2180    IFPL>1 5THENGOSUB1S60:I 
F(LO-«>ORtWA-l )THEN20S 
0 
XP    2190    RETURN 

BM    2200    IF(X1=PXANDY1=PY)A«DGD 
<>2THENPRS=DS5(17):GOS 
UB2570:GD=1:CM(1)=1 
JF    2210    IF(X2=PXANDY2=Py)ANDBD 
<>2THENPR$=DSS(19) : GOS 
UB2570:BD=1 :CM(1 J=l 
BF   2220    IF(X3=PXAKDY3=PY)ANDRD 
<  >  2THENPR5=DS5 ( IS ) :GOS 
UB2  570:RD=1 :CM( 1 )=1 
CF    2230    IF(X1<»PX0RY1<>PY)ANDG 

D<>2THENGD=0 
FE    2240    IP(X2<>PXORY2<>PY)ANDB 

D<>2THENBD=0 
JE    2250    IF(X3<>PXORY3<>PY)ANDR 

D<>2THENRD=^ 
SX    2260    RETURN 

JC    2270    IFBX=PXANDBY=PYANDIN{3 
)=0THENPR5=DS5(21 ) : GOS 
UB2570:BK=1:CM(8)=1 
XH    2280    IFGX=PXANDGY=PYANDIN{2 
)=3THENPR$=DSS{20):GOS 
UB2570:GK=l:CM(a)=l 
CH    2290    IFRX=PXANDRY=PYANDIN(4 
)=0THENPR?=DSS (22 ) :GOS 
UB2S70iRK=-l  !CM(8}=1 
GS    2  300    RETURN 

KA    2310    INPUTCStPL=eiFORI=lT02 
2:  IFCMSd  )=CSTHENPL=I: 
1=2  3 
KD    2  320    NEXT 

BK    2330    IFPL=0THENPRINT"YQU   CA 
N'T    DO   THATr':GOTO2310 
XD    2340   N5»"":I=1 
FH    2350   T5»MID5(C$,I,) ) 
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JD    2360    IFASC(TS)=32THENL='IiGO 

TO2390 
AA    2370    IFI='LEN(CS)THENGOT0241 

0 
ES    2380    1=1+1 tGOTO23S0 
KP    2390   n5=MIDS{C5,L+1,LEN(CS) 

> 
MX    2430    IFCM<PL)=0THENPRINT"I 

(SPACE) SEE    NO    "N?"    HER 

El  "  JGOTO2310 
BR   2410    IFC$="INV"THENGOTO2430 
HG    2420    RETURN 
JG    2430    PJlINT"YOU    ARE    CARRYING 

■  " 

AM  2440  FORI=1T05!IPIN(I)=ITHE 

NPRINT"A  "IN? (I) 
PB  2450  NEXTl!  IFGPO0THENPRINT 

GP"  GOLD  PIECES." 
PM  2460  RETURN 
JX  2470  PX=INT(RND(1>*10}+] !PY 

=INT(RND(1)*10)+1 ! IFFL 
(PY,PX)=3THEN2470 
KE  2480  Z=FL(Py,PX) : RETURN 
QK  2490  IFIN(5)=JTHENPR5="Y0U 
[SPACE 3 ALREADY  HAVE  TH 

E  MAPl"tGOSUB2S70:RETU 

RN 
CS  2500  IFMA=gTHENPRINT"WElAT  M 

AP?")RK;TURN 
HR  251.0  PRINT"OK."!lN(S)  =  J  tMA= 

0 ! CM ( 20 ) =1 : GD=2 : RETURN 
JB  2520  PRS="[2  DOWN) YOU  HAVE 

{SPACE) FOUND  YOUR  WAY 

(SPACE) OUT  OF  THE  HATH 
DUNGEON." :G0SUB2 5 70 
XK  2530  PR5="{D0HN} (2  SPACES )Y 

OU  HAVE  WON  "+STR5(GP) 

+"  GOLD  PIECES  IN  YOUR 
JOURNEY. " :GOSUB2S70 
BP  2540  PRINT" (DOWN)  PLAY  AGAI 

N"; : INPUT  A$ 
XB  2550  IFA5="Y"THENRUN 
GB  2560  END 
BF  2570  IFLEN(PR5)<=CCTHENPRIN 

TPR? I  RETURN 
SH  2580  TS-MID5(PRS,CC, ) )!lFAS 

C(TS)=>32THENI=CC!G0T02 

62  0 

^^H  2590  i=cc-i 

MS  2600  T5=MIDS{PR$, I,1):IFASC 

(T5 )=32THENGOTO2620 
PM  2610  1=1-1 !GOTO2600 
BS  2620  A5-MID5(PR5,I+1,LEN{PR 

5))!BS=MID5(PRS,1,I-U 

iPRINTBS 
PD  2630  IFLEN(A$)<=CCTHENPRINT 

A?! RETURN 
PE  2640  PR5=AS:GOTO2570 
xa  2650  DATAOPEN  DOOR, OPEN  GAT 

E,OPEN  MILKBOX, CLOSE  D 

OOR, CLOSE  GATE, CLOSE  M 

ILKBOX 
SP  2660  DATAGET  NOTE, GET  KEY,G 

ET  LIGHT, GET  GOLD, GET 

(SPACE (MAP, LIGHT  ON,  LI 

GHT  OFF, INV 
RC  2670  DATAL0OK,N,S,E,W,MAP,M 

AP.ALGEBRA, LIGHT, GREEN 
KEY,  BLUE  KEY,  RED  KEY, 

MAP 
KF  2680  DATA YOU  ARE  FACING  NOR 

TH.  A  GATE  IS  IN  FRONT 
OF  YOU . , THE  GATE  IS  O 

PEN. 
CM  2690  DATATHE  GATE  IS  CLOSED 

.,YOU  ARE  IN  A  DENSE  F 

OREST. 
FQ  2700  DATAYOU  ARE  IN  FRONT  0 

F  AN  OLD  HOUSE.  THERE 

(SPACEjiS  A  MILKBOX  BY 
THE  DOOR. 
DS  2710  DATATHE  MILKBOX  IS  CLO 


SED.,THE  MILKBOX  IS  OP 
EN., THE  DOOR  IS  CLOSED 

EC  2720  DATATHE  DOOR  IS  OPEN., 

THE  DOOR  IS  LOCKED.  YO 

U  DO  NOT  HAVE  THE  HIGH 

T  KEY. 
HM  2730  DATATHERE  IS  A  NOTE  IN 
THE  MILKBOX., THE  DOOR 
FLIES  OPEN  WITH  A  BAN 

Gl 
KD  2740  DATATHE  NOTE  DISAPPEAR 

S  AND  THE  MILKBOX  CLOS 

ES. 
BF  2750  DATAYOU  ARE  IN  A  COLD 

tSPACEjAND  DAMP  ROOM., 

YOU  ARE  IN  A  LONG  AND 

( SPACE} NARROW  HALLWAY. 
MG  2760  DATATHERE  IS  AN  UNLIT 

[SPACElLIGHT  HERE., THE 

RE  IS  A  GREEN  DOOR  HER 

E. 
XR  2  770  DATATHERE  IS  A  RED  DOO 

R  HERE., THERE  IS  A  BLU 

E  DOOR  HERE. 
QA  2780  DATATHERE  IS  A  GREEN  K 

EY  HERE., THERE  IS  A  BL 

UE  KEY  HERE. 
AP  2790  DATATHERE  IS  A  RED  KEY 
HERE., BEFORE  YOU  CAN 

(SPACE) GET  A  GOOD  LOOK 
AT  THE  AREA. . 
FS  2800  DATAA  MONSTER  JUMPS  OU 

T  AND  SAYS  'YOU  MUST  A 

NSWER  THIS  QUESTION! 
OD  2310  DATA'NOW  I'LL  TAKE  ALL 
YOUR  GOLD  AND  TRANS PO 

RT  YOU  AWAY  I 
CF  2820  DATATHE  MONSTER  DISAPP 

EARS. (17  SPACES)YOU  SE 

E  SOME  GOLD  HEREl 
MS  2830  DATATHERE  IS  A  MAP  HER 

El (THERE  IS  A  RED  KEY 

tSPACE}UEREl 
SF  2840  DATATHERE  IS  A  SUDDEN 

(SPACE (FLASH  AND  YOU  F 

IND  YOURSELF  AMIDST  SO 

ME  TREES. 
HH  2850  IFIN(5)=aTHENPRINT"Y0U 
DON ' T  HAVE  A  MAP  I " : RE 

TURN 
XC  2860  PRINT" (CLR)": PRINT 
HS  2870  FORI=1TO]0!TB=1:FORJ=1 

TO  10 
BF  2880  IFIapyANDJ=PXTHENPRINT 

TAB  ( TB )  "■(  GRN )  *  "  ; :  G0T02 

930 
DJ  2890  IFFLd,  J)  =  3THEHPHINTTA 

B { TB ) " ( BLK ) M " ; : G0T02  93 

0 
GJ  2900  IFFLd,  J)  =  2THENPRINTTA 

B(TB) "(BLUJR"; :GOT0293 

0 
SE    2910    IFFLd,  J)""1THENPRINTTA 

B(TB)"{PUR)H",'!G0T02  93 

0 
KD    292  0    PRINTTAB(TB)"(RVS) 

(YEL)  (OFF)"; 
KS  2930  TB=TB+2:NEXTJ: PRINTS  PR 

INT: NEXT! 
GP  2940  PRINT" ( BLU )": RETURN 


Laser  Chess 

Version  by  Bill  Chin,  Editorial 
Programmer 

See  instructions  in  article  on  page  6 
before  typing  in. 


BEFORE  TYPING  .  .  . 

Before  typing  in  programs,  please 
refer  to  "How  to  Type  In 
COMPUTE!'*  GAZETTE  Programs," 
e[scwherc  in  this  issue. 


0801! 

OB 

08 

0A 

00 

9E 

32 

30 

36 

2E 

0809: 

3J 

00 

00 

00 

A9 

00 

80 

2J 

3B 

0811  : 

D0 

8D 

20 

00 

A9 

0F 

80 

86 

29 

0819: 

02 

20 

C0 

0A 

A9 

78 

A0 

18 

73 

0821: 

20 

IE 

AB 

A5 

C6 

F0 

FC 

A9 

36 

0B29! 

FF 

8D 

2: 

C8 

20 

7B 

0B 

A9 

FB 

0831 

09 

80 

04 

C8 

A9 

07 

8D 

21 

DB 

0B39 

D0 

A9 

00 

8D 

J6 

C8 

A9 

00 

IC 

084! 

85 

FD 

A9 

C0 

85 

FE 

A9 

CE 

IF 

0849 

85 

FB 

A9 

18 

85 

FC 

A0 

00 

33 

08S] 

B) 

Fa 

FO 

04 

C9 

J9 

90 

0C 

77 

085  9 

91 

FD 

20 

FD 

08 

20 

EC 

08 

33 

0861 

D0 

EE 

F0 

17 

AA 

A9 

FF 

91 

B2 

0869 

FD 

CA 

FO 

07 

20 

EC 

08 

D0 

4F 

0871 

F4 

F0 

08 

20 

FD 

08 

20 

EC 

78 

0879 

08 

DO 

DS 

20 

04 

09 

20 

4C 

4F 

0881 

0B 

20 

AA 

0E 

AO 

16 

C8 

49 

FS 

0889 

0J 

8D 

)6 

C8 

20 

06 

0B 

FO 

EC 

0891 

;F0 

A9 

07 

20 

91 

0A 

A9 

03 

72 

0899 

8D 

24 

C8 

A9 

09 

BD 

23 

C8 

BA 

08A1 

A9 

0A 

8D 

31 

C9 

SD 

32 

C9 

30 

08A9 

A2 

0] 

A9 

05 

20 

2A 

10 

20 

BA 

0BB1 

IS 

),7 

20 

33 

0F 

20 

8B 

0F 

B8 

08B9 

AD 

OA 

C8 

FO 

08 

DE 

31 

C9 

33 

0601 

!F0 

]0 

4C 

CB 

08 

A9 

OA 

9D 

2D 

08C9 

31 

C9 

CA 

10 

DD 

A2 

0] 

4C 

07 

08D1 

;AB 

08 

AO 

23 

C8 

C9 

09 

00 

Fl 

0309 

BB 

AD 

24 

C8 

C9 

03 

F0 

05 

04 

08E1 

!C9 

02 

DO 

AD 

00 

20 

04 

09 

DD 

0BE9 

!4C 

82 

08 

E6 

FD 

00 

02 

E6 

4E 

08F1 

:FE 

A5 

FD 

C9 

E0 

DO 

04 

A5 

3F 

0SF9 

sFE 

C9 

C4 

60 

E6 

FQ 

00 

02 

65 

0901 

:E6 

FC 

60 

AD 

C6 

17 

A2 

00 

84 

0909 

:9D 

E0 

C8 

EB 

E0 

12 

00 

F8 

B3 

0911 

:A9 

FF 

A2 

12 

9D 

E0 

C8 

E8 

58 

0919 

!E0 

3F 

D0 

F8 

AD 

C7 

17 

A2 

72 

0921 

!3F 

9D 

EO 

CB 

E3 

Ea 

SI 

DO 

21 

0929 

EF8 

A2 

00 

3E 

25 

C8 

A0 

08 

DE 

0931 

!BD 

C8 

17 

9D 

3E 

C9 

99 

86 

OF 

0939 

!C8 

BD 

Dl 

17 

9D 

47 

CB 

99 

FF 

094J 

!7D 

C8 

BD 

F0 

17 

90 

8F 

C8 

22 

0949 

sBD 

0B 

18 

9D 

D7 

C8 

BO 

F9 

31 

0951 

!l7 

9D 

98 

C8 

BD 

02 

18 

90 

B9 

0959 

iCE 

C8 

E8 

38 

10 

02 

A9 

03 

CC 

0961 

:8D 

ES 

CA 

A9 

4D 

80 

E6 

CA 

E0 

0969 

!A9 

FP 

8D 

2J 

C8 

20 

B3 

0B 

4D 

0971 

:A9 

08 

8D 

23 

C8 

80 

24 

C8 

CB 

0979 

!20 

40 

OD 

AD 

0E 

C8 

C9 

FF 

4F 

0981 

iF0 

06 

20 

A3 

OC 

4C 

8C 

09 

7F 

0989 

:20 

FC 

0B 

CE 

23 

CB 

10 

E8 

7E 

0991 

:A9 

08 

SD 

23 

C8 

CE 

24 

CS 

F0 

0999 

:10 

DE 

A9 

04 

BD 

23 

C8 

30 

F8 

09A1 

:24 

C8 

20 

40 

0D 

A9 

00 

80 

9C 

09A9 

:21 

C8 

20 

5F 

0C 

A9 

01 

BD 

OF 

09B1 

!66 

ce 

A9 

03 

8D 

20 

CB 

80 

9A 

09B9 

=  24 

C8 

A9 

16 

8D 

31 

C9 

A9 

15 

09C1 

:0] 

8D 

23 

C3 

BD 

IF 

CB 

20 

43 

a9C9 

:DE 

09 

EE 

3) 

C9 

EE 

24 

C8 

99 

09D1 

sAD 

24 

ce 

C9 

06 

00 

E8 

EE 

AD 

09D9 

:24 

CB 

EE 

24 

ce 

AD 

3J 

C9 

79 

09E1 

!8D 

02 

C8 

8D 

00 

CS 

AD 

24 

CF 

09E9 

:C8 

8D 

20 

C8 

20 

58 

0D 

20 

F0 

09F1 

:A3 

0C 

A9 

00 

8D 

21 

ca 

20 

B0 

09F9 

5F 

0C 

A9 

El 

80 

22 

C8 

20 

B3 

0A01 

81 

OC 

60 

8A 

48 

A9 

08 

8D 

14 

0A09 

23 

CB 

8D 

24 

CB 

20 

40 

0D 

29 

0A11 

lAD 

0E 

C3 

CD 

lA 

CB 

DO 

14 

u- 

0AJ9 

20 

E5 

0B 

AD 

21 

C8 

BD 

22 

9C 

aA21 

!C8 

20 

31 

0C 

A9 

FF 

AC 

12 

4B 

0A29 

CB 

99 

E0 

C3 

CE 

23 

ca 

)0 

55 

0A31 

.DC 

A9 

08 

8D 

23 

C8 

CE 

24 

F5 

aA39 

CB 

1.0 

D2 

68 

AA 

60 

A9 

4E 

OF 

0A41 

8D 

F9 

57 

A9 

DC 

80 

03 

D0 

14 

3A49 

A9 

AS 

8D 

02 

D0 

A9 

00 

8D 

EB 

0A5) 

10 

D0 

A9 

06 

8D 

28 

DO 

A9 

8F 

0A59 

02 

8D 

ID 

D0 

A9 

03 

8D 

15 

OC 

COMPUTE'S  Gazette  Special  1988  Issue        B3 


0A61 

:D0 

20 

E4 

FF 

C9 

00 

00 

06 

49 

0D01 

t8D 

23 

CS 

EE 

24 

08 

4C 

F9 

89 

0FA9:0D 

A9 

00 

80 

24 

oa 

4C 

B7 

2  6 

0A69 

:A9 

07 

20 

91 

0A 

EE 

28 

D0 

SE 

0009 

:0C 

60 

AD 

24 

ca 

80 

35 

C9 

E9 

0FB1J0F 

A9 

08 

80 

24 

ca 

AD 

23 

5E 

0A71 

sCE 

27 

D0 

20 

E4 

FF 

C9 

00 

80 

0011 

!0A 

0A 

0A 

la 

6D 

35 

C9 

6D 

B6 

0FB9:O8 

30 

0E 

C9 

OA 

FO 

02 

90 

4F 

0A79 

•F0 

F9 

C9 

4E 

F0 

0A 

C9 

59 

3F 

0019 

:23 

C8 

80 

35- 

C9 

BD 

12 

C8 

60 

0FCl!0O 

A9 

00 

80 

23 

CB 

4C 

OF 

4E 

0A8.1 

D0 

E6 

A9 

01 

80 

15 

00 

60 

BF 

0021 

:A8 

60 

B9 

3E 

ca 

SO 

00 

CB 

08 

0FC9!0F 

A9 

09 

80 

23 

08 

60 

AO 

7E 

0A89 

A9 

01 

8D 

15 

D0 

A9 

00 

60 

43 

0029 

!B9 

8F 

ca 

BD 

10 

C8 

18 

6D 

37 

0FO1 ! 36 

ca 

85 

FO 

AD 

37 

C8 

85 

2F 

0A91 

8D 

FA 

0A 

8A 

48 

9B 

48 

AE 

F8 

0D31 

00 

ca 

8D 

02 

ca 

B9 

E0 

C8 

07 

0FD9:FE 

A9 

04 

80 

21 

CB 

4C 

5F 

5F 

0A99 

FA 

0A 

QD 

DA 

0A 

A8 

BD 

E2 

64 

0039 

80 

0E 

C8 

80 

22 

CB 

60 

20 

A4 

0FEliOC 

20 

0B 

0D 

20 

23 

00 

AO 

95 

0AA1. 

0A 

99 

05 

D4 

A9 

00 

99 

06 

95 

0D41 

0B 

00 

20 

23 

00 

AD 

24 

CS 

BA 

0FE9|12 

C8 

CD 

13 

CS 

00 

35 

AD 

CF 

0AA9 

D4 

BD 

EA 

0A 

99 

01 

D4 

BD 

CD 

0049 

18 

69 

01 

80 

20 

ca 

AO 

23 

65 

0FF1 tl0 

C3 

18 

60 

0B 

03 

29 

03 

F4 

0AB1 

P2 

aA 

99 

04 

04 

49 

01 

99 

9C 

0051 

C8 

18 

69 

02 

80 

IF 

C8 

AD 

4B 

0FF9:8O 

34 

C9 

AD 

00 

CS 

AA 

BO 

36 

0Aa9 

04 

D4 

68 

Aa 

68 

AA 

60 

A2 

ED 

0059 

20 

ce 

0A 

8D 

2B 

C8 

A9 

00 

9F 

1001 ;DA 

17 

2D 

34 

09 

8D 

34 

C9 

F3 

0AC1 

)8 

A9 

00 

9D 

00 

D4 

CA 

10 

IF 

0061 

80 

2A 

ca 

AD 

20 

CS 

4A 

6E 

E7 

10O9;AC 

12 

C8 

AD 

34 

C9 

99 

8F 

83 

0AC9 

FA 

A9 

0F 

BD 

18 

D4 

A9 

FF 

E7 

0069 

2A 

ca 

IB 

6D 

2B 

C8 

80 

2B 

67 

10] 1 !C8 

20 

23 

0D 

20 

46 

0D 

20 

27 

0AD1 

8D 

0F 

D4 

A9 

80 

BD 

12 

D4 

D8 

0071 

ca 

AD 

IF 

C8 

0A 

0A 

0A 

8D 

E5 

101 9 t A3 

OC 

A9 

IE 

20 

2A 

10 

A9 

98 

0AD9 

60 

00 

07 

00 

00 

07 

00 

00 

IB 

0079 

35 

C9 

0A 

IB 

60 

35 

C9 

la 

4F 

102) 102 

4C 

91 

0A 

A9 

01 

4C 

91 

A3 

0AE1. 

00 

01 

19 

04 

19 

8A 

92 

84 

36 

0081 

60 

2A 

C8 

80 

2A 

C8 

AD 

2B 

C9 

102910A 

18 

65 

A2 

ao 

36 

10 

A5 

3E 

0AE9 

19 

]7 

10 

50 

0A 

0] 

64 

03 

77 

0089 

C8 

69 

00 

80 

2B 

C8 

AO 

2A 

3D 

1031iA2 

op 

38 

10 

00 

F9 

60 

00 

4D 

0AF1  ! 

JE 

1.0 

10 

80 

20 

80 

80 

80 

A7 

0091 

C8 

18 

69 

4B 

80 

2A 

C8 

AD 

IC 

1039iAE 

03 

03 

EC 

04 

CB 

F0 

05 

83 

0AF9 

20 

00 

A0 

A5 

A2 

8D 

EA 

0A 

B7 

0099 

2B 

ca 

69 

61 

8D 

2B 

C8 

A9 

13 

1041 iE8 

8E 

03 

C8 

60 

A9 

00 

80 

90 

0B01 

A9 

00 

4C 

9) 

0A 

AD 

25 

C8 

AB 

0DA1 

00 

80 

36 

C9 

AD 

02 

C8 

0A 

93 

1049:03 

CB 

AO 

23 

C8 

C9 

09 

D0 

55 

0B09 

F0 

3A 

C9 

02 

F0 

22 

C9 

03 

26 

0OA9 

2E 

36 

C9 

0A 

2E 

36 

C9 

OA 

2A 

1051;03 

4C 

C0 

12 

AD 

05 

CS 

49 

9B 

0B11 

F0 

33 

A0 

51. 

B9 

3E 

C8 

00 

BE 

0DB1 

2E 

36 

C9 

0A 

2E 

36 

C9 

BD 

BS 

1059:01 

80 

05 

ce 

F0 

4E 

20 

40 

CB 

0B)9 

J4 

B9 

E0 

ca 

CD 

C6 

17 

F0 

F8 

0OB9 

35 

C9 

8D 

37 

C9 

AO 

36 

09 

41 

1061:0D 

AD 

0E 

ca 

CO 

0F 

ca 

D0 

CE 

0B2). 

18 

AD 

C6 

17 

BD 

JA 

CS 

20 

7F 

0DC1 

8D 

38 

C9 

0E 

35 

C9 

2E 

36 

2E 

1069J39 

AO 

12 

C8 

80 

13 

08 

A9 

54 

0B29! 

04 

0A 

A9 

01 

60 

88 

10 

E4 

33 

0DC9 

C9 

AD 

35 

C9 

18 

60 

37 

C9 

26 

107) :02 

20 

91 

0A 

AO 

2E 

08 

80 

B2 

0B3] 

AD 

C6 

17 

BD 

)A 

C8 

20 

04 

C3 

0DD1 

BD 

33 

C9 

AD 

36 

C9 

60 

38 

FF 

1079t36 

ce 

AD 

2F 

C8 

80 

37 

08 

43 

0B39 

0A 

AD 

C7 

17 

8D 

lA 

ca 

20 

B0 

0009 

C9 

8D 

36 

C9 

AO 

35 

C9 

69 

OE 

1081  :AD 

00 

08 

8D 

00 

08 

AD 

10 

64 

0B41- 

04 

0A 

A9 

01 

60 

20 

04 

09 

B5 

0OE1 

00 

8D 

2C 

CB 

AO 

36 

C9 

69 

B4 

1089:Ca 

8D 

11 

08 

80 

34 

C9 

AO 

9E 

0B49 

A9 

00 

60 

AD 

11 

00 

09 

20 

19 

0DE9 

C0 

8D 

2D 

ca 

A9 

00 

80 

35 

97 

109l!23 

C8 

80 

06 

CB 

AD 

24 

C8 

95 

0B51: 

8D 

n 

D0 

AD 

18 

00 

09 

OS 

S5 

0DF1 

C9 

8D 

36 

C9 

AD 

20 

ca 

OA 

41 

1099:80 

07 

CS 

AO 

00 

C8 

80 

01 

75 

0B59. 

29 

0F 

09 

50 

8D 

18 

D0 

AD 

0A 

0DF9 

2E 

36 

C9 

0A 

2E 

36 

C9 

0A 

7A 

10A.1.:C8 

60 

A9 

00 

80 

05 

C8 

A9 

2F 

0B61. 

16 

D0 

09 

10 

8D 

16 

00 

AD 

EC 

0E01 

2E 

36 

C9 

0A 

2E 

36 

C9 

80 

07 

10A9101 

40 

91 

0A 

A9 

0A 

8D 

04 

C4 

0B69i 

02 

DD 

09 

03 

80 

02 

DD 

AD 

27 

0B09 

35 

C9 

BD 

37 

C9 

AD 

36 

09 

92 

10B1 jC8 

AO 

23 

08 

CO 

06 

CS 

D0 

7B 

0B7) 

00 

DD 

29 

FC 

09 

02 

80 

00 

5F 

0E11 

8D 

38 

C9 

0E 

37 

C9 

2e 

38 

91 

10B9tl6 

AD 

24 

CS 

CD 

07 

C8 

DO 

4E 

0B79 

DU 

6t] 

A9 

00 

A2 

3F 

9D 

C0 

D9 

0E19 

C9 

0E 

37 

C9 

2E 

38 

C9 

AD 

B4 

10C1:0E 

A9 

00 

80 

15 

CS 

20 

89 

CI 

0B81 

53 

CA 

1  0 

FA 

A9 

FF 

A2 

00 

38 

0E21 

37 

C9 

IB 

60 

35 

C9 

ao 

2E 

3F 

10C9il2 

20 

36 

17 

40 

OF 

10 

20 

5F 

0889 

9D 

C0 

53 

9D 

F6 

53 

EB 

E0 

9A 

0E29 

ca 

AD 

38 

C9 

60 

36 

C9 

80 

IE 

10D) (25 

1) 

F0 

42 

20 

89 

12 

FO 

47 

0B91 

06 

D0 

F5 

A2 

06 

A9 

60 

9D 

3D 

0E31 

2F 

C8 

AO 

IF 

C8 

80 

35 

C9 

6F 

10D9j3D 

20 

OF 

11 

F0 

33 

40 

B8 

65 

0B99 

C0 

53 

A9 

01 

90 

C2 

53 

Ea 

Bl 

0E39 

0A 

18 

60 

35 

C9 

8D 

35 

C9 

lA 

10E):12 

AE 

16 

CS 

BD 

E5 

CA 

10 

31 

0BA1 

E8 

BB 

E0 

36 

90 

EF 

A2 

3F 

AE 

0E41 

18 

60 

2E 

C8 

80 

35 

C9 

AD 

99 

10E9S05 

A9 

01 

BD 

26 

CS 

A0 

02 

87 

0BA9 

BD 

79 

IB 

9D 

60 

53 

CA 

10 

31 

0E49 

2F 

CB 

69 

00 

80 

36 

C9 

AO 

E2 

10F1:AD 

0F 

ca 

99 

BO 

55 

AE 

00 

04 

0BB1 

F7 

60 

A9 

00 

8D 

C3 

SB 

A9 

4C 

0E51 

35 

C9 

IB 

69 

29 

an 

2E 

C8 

88 

10F9:G8 

E0 

02 

F0 

02 

A9 

00 

99 

56 

0BB9 

50 

8D 

C4 

0B 

AD 

21 

C8 

A0 

00 

aE59 

AD 

36 

C9 

69 

OB 

80 

2F 

C8 

CD 

1101 :E4 

55 

AD 

0F 

08 

AE 

26 

C8 

A7 

0BC1 

00 

99 

41 

C9 

ca 

00 

FA 

EE 

71 

0E61 

AD 

35 

C9 

IB 

69 

29 

80 

30 

97 

1109 :F0 

02 

A9 

00 

99 

AC 

56 

99 

IF 

0DC9 

C4 

01) 

AE 

C4 

0B 

E0 

80 

D0 

04 

0E69 

C8 

AD 

36 

C9 

69 

54 

80 

31 

Al 

1111 iD4 

56 

88 

10 

DB 

60 

AD 

00 

OE 

01303 

F0 

A0 

00 

A9 

00 

99 

00 

08 

62 

0E71 

C8 

AD 

02 

C8 

0A 

0A 

SO 

32 

EF 

ll)9:Ca 

80 

00 

ca 

A9 

01 

80 

05 

62 

0BD9 

99 

00 

D9 

99 

00 

DA 

99 

E8 

19 

0E79 

CB 

A9 

20 

IS 

60 

32 

C8 

BD 

30 

1121. C8 

4C 

91 

0A 

AD 

23 

C8 

36 

51 

0BE1 

DA 

C8 

D0 

Fl 

60 

A9 

0B 

BD 

IE 

0E81 

32 

C8 

A9 

18 

69 

00 

BD 

33 

39 

1129:ED 

06 

08 

8D 

)B 

CB 

10 

03 

BC 

0BE9 

2] 

ce 

AD 

23 

C8 

18 

6D 

24 

50 

0Ea9 

C8 

AD 

IF 

C8 

0A 

0A 

80 

38 

Bl 

1131:20 

E8 

0C 

8D 

35 

C9 

AD 

24 

48 

0BF1 

C8 

29 

01 

00 

05 

A9 

0F 

8D 

5E 

0E91 

C8 

0A 

18 

6D 

38 

C8 

69 

04 

2A 

1139  tea 

38 

ED 

07 

OS 

SD 

IC 

C8 

79 

0BF9 

21 

C8 

60 

20 

0B 

0D 

A9 

FF 

CO 

0E99 

80 

38 

C8 

AD 

20 

C8 

0A 

0A 

C0 

1141:10 

03 

20 

Ea 

0C 

18 

60 

35 

8F 

0C0]- 

8D 

22 

C8 

AC 

12 

C8 

99 

3E 

71 

0EA1 

0A 

0A 

IS 

69 

0C 

80 

39 

C8 

B0 

1149:C9 

80 

15 

08 

F0 

06 

C9 

01 

IF 

0C09 

CG 

99 

8F 

C8 

99 

E0 

ca 

A9 

F5 

0EA9 

60 

A9 

00 

80 

03 

C8 

ao 

05 

94 

1151 :F0 

04 

09 

02 

F0 

03 

A9 

01 

2E 

0cn 

00 

SD 

02 

ca 

20 

46 

00 

20 

AD 

0EB1 

C8 

8D 

1  4 

C8 

8D 

26 

ca 

80 

CB 

1159:60 

20 

0B 

00 

AO 

18 

C8 

C9 

0F 

0CJ9 

25 

0C 

20 

B3 

0C 

20 

2F 

0G 

51 

0EB9 

E3 

CA 

ao 

E4 

CA 

A9 

02 

SD 

09 

1161:FE 

DO 

06 

B9 

3F 

08 

4C 

06 

10 

0C21 

20 

5C 

0C 

60 

AD 

2A 

ca 

85 

15 

0EC1 

0C 

ca 

A9 

04 

80 

23 

CG 

80 

A3 

1169tn 

AD 

18 

CS 

C9 

02 

00 

06 

00 

0C29 

sFD 

AD 

2n 

C8 

85 

FE 

A0 

00 

07 

0EC9 

24 

C8 

AE 

16 

C8 

BD 

C6 

1  7 

43 

1171:B9 

3D 

ca 

4C 

C6 

11 

AD 

10 

BF 

0C31 

:AD 

22 

ce 

91 

FD 

ca 

C0 

18 

87 

0ED1 

80 

OF 

C8 

20 

B8 

12 

AD 

25 

22 

1179:CS 

09 

02 

D0 

06 

B9 

35 

06 

0A 

0C39 

:D0 

F9 

60 

AD 

2A 

C8 

85 

FD 

9C 

0ED9 

C8 

00 

OB 

20 

EB 

0E 

20 

15 

06 

1181:4C 

06 

11 

AD 

IC 

03 

09 

FE 

OF 

0C4) 

:AD 

2B 

C8 

85 

FE 

AD 

2C 

C8 

3C 

0EE1 

17 

AO 

OC 

ca 

00 

F0 

60 

A9 

B7 

1189: 00 

06 

B9 

47 

C8 

4C 

C6 

11 

57 

0C49 

:a5 

FB 

AD 

2D 

C8 

85 

FC 

A0 

A2 

0EE9 

05 

20 

2A 

10 

20 

E2 

10 

AE 

32 

1191  :A0 

la 

C8 

C9 

01 

00 

0A 

B9 

5F 

0C5] 

:00 

B1 

FB 

9) 

FD 

C8 

CO 

18 

IB 

0EF1 

16 

ca 

20 

38 

0F 

AD 

05 

C8 

D4 

1199:30 

C8 

C9 

FF 

F0 

2D 

40 

A9 

44 

0C59 

:D0 

F7 

60 

20 

E6 

OB 

A0 

00 

8A 

0EF9 

F0 

03 

4C 

01 

0F 

4C 

2A 

OF 

F5 

llAl.ll 

B9 

3F 

C8 

C9 

FF 

F0 

23 

82 

0C6] 

!  Ai) 

2E 

C8 

85 

FD 

AD 

2F 

C8 

IB 

0F01 

20 

00 

OF 

A9 

14 

80 

04 

C8 

87 

11A9:A0 

IC 

08 

C9 

01 

DO 

0C 

A0 

63 

0C69 

!85 

FE 

AD 

21 

ca 

9] 

FD 

C8 

ID 

0F09 

20 

0B 

0D 

cc 

13 

C8 

F0 

03 

09 

llBl too 

89 

35 

06 

C9 

FF 

F0 

13 

BB 

0C71 

:9) 

FD 

C8 

9) 

FD 

AO 

28 

91 

58 

0F11 

4E 

04 

C8 

AD 

0A 

C8 

F0 

0B 

AB 

11B9:4C 

C3 

11 

B9 

47 

C8 

C9 

FF 

Al 

0C79 

sFD 

C8 

91 

FD 

CS 

91 

FD 

60 

BD 

0FJ9 

AD 

0B 

C8 

F0 

03 

4C 

E2 

OF 

17 

lie) :F0 

09 

A9 

00 

60 

C9 

FF 

F0 

EE 

ac8] 

!A0 

00 

AD 

30 

ca 

85 

FD 

AD 

AB 

OF  21 

4C 

39 

10 

SD 

03 

CB 

4C 

BB 

ED 

1109:02 

00 

F7 

A9 

01 

60 

20 

OB 

8F 

0C89 

:3) 

ca 

85 

FE 

AD 

22 

C8 

91 

26 

0P29 

:flF 

AD 

0A 

CB 

F0 

03 

4C 

39 

60 

11O1:0D 

C0 

28 

00 

2D 

AD 

E4 

CA 

71 

0C9.1. 

:FD 

C8 

91 

FD 

C8 

91 

FD 

AO 

16 

0F31 

10 

8D 

03 

C8 

4C 

8B 

0F 

A9 

FF 

11D9:D0 

3E 

A9 

05 

20 

91 

0A 

A9 

7E 

0C99 

:  28 

91 

FD 

C8 

91 

FD 

C8 

91 

IE 

OP39 

J  00 

80 

0R 

CS 

8D 

0B 

ca 

80 

40 

11E1:00 

80 

41 

09 

EE 

E4 

CA 

20 

EC 

0CA1 

:FD 

60 

20 

3C 

0C 

20 

B3 

0C 

EC 

0F41 

!17 

C8 

80 

IB 

C8 

BD 

00 

OC 

9A 

11E9:DA 

0C 

C0 

28 

F0 

00 

B9 

3E 

64 

0CA9 

:  20 

50 

0C 

20 

81 

0C 

20 

5C 

42 

0F49 

!8D 

41 

C9 

4E 

41 

C9 

BO 

0B 

37 

IIFI1O8 

C9 

FF 

D0 

06 

20 

Fl 

0C 

98 

0CB1 

;0C 

60 

A5 

FD 

16 

69 

40 

85 

E8 

0F51 

iA9 

FF 

BD 

IB 

ca 

ao 

0B 

C8 

03 

llF9t4C 

2F 

12 

EE 

4) 

C9 

DO 

E7 

F9 

0CB9 

tFD 

A  5 

FE 

69 

0) 

85 

FE 

A5 

72 

0F59 

.4E 

41 

C9 

B0 

08 

A9 

01 

BD 

A9 

I20I1F0 

16 

B9 

3E 

08 

09 

FF 

F0 

9C 

0CC] 

jFB 

IB 

69 

18 

85 

FB 

AS 

FC 

F0 

0F6] 

slB 

ca 

80 

0B 

C8 

4E 

41 

C9 

60 

1209t25 

AD 

01 

C8 

09 

00 

F0 

SB 

13 

0CC9 

;69 

00 

85 

FC 

60 

AO 

IB 

D4 

DB 

0F69 

!B0 

08 

A9 

FF 

8D 

17 

C8 

8D 

FE 

3.211:09 

01 

FO 

20 

09 

06 

F0 

03 

05 

0CD1 

!29 

BF 

C9 

09 

B0 

F7 

F0 

F5 

49 

0F71 

I0B 

CB 

4E 

41 

C9 

B0 

08 

A9 

EF 

1219:A9 

00 

60 

AD 

14 

08 

00 

F8 

57 

0CD9 

:63 

AD 

IB 

D4 

60 

41 

C9 

29 

6B 

0F79 

!01 

8D 

17 

ca 

30 

0B 

ca 

4E 

63 

1221 :EE 

14 

08 

B9 

3E 

CS 

20 

EE 

BA 

0CE1 

:7F 

C9 

51 

B0 

F4 

A8 

60 

49 

B5 

0F81 

:41 

C9 

B0 

05 

A9 

01 

80 

0A 

8F 

1229! 15 

A9 

06 

20 

91 

0A 

20 

95 

8F 

0CE9 

sFF 

85 

02 

E6 

02 

AS 

02 

60 

ID 

0F89 

jca 

60 

AO 

23 

C8 

18 

6D 

17 

A4 

1231:17 

A9 

01 

60 

AD 

E3 

CA 

F0 

F4 

0CF1 

tec 

23 

ca 

A9 

00 

SD 

24 

CS 

14 

0F9) 

:C8 

8D 

23 

C8 

AD 

24 

ca 

18 

10 

1239:03 

40 

19 

12 

20 

DA 

00 

B9 

74 

0CF9 

lAD 

23 

C8 

38 

E9 

09 

30 

09 

2B 

0F99 

:6D 

IB 

CB 

80 

24 

C8 

AD 

24 

EA 

1241 :3E 

C8 

C9 

FF 

00 

07 

C0 

28 

3C 

0FA1 

ICB 

30 

0E 

C9 

09 

F0 

02 

90 

2F 

1249 :F0 

03 

4C 

56 

12 

EE 

41 

C9 

2E 

84    COMPUTEfs  Gazette  Special  1938  Issue 


J.251iD0 

EA 

4C 

19 

12 

8C 

42 

C9 

C4 

14F9 

Bl 

FD 

5D 

OB 

15 

91 

FD 

AE 

40 

17A1 

AD 

23 

C8 

48 

AD 

24 

C8 

48 

E4 

1259:AE 

12 

C8 

20 

73 

17 

EE 

E3 

2E 

1501 

4) 

C9 

68 

AS 

68 

AA 

60 

C0 

45 

17A9 

AD 

06 

ca 

80 

23 

C8 

AD 

07 

CO 

1261 :CA 

AD 

23 

ce 

48 

AD 

24 

CB 

51 

1509 

30 

0C 

03 

00 

00 

20 

40 

0D 

BC 

17B1 

C8 

80 

24 

C8 

20 

FC 

OB 

63 

2C 

1269:43 

AC 

42 

C9 

20 

Fl 

0C 

20 

C2 

1511 

AC 

28 

C8 

AD 

12 

C8 

C9 

28 

FE 

17B9 

3D 

24 

CB 

68 

80 

23 

C8 

20 

02 

12  71:40 

00 

A9 

05 

20 

91 

0A 

20 

F9 

1519 

00 

06 

A9 

04 

99 

51 

C9 

60 

A8 

17G1 

40 

0D 

4C 

A3 

0C 

D5 

A2 

OA 

IE 

1279:A3 

0C 

68 

80 

24 

C8 

68 

80 

FA 

1521 

AD 

0E 

ca 

C9 

FF 

DO 

04 

EE 

95 

17G9 

0A 

04 

12 

00 

03 

04 

OA 

0A 

76 

1281:23 

C8 

20 

95 

17 

A9 

01 

60 

88 

1529 

27 

C3 

60 

AD 

32 

ce 

85 

FD 

BD 

1701 

0A 

06 

06 

0E 

02 

02 

06 

06 

52 

1289: AD 

0C 

CB 

80 

35 

C9 

AD 

34 

09 

1531 

AD 

3  3 

C8 

85 

FE 

AC 

28 

C8 

34 

17D9 

0A 

00 

00 

01 

01 

01 

03 

03 

2E 

12  91 :C9 

CD 

1) 

C3 

F0 

05 

CE 

35 

2B 

1539 

B9 

51 

C9 

80 

32 

C9 

AS 

BI 

62 

17E1 

03 

03 

03 

03 

03 

03 

03 

03 

10 

1299sC9 

30 

1.0 

AD 

15 

CB 

F0 

0E 

47 

1541 

iFD 

8D 

31 

C9 

10 

0C 

EE 

27 

46 

17E9 

03 

03 

03 

03 

03 

03 

03 

03 

18 

12A1 :CE 

15 

C8 

CE 

3S 

C9 

30 

03 

AC 

1549 

C8 

AD 

32 

C9 

80 

31 

C9 

4C 

37 

17F1 

03 

00 

02 

00 

00 

01 

02 

02 

EB 

12A9:4C 

9C 

12 

A9 

00 

60 

AO 

35 

0A 

1551 

00 

15 

C9 

04 

D0 

09 

AC 

28 

CE 

17F9 

02 

02 

02 

00 

01 

00 

02 

02 

F7 

12B1 tC9 

80 

0C 

C8 

A9 

01 

60 

A9 

E7 

1559 

:C8 

99 

51 

C9 

4C 

0D 

16 

EE 

C6 

1B01 

03 

00 

00 

00 

00 

01 

02 

00 

BA 

i2B9:01 

3D 

IS 

D0 

4C 

91 

0A 

AD 

DB 

1561 

.27 

CB 

AC 

28 

CB 

4C 

BD 

16 

72 

1809 

00 

0] 

01 

01 

01 

00 

00 

00 

Bl 

12Cl!24 

C8 

C9 

02 

00 

06 

20 

3F 

Al 

1559 

!AE 

28 

C8 

BD 

63 

C9 

48 

BD 

7A 

1811 

00 

00 

00 

00 

01 

00 

FF 

FF 

49 

i2C9!0A 

F0 

EC 

00 

C9 

03 

D0 

10 

D8 

1571 

!C3 

C9 

48 

BD 

23 

CA 

48 

BD 

67 

1819 

00 

01 

00 

10 

0G 

10 

OG 

04 

47 

12D1:20 

3F 

0A 

F0 

E2 

A9 

00 

BD 

71 

1579 

:83 

CA 

48 

BD 

53 

C9 

A8 

B9 

B9 

1821 

04 

04 

04 

00 

01 

02 

03 

00 

EA 

12D9S0C 

C3 

A9 

03 

80 

25 

C8 

60 

BE 

1581 

•14 

18 

9D 

23 

CA 

6D 

39 

G8 

E8 

1829 

03 

02 

01 

02 

01 

m 

03 

03 

AC 

12E1;AD 

05 

C8 

00 

02 

AD 

24 

ce 

A2 

1589 

:69 

03 

90 

C3 

C9 

B9 

18 

18 

96 

1831 

02 

01 

00 

01 

00 

03 

02 

04 

C6 

J2E9:C9 

04 

00 

06 

A9 

00 

BD 

0C 

E2 

15  91 

:9D 

83 

CA 

6D 

38 

C3 

69 

05 

58 

1839 

04 

00 

04 

04 

04 

04 

01 

02 

60 

12Fl:Ca 

60 

C9 

07 

F0 

01 

60 

AD 

36 

IS  99 

:9D 

63 

C9 

B9 

IC 

IB 

BD 

19 

B5 

1841 

04 

04 

04 

04 

03 

04 

04 

04 

69 

12F9:26 

C8 

00 

BB 

AE 

16 

C8 

A9 

42 

15A1 

iC8 

20 

38 

14 

BD 

63 

C9 

F0 

80 

1B49 

00 

03 

04 

04 

04 

01 

00 

03 

22 

1301:02 

8D 

28 

08 

BD 

29 

C8 

A2 

62 

15A9 

:10 

20 

64 

14 

20 

FC 

0A 

AO 

58 

1851 

02 

04 

04 

01 

04 

04 

02 

04 

4C 

1309:02 

A9 

04 

9D 

51 

C9 

A9 

FF 

F9 

15B1 

:1B 

04 

30 

05 

A9 

01 

20 

2A 

B0 

1859 

00 

FF 

00 

01 

04 

0) 

FF 

FF 

BD 

1311 :9D 

45 

C9 

9D 

55 

C9 

9D 

57 

CE 

15B9 

:10 

CE 

19 

C8 

DO 

E3 

68 

90 

03 

1861 

02 

04 

02 

03 

FF 

03 

04 

04 

IC 

1319!C9 

E8 

E0 

06 

D0 

EQ 

A9 

00 

64 

15C1 

i83 

CA 

68 

9D 

23 

CA 

68 

90 

F9 

1869 

:04 

04 

04 

04 

04 

04 

04 

04 

99 

1321 :AA 

90 

63 

C9 

E8 

E0 

60 

D0 

69 

15C9 

!C3 

C9 

68 

9D 

63 

C9 

60 

AC 

DE 

1871 

04 

04 

04 

04 

04 

04 

04 

93 

31 

1329:E8 

EE 

26 

C8 

CE 

0C 

C8 

A2 

B3 

15D1 

:28 

CB 

EE 

3) 

C9 

20 

BD 

16 

93 

1879 

•J] 

43 

4F 

50 

59 

52 

49 

47 

OF 

1331! 51 

BD 

3E 

C8 

C9 

12 

F0 

06 

42 

1509 

:AC 

29 

C8 

ce 

CO 

06 

90 

01 

BA 

1881 

48 

54 

20 

33 

39 

38 

37 

20 

3B 

13  39:CA 

10 

F6 

4C 

BB 

12 

BD 

E0 

D6 

15E1 

:60 

ac 

29 

C8 

CE 

31 

C9 

CE 

AE 

1889 

43 

4F 

40 

50 

5  5 

54 

45 

21 

85 

1341:CB 

CD 

0F 

C8 

00 

F2 

8A 

AE 

C3 

15E9 

:31 

C9 

4C 

BD 

16 

D0 

04 

EE 

6F 

1891 

20 

50 

55 

42 

4C 

49 

43 

41 

04 

1349:16 

C8 

90 

E5 

CA 

AS 

20 

Fl 

E9 

15F1 

:25 

C8 

60 

C9 

12 

00 

14 

8A 

10 

J  899 

.54 

49 

4F 

4E 

53 

0D 

41 

4C 

B2 

1351 :0C 

AO 

23 

C8 

80 

47 

C9 

AD 

A4 

15F9 

=  43 

A2 

00 

AD 

C6 

17 

D9 

E0 

F2 

18A1 

4C 

20 

52 

49 

47 

48 

54 

53 

36 

1359:24 

C8 

8D 

40 

C9 

8D 

24 

CB 

DF 

1601 

:C3 

F0 

01 

ES 

A9 

FF 

9D 

ES 

EA 

.18A9 

:20 

52 

45 

53 

45 

52 

56 

45 

CI 

136] :20 

0B 

0D 

B9 

8F 

C8 

BD 

53 

A5 

1609 

:CA 

68 

AA 

60 

20 

40 

0D 

AD 

D9 

3  8B1 

•44 

0D 

11 

11 

12 

41 

4E 

59 

06 

1369:C9 

A9 

00 

8D 

27 

C8 

A0 

02 

57 

1611 

[00 

ce 

20 

EE 

15 

A9 

77 

8D 

2E 

J8B9 

:20 

4B 

45 

59 

20 

54 

4F 

20 

IG 

1371 iBC 

28 

CB 

B9 

51 

C9 

C9 

04 

E5 

1619 

:22 

C8 

20 

ei 

0C 

A9 

77 

AC 

47 

18C1 

43 

4F 

4E 

54 

49 

4E 

55 

45 

E9 

1379:F0 

ID 

B9 

45 

C9 

8D 

23 

C8 

7E 

1621 

|12 

ca 

99 

E0 

ca 

A2 

00 

BD 

58 

18G9 

.00 

00 

81 

4C 

0F 

03 

FE 

FE 

70 

1381 :B9 

4B 

C9 

8D 

24 

CB 

20 

40 

2E 

1629 

:63 

C9 

F0 

06 

EB 

E0 

60 

DO 

54 

3  803 

:FE 

FE 

FE 

03 

FB 

FB 

FB 

EA 

04 

13B9:0D 

20 

69 

15 

AC 

28 

ca 

20 

74 

1631 

tF6 

60 

8E 

41 

C9 

A9 

04 

20 

F3 

18D9 

A6 

03 

EF 

EF 

EF 

EF 

AF 

FE 

Be 

13  93  :  74 

16 

F0 

03 

20 

0E 

15 

EE 

18 

1639 

:91 

0A 

A0 

00 

AE 

41 

G9 

20 

F2 

18E1 

iFE 

FE 

01 

FE 

03 

95 

A& 

AA 

C7 

1399:28 

C8 

AC 

29 

C8 

CC 

29 

C8 

B2 

1641 

:CE 

0C 

6D 

38 

ca 

90 

63 

C9 

56 

18E9 

01 

AA 

03 

AF 

AF 

AF 

0] 

AF 

8E 

)3AI:F0 

01 

90 

CF 

AD 

27 

ce 

D0 

30 

1649 

:9D 

34 

03 

20 

CE 

0C 

60 

39 

6E 

3BF1 

05 

FA 

FB 

FB 

FB 

FB 

FB 

02 

6C 

13A9:C0 

A9 

0F 

80 

33 

C9 

A9 

0A 

73 

1651 

:C8 

9D 

C3 

C9 

90 

94 

03 

20 

C3 

18F9 

■AA 

02 

55 

7D 

7D 

02 

AF 

EF 

G5 

13B1:8D 

IE 

C8 

AD 

IE 

C8 

20 

2A 

98 

1659 

:AD 

36 

9D 

23 

CA 

20 

AD 

16 

10 

1901 

EF 

EF 

EF 

EF 

FB 

FB 

FB 

FB 

E7 

13B9iJ0 

CE 

IE 

C8 

10 

03 

EE 

IE 

74 

1661 

!90 

83 

CA 

ID 

2  3 

CA 

F0 

EF 

7E 

1909 

FB 

FA 

02 

7D 

7D 

55 

02 

AA 

FF 

13C1 :CB 

A2 

00 

BE 

27 

CB 

20 

38 

B2 

1669 

:E8 

C8 

E0 

60 

F0 

04 

G0 

20 

97 

1911 

02 

EF 

EF 

EF 

EF 

EF 

AF 

0C 

E7 

13C9:14 

BD 

63 

G9 

F0 

0B 

20 

64 

BE 

1671 

:D0 

CD 

60 

B9 

51 

G9 

AA 

BO 

E5 

1919 

E7 

E7 

E7 

E7 

E7 

E7 

10 

E7 

9B 

1.301  !l4 

A9 

01 

80 

27 

CB 

AD 

33 

50 

1679 

1 14 

18 

18 

79 

45 

C9 

30 

24 

26 

1921 

E7 

E7 

E7 

E7 

E7 

11 

FA 

07 

30 

]3D9:G9 

00 

35 

BD 

63 

C9 

48 

BD 

2C 

1681 

:C9 

09 

F0 

20 

80 

IE 

99 

45 

6B 

1929 

AA 

07 

AF 

F5 

07 

55 

07 

5F 

C2 

13E] :C3 

C9 

48 

BD 

34 

03 

9D 

63 

BD 

1689 

:C9 

8D 

23 

C3 

BD 

13 

18 

13 

85 

1931 

0A 

FA 

FD 

07 

7F 

AF 

D7 

FA 

BC 

)3E9:C9 

BD 

94 

03 

9D 

C3 

C9 

20 

D6 

1691 

:79 

4B 

C9 

30 

0F 

C9 

09 

F0 

2C 

1939 

10 

FO 

07 

7F 

AF 

DF 

13 

FO 

EC 

)3F] :3B 

14 

BD 

C3 

C9 

90 

94 

03 

IE 

1699 

:0B 

B0 

09 

99 

4B 

C9 

8D 

24 

F2 

1941 

tFA 

04 

DF 

AF 

7F 

03 

FD 

FA 

E7 

13F9:BD 

63 

C9 

9D 

34 

03 

F0 

08 

82 

16A1 

sCB 

A9 

01 

60 

A9 

04 

99 

51 

A4 

1949 

04 

D7 

AF 

7F 

10 

F5 

01 

FA 

B6 

1401 :A9 

0] 

60 

27 

C8 

20 

64 

14 

06 

16A9 

:C9 

A9 

00 

60 

AD 

IB 

D4 

30 

DE 

1951: FA 

FA 

03 

55 

EB 

AA 

AA 

AA 

7F 

1409:63 

9D 

C3 

C9 

68 

9D 

63 

C9 

2C 

16B1 

!04 

20 

CE 

0C 

60 

20 

CE 

0C 

AF 

1959 

03 

5F 

01 

AF 

AF 

AF 

FA 

FA 

2D 

14H:E8 

E0 

60 

90 

Bl 

AD 

33 

C9 

6F 

16B9 

:20 

EB 

0C 

60 

AD 

31 

C9 

29 

A6 

1961 

FA 

FA 

FA 

03 

AA 

AA 

AA 

AA 

SF 

143  9:F0 

12 

CE 

33 

C9 

D0 

0D 

A9 

A0 

16C1 

.03 

BD 

31 

C9 

AD 

00 

C8 

C9 

5E 

J  969 

AA 

03 

AF 

AF 

AF 

AF 

AF 

06 

44 

1421:77 

80 

lA 

C8 

20 

04 

0A 

A9 

07 

16C9 

!0E 

D0 

36 

A2 

00 

BO 

57 

C9 

91 

1971 

FA 

FA 

FA 

FA 

FA 

03 

AA 

AA 

02 

1429:08 

8D 

IE 

ca 

AO 

27 

C8 

F0 

95 

1601 

:CD 

12 

C8 

00 

0E 

BD 

50 

C9 

7B 

3  979 

AA 

AA 

AA 

03 

DF 

DF 

DF 

9F 

OF 

1431:33 

4C 

B4 

13 

4G 

69 

09 

BO 

8D 

16D9 

.CD 

31 

C9 

00 

06 

A9 

04 

99 

F7 

1981 

9F 

FA 

FA 

FA 

FA 

FA 

03 

AA 

C5 

1439:63 

C9 

F0 

26 

18 

70 

23 

CA 

CD 

16E1 

5) 

G9 

60 

ES 

E0 

06 

D0 

E5 

6A 

1989 

AA 

AA 

AA 

AA 

03 

9F 

9F 

DF 

71 

1441 :C9 

9F 

90 

08 

A9 

00 

90 

63 

B4 

16E9 

!A2 

00 

BD 

57 

C9 

30 

06 

E8 

98 

1991 

DF 

OF 

06 

FA 

FA 

FA 

FA 

FA 

00 

1449:C9 

4C 

63 

14 

90 

63 

C9 

BD 

E2 

16F1 

:E0 

06 

00 

F6 

60 

AD 

12 

CB 

40 

1999 

03 

AA 

AA 

AA 

AA 

AA 

03 

AF 

AD 

1451  !C3 

C9 

10 

7D 

83 

CA 

9D 

C3 

EE 

16F9 

!9D 

S7 

C9 

AD 

31 

C9 

9D 

5D 

28 

19A1 

AF 

AF 

AP 

AF 

FA 

FA 

FA 

01 

43 

]459:C9 

C9 

C7 

90 

05 

A9 

00 

9D 

47 

1701 

:C9 

AD 

31 

C9 

99 

51 

C9 

AD 

95 

19A9 

F5 

03 

AA 

AA 

AA 

EB 

55 

03 

4A 

1461:63 

C9 

60 

BA 

48 

98 

48 

BO 

55 

1709 

23 

ca 

99 

45 

C9 

AD 

24 

G8 

98 

19B1 

AF 

AF 

AF 

01 

5F 

05 

F7 

F7 

AB 

1469:63 

C9 

4A 

4A 

80 

00 

15 

BD 

2C 

1711 

99 

4B 

C9 

60 

A9 

07 

8D 

27 

C9 

19B9 

F7 

F6 

F6 

03 

AA 

AA 

AA 

AA 

B4 

147l:C3 

C9 

4A 

4A 

4A 

80 

0C 

15 

91 

1719 

!D0 

AD 

24 

C8 

0A 

0A 

0A 

0A 

C2 

19C1 

AA 

03 

AF 

AF 

AF 

AF 

AF 

F6 

80 

1479 :A9 

00 

8D 

36 

C9 

AD 

0C 

15 

BD 

1721 

69 

48 

80 

42 

C9 

AD 

23 

G3 

FF 

19C9 

F6 

F7 

F7 

P7 

03 

AA 

AA 

AA 

B6 

1481 :0A 

2E 

36 

C9 

0A 

2E 

36 

C9 

DC 

1729 

C9 

09 

F0 

35 

0A 

0A 

0A 

80 

OA 

19D1 

AA 

AA 

03 

AF 

AF 

AF 

AF 

AF 

AA 

1489:0A 

2E 

36 

C9 

0A 

2E 

36 

C9 

E4 

1731 

41 

C9 

0A 

6D 

41 

C9 

69 

50 

DE 

19D9 

10 

FD 

F6 

DA 

03 

OF 

6F 

AF 

46 

14  91 ;0A 

22 

36 

C9 

0A 

2E 

36 

C9 

EC 

1739 

8D 

4) 

C9 

90 

08 

A9 

01 

80 

37 

19E1 

AF 

AF 

01 

FD 

F6 

DA 

04 

6A 

6D 

1499:80 

35 

C9 

AD 

36 

C9 

10 

6D 

60 

1741 

10 

00 

4C 

4B 

17 

A9 

00 

8D 

D6 

19E9 

AA 

AA 

AA 

04 

AF 

AF 

AF 

AF 

FC 

14A1S0C 

IS 

8D 

36 

C9 

A9 

00 

8D 

AC 

1749 

10 

D0 

AD 

41 

C9 

8D 

00 

D0 

02 

19F1 

07 

F7 

F9 

FA 

FA 

FA 

05 

7F 

El 

14A9:38 

C9 

AD 

0D 

15 

0A 

2E 

38 

4C 

1751 

AD 

42 

C9 

8D 

01 

00 

A9 

01 

98 

19F9 

9F 

A7 

08 

FA 

FA 

PA 

FA 

04 

54 

14B1IC9 

0A 

2E 

38 

C9 

0A 

2E 

38 

95 

17  59 

8D 

15 

D0 

A9 

4F 

BD 

F8 

57 

42 

1A01 

A9 

AA 

AA 

AA 

05 

7F 

9F 

A7 

CI 

14B9!C9 

80 

37 

C9 

19 

6D 

35 

C9 

58 

1761 

60 

A9 

00 

8D 

10 

00 

A9 

38 

52 

1A09 

07 

DA 

F6 

FD 

05 

AA 

AA 

AA 

09 

14C1:8D 

35 

C9 

AD 

36 

C9 

6D 

3B 

FD 

1769 

80 

00 

DO 

AD 

42 

G9 

8D 

01 

A8 

lAll 

6A 

DA 

03 

AF 

AF 

AF 

AF 

AF 

D7 

14C9:C9 

8D 

38 

C9 

80 

35 

C9 

BD 

74 

1771 

00 

60 

BD 

3E 

C8 

99 

3E 

C8 

AD 

1A19 

0B 

F5 

FD 

06 

AF 

AF 

6F 

DF 

2A 

14D1:C3 

C9 

29 

07 

18 

6D 

35 

C9 

8E 

1779 

BD 

8F 

C8 

99 

BF 

G8 

BO 

EO 

19 

1A21 

07 

FA 

FA 

FA 

FA 

FA 

03 

AA 

IB 

1409:30 

35 

C9 

AD 

36 

C9 

69 

60 

36 

1781 

C8 

99 

E0 

CB 

60 

AD 

36 

C8 

12 

1A29 

AA 

AA 

A9 

A7 

03 

A7 

9F 

7F 

82 

14E1:80 

36 

C9 

8E 

41 

C9 

BD 

63 

90 

1789 

80 

2E 

ca 

AD 

37 

C8 

3D 

2F 

25 

)A31 

02 

FA 

FA 

F9 

F7 

04 

9F 

7F 

B2 

14E9:C9 

29 

03 

AA 

AD 

35 

C9 

65 

A7 

179) 

C8 

4C 

5C 

0C 

20 

86 

17 

20 

EC 

1A39 

14 

FO 

F5 

03 

F7 

DS 

53 

55 

FC 

14?lsFD 

AD 

36 

C9 

85 

PE 

A0 

00 

51 

1799 

0B 

00 

AE 

13 

C8 

20 

73 

17 

5C 

JA41 

55 

OS 

7F 

5F 

57 

FA 

FA 

06 

E9 

COMPUTSIs  Gazette  Special  1986  Issue        B5 


1A49 

:AA 

AA 

06 

AB 

AB 

0A 

FE 

FE 

7B 

08E1:OB 

0F 

17 

20 

37 

2F 

32 

37 

B0 

0889:85 

62 

A9 

01 

3D 

E2 

BB 

AO    FB 

IAS) iFE 

FE 

04 

7F 

5F 

57 

55 

08 

48 

08E9:2E 

2E 

2E 

00 

2E 

2E 

2E 

0B 

F0 

0B91:E1 

08 

49 

FF 

29 

08 

FO 

1  8   E7 

lA59iFE 

FE 

FE 

FE 

FE 

03 

55 

55 

A0 

08Fi:0F 

07 

20 

03 

01 

0C 

0C 

09 

D8 

0899 :AS 

62 

C9 

94 

F0 

12 

AS 

6)     lA 

1A61;57 

5F 

7F 

03 

7F 

0D 

FA 

FA 

5A 

08F9:0E 

07 

20 

03 

0F 

0E 

14 

05 

E4 

0BA1:)8 

69 

64 

85 

61 

A5 

62 

69    02 

].A69:06 

AA 

AA 

06 

AB 

AD 

F5 

FD 

F6 

0901:13 

14 

20 

38 

2F 

35 

2E 

2E 

02 

BBA9:O0 

85 

62 

A9 

02 

3D 

E2 

08    )F 

JA7I:06 

55 

55 

55 

D5 

F7 

03 

57 

E9 

0909 :2E 

00 

2E 

2E 

2E 

02 

01 

13 

69 

BBBl :AD 

El 

BB 

49 

FF 

29 

IB 

FO    C2 

JA79i5F 

7F 

11 

FD 

F5 

D5 

55 

04 

F4 

0  911: OB 

05 

14 

02 

01 

0C 

0C 

20 

FC 

0BD9:1F 

E6 

6B 

A9 

96 

35 

67 

A9    64 

lASJtBF 

BF 

BF 

BF 

FD 

07 

55 

55 

35 

0919:13 

01 

0D 

20 

26 

20 

05 

04 

58 

0DCI;0O 

35 

6A 

85 

68 

85 

66 

AB    83 

JAa9iD5 

F5 

FD 

03 

BF 

BF 

BF 

DF 

52 

0921i2E 

2E 

2E 

00 

A9 

FF 

BD 

IS 

19 

SDC9:E2 

08 

BO 

DB 

0B 

85 

65 

DD   30 

3.A9]  iHF 

0E 

FB 

F7 

FB 

F7 

FB 

10 

EF 

0929:D0 

A9 

80 

8D 

91 

02 

A9 

01 

DF 

0BD1  :DE 

0D 

85 

69 

46 

66 

66 

65    SF 

JA99:EA 

E6 

A6 

66 

6A 

AA 

04 

BF 

FD 

0931:8D 

B0 

0C 

BD 

BB 

0C 

A9 

93 

85 

0BO9:EA 

60 

00 

32 

32 

00 

00 

0)     33 

1AA].:7F 

7F 

BF 

07 

F9 

FA 

FA 

05 

94 

0939:20 

D2 

FF 

A9 

8E 

20 

D2 

FF 

45 

0BE1:00 

00 

A9 

94 

85 

62 

A9 

00    7F 

1AA9!BF 

BF 

AB 

08 

F9 

FA 

FA 

F9 

4F 

0941 :A9 

B0 

A2 

05 

90 

C8 

13 

CA 

F9 

0BE9:B5 

61 

A9 

00 

85 

69 

46 

66    15 

).AB]  :04 

66 

AB 

BF 

BF 

04 

6F 

12 

Fl 

0949:10 

FA 

A9 

00 

8D 

CE 

13 

8D 

B2 

08F1 :66 

65 

20 

07 

17 

60 

AS 

61    EF 

)AB9sAA 

6A 

66 

A6 

E6 

03 

BF 

7F 

57 

0951 iCF 

13 

A9 

05 

60 

EB 

12 

20 

E9 

0BF9:38 

E5 

65 

85 

61 

AS 

62 

ES    F6 

1AC1:7F 

BF 

09 

EA 

FB 

F7 

FB 

F7 

25 

0959:88 

12 

20 

A4 

15 

20 

DO 

13 

92 

0C0J :66 

35 

62 

A5 

62 

C9 

FA 

D0    3  5 

1AC9SFB 

17 

FE 

FE 

EA 

05 

6F 

AF 

8B 

0961 :A9 

81 

8D 

0D 

DC 

20 

3B 

18 

21 

OC09tOl 

60 

A9 

00 

85 

61 

85 

62    0E 

JADl :AF 

F9 

07 

99 

EA 

FE 

FE 

04 

2C 

0969 :8D 

OD 

DC 

A9 

FF 

8D 

00 

DC 

CE 

0C] l!A9 

01 

35 

69 

46 

66 

66 

65    83 

JAD9j6F 

AF 

AF 

6F 

05 

D5 

DF 

DF 

BD 

0971:20 

51 

16 

A9 

B0 

8D 

3D 

04 

7B 

0C1 9i20 

07 

17 

60 

AS 

6B 

F0 

17    BF 

lAE ] t DF 

DE 

DE 

DE 

01 

55 

01 

EB 

D2 

0979:A9 

0] 

8D 

69 

16 

A9 

0C 

8D 

E5 

0C21 :AS 

6A 

F0 

30 

A5 

63 

13 

65    E6 

J.AE9tBE 

04 

57 

F7 

F7 

F7 

B7 

B7 

AF 

0931:20 

DO 

A9 

OA 

BD 

13 

04 

A9 

CO 

0C29:67 

85 

63 

A5 

64 

65 

68 

85    2C 

1AF1tB7 

DE 

DE 

DF 

DF 

DF 

DF 

D5 

A7 

0989 :0F 

80 

21 

DO 

A9 

E4 

80 

F8 

AC 

0C31 :64 

AS 

64 

C9 

83 

B0 

0) 

60    77 

1AF9:03 

BE 

EB 

02 

55 

01 

B7 

B7 

02 

0991:07 

A9 

E0 

8D 

F9 

07 

A9 

00 

cs 

0C39:A9 

87 

85 

64 

A9 

00 

85 

63    BA 

1B01SF7 

B7 

E7 

F7 

57 

02 

D5 

DF 

EB 

0999:8D 

27 

DO 

A9 

00 

80 

28 

00 

48 

0C41 :A9 

00 

85 

6A 

45 

68 

66 

67    BD 

],  809  s  DE 

DE 

DE 

DE 

DE 

01 

55 

01 

D6 

09A1:A9 

08 

80 

29 

DO 

A9 

00 

8D 

39 

0C49:A5 

67 

4A 

4A 

4A 

4A 

4A 

4A    56 

J.81]  sAA 

02 

FE 

AB 

01 

57 

F7 

F7 

05 

09A9:2A 

D0 

A9 

0E 

80 

2B 

D0 

A9 

7F 

0C55 :4A 

05 

68 

85 

68 

20 

07 

17    36 

1B)9!B7 

B7 

F7 

F7 

DE 

DE 

DE 

DE 

A6 

09B1:00 

8D 

2C 

D0 

80 

2D 

00 

8D 

0A 

0C59:AS 

65 

05 

66 

F0 

02 

C6 

65    27 

IB21jDE 

DF 

D5 

0) 

FB 

FE 

FE 

03 

66 

09B9:2E 

D0 

A9 

01 

80 

AB 

0C 

80 

10 

0C6] :60 

A5 

63 

38 

E5 

67 

85 

63    3E 

JB29I55 

0) 

F7 

F7 

F7 

B7 

B7 

F7 

CE 

09C1:AA 

0C 

8D 

B6 

0C 

BD 

BS 

0C 

57 

0C69:AS 

64 

E5 

68 

85 

64 

AS 

64    IE 

1B31.I57 

03 

FE 

FE 

FE 

FE 

FE 

S3 

98 

09C9:A9 

00 

8D 

A6 

0C 

80 

Bl 

0C 

D2 

0C7) :C9 

FA 

D0 

01 

60 

A9 

00 

BS    82 

IB39jAA 

AA 

AA 

AA 

AA 

03 

DF 

BF 

10 

09D1:A9 

00 

8D 

AS 

0C 

80 

B3 

0C 

FE 

0C79:63 

85 

64 

A9 

01 

85 

5A 

46   0  5 

l.B41:BF 

BF 

BF 

02 

FE 

FE 

FE 

FE 

50 

09D9:A9 

32 

80 

A7 

OC 

A9 

IE 

8D 

4A 

0C3)  :68 

66 

67 

20 

07 

17 

50 

A0   4C 

].Q49:FE 

03 

AA 

AA 

AA 

AA 

AA 

03 

18 

09E1:B2 

0C 

A9 

32 

8D 

A9 

0C 

8D 

61 

0C89:)0 

B9 

95 

0C 

99 

00 

00 

83    32 

IB  51 :BF 

BF 

BF 

BF 

BF 

05 

FE 

FA 

56 

09E9:B4 

0C 

20 

75 

0A 

A9 

FO 

8D 

IB 

0C91  :10 

F7 

60 

00 

00 

00 

00 

00    BB 

)Q59sEA 

EA 

EA 

02 

AA 

AA 

00 

2A 

67 

09F1:FD 

07 

8D 

FS 

07 

80 

FF 

07 

DD 

0C99:00 

00 

00 

00 

00 

00 

00 

00    D) 

1.B61E2A 

00 

03 

BF 

AF 

AB 

AB 

AB 

38 

09F9:A9 

80 

85 

61 

35 

63 

A9 

49 

)E 

0CA1 : 00 

00 

00 

00 

00 

00 

00 

00    99 

IB69:EA 

EA 

FA 

FE 

04 

2A 

2A 

2A 

66 

0A01;85 

64 

A9 

03 

85 

62 

A0 

05 

52 

0CA9:00 

00 

00 

00 

00 

00 

00 

00   Gl 

IB  71  lAA 

AA 

03 

AB 

AU 

AF 

BF 

04 

62 

0A09:20 

50 

0A 

20 

2A 

0A 

A9 

47 

98 

0CB1 :00 

00 

00 

00 

00 

00 

00 

00   C9 

1B79 

00 

00 

00 

00 

00 

00 

OC 

E7 

AF 

0A11:85 

62 

A0 

06 

20 

50 

0A 

20 

6B 

0CB9:00 

00 

00 

A2 

0A 

BO 

A5 

0C   9C 

IB81 

80 

12 

94 

00 

IE 

E7 

00 

12 

Bl 

0A19;2A 

0A 

A9 

8F 

05 

62 

AO 

07 

FB 

0CCl!95 

61 

CA 

10 

F3 

20 

El 

FF   6  3 

1B69 

94 

00 

12 

97 

80 

00 

00 

00 

C9 

0A21:20 

50 

0A 

20 

2A 

0A 

4C 

BC 

6B 

0CC9  5  D0 

06 

A9 

81 

8D 

BD 

DC 

60    03 

IB  91 

12 

64 

80 

12 

94 

80 

0C 

94 

6E 

0A29:0C 

98 

AA 

0A 

AS 

AO 

F5 

0A 

51 

0CD1:AD 

8D 

02 

29 

02 

C9 

02 

DO    03 

IB99 

83 

34 

94 

80 

04 

63 

30 

03 

59 

3A31:99 

96 

0C 

BD 

FE 

0A 

2D 

A5 

35 

0CD9!lB 

AD 

8D 

02 

29 

02 

C9 

02    A3 

IBAJ 

00 

06 

74 

B9 

E9 

84 

A5 

02 

32 

0A39:0C 

8D 

A5 

0C 

A5 

60 

F0 

09 

F9 

0CE1 !F0 

F7 

AD 

8D 

02 

29 

02 

C9    81 

1BA9 

64 

B9 

C4 

14 

A5 

04 

E3 

25 

84 

0A4l!BD 

F6 

0A 

0D 

AS 

0C 

8D 

A5 

22 

0CE9!02 

00 

F7 

AD 

3D 

02 

29 

02   09 

1 BB  T I E3 

00 

00 

04 

00 

00 

00 

00 

9a 

0A49 : 0C 

A5 

6C 

99 

95 

0C 

60 

AS 

37 

0CF1:C9 

02 

F0 

F7 

EA 

AD 

61 

17    F4 

0A51:64 

18 

69 

32 

80 

F5 

0A 

A9 

EF 

0CF9tF0 

00 

CE 

61 

17 

AD 

6.1 

)7    07 

0A59:O0 

85 

60 

A5 

62 

85 

6C 

A5 

7E 

0001 :D0 

05 

A9 

80 

SD 

04 

D4 

A2   CA 

Basketball  Sam  &  Ed 

0A61:61 
0A69:18 

OA 
69 

26 
18 

6C 
85 

26 
6C 

60 

AS 

A5 
6D 

6C 
69 

02 
7D 

0009:00 
0D11 : ID 

20 
0C 

06 
A2 

0B 
00 

20 
20 

3A 
06 

0D 
BB 

20  BC 
20   60 

0A71:00 

85 

6D 

60 

A2 

3F 

BD 

2A 

52 

0D]9:3A 

0B 

20 

ID 

0C 

A2 

00 

20    F3 

See  instructions 

IK 

article 

on 

page 

0A79:0E 
0A81 : 80 

90 
38 

00 
9D 

3S 
CO 

9D 
38 

40 
BD 

38 
2A 

9D 
0F 

7B 

BF 

0021:06 
0O29:A2 

0B 
00 

20 
20 

3A 
31 

0B 
11 

20 
A0 

10 
01 

BC  C7 
20    D8 

12  before  typing  in 

0A89:9D 

00 

3B 

9D 

40 

38 

90 

80 

58 

0D31:50 

0A 

20 

2A 

0A 

A0 

02 

20    93 

0A91:3B 

9D 

C0 

38 

BO 

6A 

0F 

90 

C9 

0039:50 

0A 

20 

2A 

0A 

A2 

0A 

135    49 

Program  1 

:  Basketball  Sam  &  Ed 

0A99t00 
0AA1:6A 

3C 
0E 

CA 
9D 

10 
00 

D9 
39 

A2 
90 

BF 
C0 

BD 
39 

AO 
ID 

0D41 :61 
0049 :0A 

90 
BD 

A6 
Bl 

0C 
0C 

CA 
95 

10 
61 

F8 
CA 

A2  34 
)0   A6 

000) !0C 

0B 

0A 

00 

9E 

20 

32 

30 

64 

aAA9:CA 

EO 

FF 

D0 

F2 

A2 

0B 

BD 

5E 

0051  I F3 

A2 

01 

20 

06 

0B 

20 

3A   89 

0*309  t  36 

32 

00 

00 

00 

4C 

25 

09 

45 

0AB1:C3 

0A 

BC 

CF 

0A 

8E 

F4 

0A 

3D 

0059:08 

20 

10 

0C 

A2 

01 

20 

06    C4 

0B)  ]  5A9 

7F 

8D 

0D 

DC 

A9 

FF 

8D 

73 

OAB9:20 

DB 

0A 

AE 

F4 

0A 

CA 

10 

76 

0061 :0D 

20 

3A 

08 

20 

10 

0C 

A2    31 

081 9; 00 

DC 

AD 

11 

D0 

29 

80 

DO 

24 

0AC1:EE 

60 

El 

E3 

E7 

E8 

E9 

EO 

84 

0D69:01 

20 

06 

OB 

20 

3A 

0B 

20    90 

082) iF9 

AD 

12 

D0 

D0 

FB 

A9 

8) 

34 

0AC9:EE 

E2 

E3 

EB 

EE 

EF 

01 

01 

83 

0071:10 

0C 

A2 

01 

20 

31 

11 

A0    0A 

0829:80 

0D 

DC 

60 

2E 

2E 

2E 

0E 

79 

OAD1:01 

01 

01 

01 

01 

00 

00 

00 

DE 

0079:03 

20 

50 

0A 

20 

2A 

0A 

A0    26 

083]  :0F 

20 

13 

0D 

0F 

0B 

09 

0E 

ca 

OAD9:fl0 

00 

A2 

00 

86 

FC 

85 

FB 

71 

0D8) :04 

20 

50 

0A 

20 

2A 

0A 

A2    D0 

0839:07 

20 

09 

OE 

20 

14 

08 

05 

3D 

0AEJ.:06 

FD 

26 

FC 

E8 

E0 

06 

D0 

34 

0089 :0A 

B5 

61 

9D 

81 

0C 

CA 

)0    7F 

0841 :20 

0] 

15 

04 

09 

14 

0F 

12 

4D 

0AE9:F7 

C0 

00 

D0 

03 

4C 

CF 

0D 

2D 

0D91:F8 

20 

11 

03 

20 

88 

0C 

20    2E 

0849:09 

15 

0D 

2E 

2E 

2E 

00 

2E 

FF 

0AF1:4C 

FB 

00 

00 

00 

01 

02 

04 

08 

0099 :2F 

10 

20 

99 

11 

AD 

69 

16    15 

085) :2E 

2E 

10 

0C 

05 

01 

13 

05 

IE 

0AF9:08 

1,0 

20 

40 

80 

FE 

FD 

FB 

16 

0DAliF0 

13 

AD 

BB 

0C 

00 

D0 

0C    AD 

0859:20 

15 

13 

05 

20 

14 

12 

01 

E7 

0B01:P7 

EF 

DF 

BF 

7P 

A5 

68 

F0 

61 

0OA9:O0 

10 

8D 

69 

16 

EE 

3B 

04    SF 

086)  :13 

08 

20 

12 

05 

03 

05 

10 

70 

0B09:)4 

20 

F7 

12 

A5 

6A 

F0 

0E 

18 

0081; AD 

3B 

04 

C9 

BS 

00 

03 

4C    01 

0869:14 

01 

03 

BC 

05 

13 

2B 

2E 

E3 

0Bil:A5 

67 

18 

69 

03 

85 

67 

A5 

10 

0DB9:6A 

16 

AD 

2E 

10 

18 

69 

10    EA 

0871 :2E 

00 

2E 

2E 

2E 

0F 

16 

05 

20 

0819:68 

69 

00 

8S 

68 

60 

A5 

67 

80 

0001:80 

2E 

10 

DO 

06 

20 

AA 

0F    52 

0879:12 

14 

09 

OD 

05 

21 

2E 

2E 

C0 

0B21:38 

E9 

01 

85 

67 

A5 

68 

E9 

02 

0DC9:2fl 

0C 

16 

4C 

BC 

0C 

20 

F0   CS 

0881 i2E 

00 

2E 

2E 

2E 

IS 

10 

03 

3A 

0B29:00 

85 

68 

90 

01 

60 

A9 

00 

93 

0001 :0D 

A0 

00 

A2 

3C 

20 

E8 

00   06 

0889 :0F 

0D 

09 

OE 

07 

20 

03 

OF 

34 

0831:85 

67 

85 

68 

A9 

01 

BS 

6A 

El 

0009:20 

E8 

00 

20 

E8 

00 

CA 

CA   BD 

0B95.:0C 

09 

13 

05 

15 

0D 

20 

05 

BE 

0B39:6O 

A5 

6B 

F0 

IE 

A5 

69 

00 

90 

0OE1 :CA 

CA 

CA 

CA 

10 

EF 

60 

BD   08 

0899:]6 

05 

0E 

14 

13 

3A 

00 

2E 

A8 

0B41SO3 

4C 

F7 

OB 

A5 

61 

13 

65 

E3 

0DE9:00 

CF 

91 

FB 

C8 

E3 

60 

AO    35 

08A1:2E 

2E 

12 

05 

07 

09 

OF 

OE 

6F 

0B49:65 

85 

6) 

A5 

62 

65 

66 

85 

F4 

0DFlt3F 

Dl 

FB 

99 

00 

CF 

B8 

10    91 

08A9!0) 

0C 

20 

14 

09 

04 

04 

0C 

EE 

0BS1:62 

A5 

62 

C9 

95 

90 

03 

4C 

2C 

0DF9:F3 

60 

20 

F0 

00 

A0 

00 

B9    6B 

0651:19 

17 

09 

OE 

0B 

20 

03 

0F 

04 

0B59:E3 

OB 

60 

A9 

00 

30 

E2 

0B 

Dl 

0E01:00 

CF 

48 

B9 

02 

CF 

99 

00    38 

08B9!0E 

14 

05 

13 

14 

20 

37 

2F 

66 

0B61:AD 

69 

15 

F0 

0) 

60 

EA 

BD 

97 

0E09:CF 

68 

99 

02 

CF 

ca 

C8 

ca   76 

08Cl:3t 

2E 

2E 

2E 

00 

2E 

2E 

2E 

E) 

0B69:00 

DC 

80 

El 

0B 

20 

63 

17 

3D 

0E11:C0 

42 

D0 

EB 

A0 

3F 

B9 

00    6C 

0OC9:0H 

01 

14 

09 

0F 

0E 

01 

0C 

F2 

0B71:AD 

E) 

0B 

49 

FF 

29 

04 

F0 

6A 

0E19:CF 

A2 

07 

4A 

26 

FO 

CA 

10    )A 

08D1  :20 

0D 

09 

03 

12 

0F 

03 

0F 

6a 

0B79:16 

A5 

62 

F0 

12 

AS 

61 

38 

81 

0E21JFA 

AS 

FD 

91 

FB 

88 

10 

EE    0E 

0BD9 

an 

JO 

15 

14 

05 

12 

20 

)3 

IC 

0B81:E9 

64 

65 

61 

A5 

62 

E9 

00 

F6 

0E29:60 

00 

00 

00 

00 

00 

00 

00    75 

86    COMPUWs  Gazette  Special  )9SS  Issue 


0E31: 

64 

00 

03 

CF 

80 

07 

9E 

00 

3A 

10D9! 

40 

10 

08 

18 

10 

10 

OB 

18 

89 

1381; 

DO 

IC 

A9 

BO 

9D 

CC 

13 

FE 

9C 

0E39: 

17 

3C 

F0 

17 

39 

F8 

37 

39 

D4 

10E1: 

10 

20 

10 

08 

40 

10 

10 

10 

07 

1389: 

CA 

13 

BD 

CA 

13 

C9 

BA 

DO 

44 

0E4l! 

F8 

33 

33 

F0 

13 

33 

C4 

20 

2B 

10E9- 

10 

10 

08 

28 

10 

10 

10 

10 

B^ 

1391: 

0D 

A9 

BO 

9D 

CA 

13 

FE 

C8 

02 

0E49! 

00 

IC 

32 

33 

FC 

13 

39 

F8 

85 

10Fli 

10 

08 

28 

08 

08 

08 

0B 

03 

lA 

1399 

13 

A9 

04 

BD 

E8 

12 

AO 

CB 

CO 

0ESl! 

13 

3C 

F0 

07 

3E 

00 

03 

9F 

2C 

10F9 

10 

08 

10 

OB 

IB 

10 

03 

08 

BF 

13A1 

13 

8D 

32 

04 

AD 

CA 

13 

80 

91 

0E59: 

C0 

00 

CE 

00 

00 

00 

00 

00 

AF 

1101: 

08 

08 

08 

08 

OS 

18 

00 

FF 

4B 

13A9 

83 

04 

AD 

CC 

13 

8D 

84 

04 

F0 

0E61  : 

00 

00 

00 

00 

00 

00 

00 

00 

7D 

1109 

10 

12 

15 

19 

IC 

21 

13 

16 

8D 

13B1 

AD 

C9 

13 

80 

92 

04 

AD 

CB 

28 

BE  69: 

00 

00 

00 

00 

00 

00 

00 

00 

B5 

mil 

ID 

IP 

23 

38 

3B 

2C 

32 

27 

B7 

13B9 

13 

BD 

93 

04 

AO 

CO 

13 

80 

07 

0E711 

00 

00 

00 

00 

00 

00 

04 

40 

D5 

1119 

25 

0E 

lA 

11 

C3 

Dl 

IF 

IE 

67 

1 3C 1 

94 

04 

A9 

01 

4C 

51 

13 

BO 

F6 

0E79 

00 

0Q 

80 

00 

02 

20 

00 

03 

3B 

1121 

31 

87 

EF 

60 

DF 

A5 

86 

63 

C7 

13C9 

B0 

B0 

B0 

B0 

B0 

00 

00 

00 

IB 

0ES1 

30 

00 

00 

00 

0] 

00 

00 

03 

C0 

1129 

BE 

CI 

3C 

DF 

A2 

EF 

9C 

C3 

72 

13D1 

00 

01 

00 

00 

00 

01 

01 

01 

3F 

0E89 

00 

F0 

03 

81 

10 

01 

F9 

E0 

B3 

1131 

8A 

0A 

AA 

A5 

6B 

DO 

37 

AD 

85 

13D9 

00 

03 

47 

BF 

A9 

43 

A  2 

25 

67 

0E91 

00 

F0 

00 

00 

30 

00 

00 

00 

6B 

1139 

E2 

OB 

29 

01 

49 

01 

F0 

17 

OC 

13E1 

9D 

09 

06 

9D 

CI 

07 

9D 

81 

9A 

0E99 

m 

00 

00 

00 

00 

FC 

00 

07 

B0 

1141 

AS 

62 

4A 

4A 

29 

03 

D0 

03 

B6 

13E9 

06 

90 

49 

07 

CA 

10 

Fl 

A9 

38 

0EA1 

EE 

00 

06 

0C 

00 

07 

IF 

80 

91 

1149 

18 

69 

01 

18 

69 

E3 

9D 

F9 

83 

13F1 

20 

A2 

14 

9D 

89 

06 

90 

51 

IE 

0EA9 

SB 

00 

00 

00 

00 

00 

00 

00 

C5 

1151 

07 

A9 

EO 

9D 

FA 

0  7 

60 

A5 

Bl 

13F9 

07 

CA 

10 

F7 

A9 

A0 

A2 

IB 

QS 

0EB1 

00 

00 

00 

00 

00 

00 

04 

40 

16 

1159 

62 

4A 

4A 

29 

03 

D0 

03 

18 

94 

1401 

90 

2F 

04 

90 

57 

04 

9D 

7F 

A3 

0EB9 

00 

08 

80 

00 

02 

20 

00 

03 

7B 

1161 

69 

01 

IB 

69 

E6 

9D 

F9 

07 

BA 

J  409 

04 

CA 

10 

F4 

A2 

0A 

A9 

79 

41 

0EC1 

30 

00 

00 

00 

01 

00 

00 

03 

01 

1169 

A9 

El 

9D 

FA 

07 

60 

AD 

E2 

34 

1411 

90 

AE 

04 

A9 

E2 

9D 

9E 

05 

9E 

0EC9 

00 

F0 

03 

81 

10 

03 

El 

E0 

CB 

1171 

0B 

29 

01 

49 

01 

F0 

IB 

AS 

BF 

1419 

CA 

10 

P3 

A9 

40 

A2 

04 

9D 

F5 

0ED1 

01 

F0 

00 

00 

60 

00 

00 

00 

AD 

1179 

62 

49 

FF 

4A 

4A 

29 

03 

18 

D8 

1421 

01 

05 

90 

79 

05 

CA 

10 

F7 

CI 

0ED9 

00 

01 

B6 

00 

03 

CE 

00 

07 

61 

1181 

69 

EC 

9D 

F9 

07 

A5 

62 

4A 

C4 

1429 

A2 

02 

9D 

BA 

06 

9D 

32 

07 

94 

0EE1 

BE 

00 

03 

07 

E0 

03 

C7 

30 

39 

1189 

4A 

29 

03 

18 

69 

E0 

9D 

FA 

02 

1431 

:CA 

10 

F7 

20 

26 

15 

A2 

00 

BE 

0EE9 

00 

00 

00 

00 

00 

00 

00 

00 

06 

119) 

07 

60 

A5 

62 

4C 

7C 

11 

60 

01 

1439 

BD 

57 

14 

AB 

BD 

58 

14 

85 

20 

0EF1 

00 

00 

00 

00 

00 

00 

04 

40 

56 

1199 

AD 

A9 

OC 

18 

69 

10 

38 

ED 

E9 

1441 

!FB 

BD 

59 

14 

85 

FC 

05 

FB 

69 

0EF9 

00 

08 

80 

00 

02 

20 

00 

03 

BB 

1]A1 

eB4 

0C 

90 

F3 

29 

E0 

D0 

EF 

D0 

1449 

F0 

OB 

93 

AO 

00 

91 

FB 

EB 

F0 

0F0) 

30 

00 

00 

00 

01 

00 

00 

03 

42 

11A9 

AD 

A7 

0C 

18 

69 

08 

38 

ED 

59 

1451 

£8 

E8 

4C 

39 

14 

60 

5F 

OS 

2B 

0F09 

00 

F0 

03 

8) 

10 

01 

F9 

E0 

35 

llBl 

iQ2 

0C 

90 

E3 

29 

F0 

DO 

DF 

0F 

1459 

04 

DF 

06 

04 

5F 

2E 

04 

5F 

97 

0F11 

00 

F0 

00 

00 

30 

00 

00 

00 

EC 

11B9 

20 

B3 

16 

AD 

A9 

0C 

CD 

B4 

44 

1461 

57 

04 

20 

7F 

04 

5F 

80 

04 

D4 

0F19 

00 

01 

9E 

00 

00 

E7 

00 

00 

EA 

llCl 

OC 

BO 

03 

4C 

29 

12 

A9 

00 

20 

1469 

69 

21 

04 

69 

48 

04 

69 

6F 

3A 

0F21 

!E3 

B8 

00 

CI 

E0 

01 

F8 

80 

FB 

11C9 

:aD 

BA 

OC 

BD 

B8 

OC 

20 

F6 

E8 

1471 

04 

69 

96 

04 

6C 

A0 

04 

6C 

63 

0F29 

00 

00 

00 

00 

00 

00 

00 

00 

47 

llDl 

ll6 

8D 

B7 

0C 

AD 

A7 

OC 

18 

56 

1479 

AD 

04 

7B 

B9 

04 

7b 

C7 

04 

26 

0F31- 

00 

00 

00 

3E 

00 

00 

0E 

04 

53 

11D9 

=  69 

08 

38 

ED 

B2 

0C 

29 

0F 

BF 

1481 

70 

00 

05 

6E 

06 

05 

60 

78 

01 

0F39 

00 

00 

0E 

00 

00 

ID 

00 

IC 

A9 

llEl 

4A 

AA 

BD 

8E 

12 

85 

FB 

BD 

D0 

1439 

05 

7D 

7E 

0S 

5D 

28 

05 

5D 

A6 

0F41 

0S 

00 

33 

00 

00 

ID 

00 

00 

36 

1)E9 

!96 

12 

85 

FC 

AD 

B9 

0C 

D0 

99 

1491 

50 

05 

5D 

2E 

05 

50 

56 

05 

01 

0F49 

06 

00 

00 

00 

00 

2  J 

80 

00 

EF 

llFl 

03 

20 

17 

12 

AD 

B5 

0C 

18 

16 

1499 

:63 

7B 

05 

7C 

90 

05 

7C 

A4 

59 

0F51 

45 

80 

00 

84 

0C 

00 

C3 

0C 

6E 

11 F9 

:65 

FB 

8D 

B5 

0C 

AD 

66 

OC 

6B 

14A1 

:05 

20 

A3 

05 

40 

E3 

06 

40 

F6 

0F59 

E00 

E0 

20 

04 

C0 

!C 

0E 

00 

86 

1201 

65 

FC 

8D 

B6 

0C 

10 

09 

20 

07 

14A9 

:0B 

07 

7E 

A2 

05 

7C 

A4 

05 

7B 

0Fe]. 

00 

7C 

00 

00 

00 

00 

00 

00 

9E 

1209 

17 

12 

A9 

00 

SD 

B9 

OC 

60 

3E 

14B1 

!7E 

A9 

05 

70 

09 

06 

72 

IB 

8B 

0F69 

.00 

3F 

FF 

FF 

13 

14 

AA 

IC 

Bl 

1211 

A9 

0] 

8D 

B9 

0C 

60 

A9 

00 

CC 

14B9 

:0e 

6E 

2E 

06 

93 

5A 

04 

81 

36 

0F71 

!C6 

4A 

0A 

A9 

34 

0B 

14 

C4 

IC 

1219 

38 

ED 

B5 

0C 

BD 

B5 

OC 

A9 

51 

14C1 

5B 

04 

80 

5C 

04 

8S 

6A 

04 

IF 

0F79 

0C 

AB 

5C 

05 

44 

64 

06 

AA 

CE 

1221 

00 

ED 

B6 

0C 

8D 

B6 

OC 

60 

18 

14C9 

:84 

6B 

04 

71 

BB 

06 

55 

B9 

01 

0F81 

88 

03 

11 

58 

02 

AA 

A8 

02 

5A 

1229 

A9 

00 

8D 

AF 

0C 

80 

AD 

0C 

CC 

1401 

06 

49 

BD 

06 

55 

E2 

06 

49 

F2 

0F89 

44 

48 

01 

AA 

BO 

01 

AA 

BO 

36 

1231 

8D 

AF 

OC 

20 

F6 

16 

8D 

AC 

63 

14D9 

•E4 

06 

4A 

0A 

07 

4B 

0C 

07 

64 

0P91 

01 

55 

50 

01 

AA 

BO 

01 

65 

IF 

1239 

0C 

AD 

B2 

0C 

IB 

69 

07 

38 

92 

14E1 

4A 

31 

07 

72 

33 

07 

4B 

35 

0S 

0F99 

10 

00 

ED 

BO 

00 

92 

40 

00 

53 

1241 

tED 

A7 

OC 

29 

0F 

4A 

AA 

BD 

OF 

14E9 

:07 

6B 

49 

07 

7D 

51 

07 

6D 

B6 

0FA1 

00 

00 

00 

00 

00 

00 

00 

00 

BF 

1249 

8E 

12 

85 

FB 

BO 

96 

12 

85 

9B 

14F1 

(65 

07 

73 

6E 

07 

6D 

CI 

07 

5C 

0FA9 

sFF 

EA 

AE 

94 

0C 

A0 

00 

DO 

42 

1251 

sFC 

AD 

AE 

0C 

D0 

03 

20 

7C 

45 

14F9 

.50 

El 

06 

5D 

09 

07 

50 

ES 

m 

0FBJ. 

:D0 

0F 

99 

07 

04 

C8 

E8 

C0 

75 

1259 

12 

AD 

AA 

0C 

18 

65 

FB 

SD 

E3 

1S01 

.06 

50 

0D 

07 

71 

D3 

07 

7D 

FD 

0FB9 

•19 

D0 

F4 

EE 

94 

0C 

AD 

94 

EA 

1261 

rAA 

OC 

AD 

AB 

0C 

65 

FC 

BD 

CB 

1509 

:E6 

07 

6B 

81 

06 

6E 

89 

06 

PO 

0FC1 

0C 

C9 

3C 

F0 

01 

60 

A9 

00 

CB 

1269 

AB 

0C 

10 

09 

20 

7C 

12 

A9 

B9 

1511 

:70 

9D 

06 

20 

97 

04 

E9 

20 

5E 

0FC9 

;8D 

94 

0C 

20 

B8 

12 

60 

20 

46 

1271 

00 

8D 

AE 

0C 

60 

A9 

01 

8D 

ca 

1519 

:04 

73 

A6 

06 

20 

7A 

05 

20 

6C 

0FDI 

20 

20 

20 

20 

20 

20 

20 

20 

EF 

1279 

AE 

OC 

60 

A9 

00 

38 

ED 

AA 

06 

1521 

:7c 

05 

00 

00 

00 

A2 

00 

A9 

FE 

0FD9 

!20 

20 

20 

20 

20 

20 

20 

20 

F7 

1281 

0C 

BD 

AA 

OC 

A9 

00 

ED 

AB 

F9 

1529 

:A0 

9D 

C8 

04 

9D 

EF 

04 

8A 

A3 

0FE1 

20 

20 

20 

20 

20 

20 

20 

20 

FF 

1289 

0C 

80 

AB 

0C 

60 

13 

09 

03 

Dl 

1531 

:1B 

69 

28 

AA 

E0 

F0 

DO 

EF 

CD 

0FE9 

•20 

20 

20 

20 

20 

04 

12 

09 

64 

1291 

01 

FE 

FC 

F6 

E4 

00 

00 

00 

2C 

1539 

:A2 

00 

A9 

76 

90 

05 

04 

8A 

28 

0FF1 

!0E 

0B 

20 

02 

flC 

15 

05 

20 

DC 

12  99 

00 

FF 

FF 

FF 

FF 

2D 

08 

2D 

AF 

1S41 

18 

69 

28 

AA 

E0 

C8 

D0 

F2 

40 

0FF9 

10 

0F 

10 

20 

20 

20 

20 

20 

C9 

12A1 

08 

50 

0B 

73 

08 

60 

IB 

7D 

85 

1549 

A2 

00 

A9 

75 

90 

El 

04 

A9 

77 

1001 

20 

20 

20 

20 

20 

20 

20 

20 

21 

12A9 

18 

AB 

18 

2D 

08 

33 

08 

A0 

DS 

15  51 

tEl 

9D 

7F 

06 

9D 

DF 

05 

A9 

44 

1009 

20 

20 

20 

20 

20 

20 

20 

20 

29 

12BI 

06 

C6 

08 

ED 

08 

0B 

09 

A2 

8C 

1559 

•61 

90 

B8 

05 

9D 

53 

06 

3A 

E7 

1011 

20 

20 

20 

20 

20 

20 

20 

20 

31 

12B9 

53 

A9 

20 

9D 

DO 

0F 

CA 

10 

38 

1S61 

•la 

69 

28 

AA 

EO 

ca 

00 

E2 

50 

1019 

20 

20 

20 

20 

20 

20 

20 

20 

39 

12C1 

FA 

AD 

E8 

12 

0A 

AA 

BD 

9E 

22 

1569 

:A2 

00 

A9 

50 

9D 

09 

06 

90 

AA 

1021 

20 

20 

20 

20 

20 

20 

20 

20 

41 

12C9 

12 

85 

FB 

BD 

9F 

12 

85 

FC 

01 

IS  71 

:F9 

06 

9D 

89 

06 

90 

IB 

06 

49 

1029 

20 

20 

20 

20 

20 

00 

AD 

07 

CA 

12D1 

AO 

00 

Bl 

FB 

F0 

07 

99 

EE 

02 

1579 

:9D 

OB 

07 

9D 

90 

06 

9D 

2E 

5E 

1031 

11 

D0 

3A 

EE 

08 

1) 

AE 

08 

2E 

12D9 

OF 

CB 

4C 

D3 

12 

AE 

E8 

12 

AD 

)S81 

06 

9D 

IE 

07 

8A 

18 

69 

28 

F9 

)039 

n 

E0 

3C 

D0 

0A 

AD 

69 

16 

9E 

12E1 

BD 

E9 

12 

8D 

E8 

12 

60 

00 

CA 

IS  89 

:AA 

E0 

F0 

DO 

DO 

A9 

00 

80 

8F 

1041 

F0 

3B 

A9 

FF 

8D 

08 

11 

BD 

4A 

12E9 

09 

02 

08 

03 

01 

06 

01 

OC 

72 

1591 

!20 

00 

80 

21 

DO 

85 

C6 

A2 

90 

1049 

sCB 

10 

80 

07 

1] 

BD 

8F 

10 

24 

12Fl! 

09 

0A 

0B 

OC 

01 

60 

8E 

DO 

B6 

1599 

:0D 

BD 

52 

18 

90 

00 

04 

CA 

79 

1051 

:AA 

BD 

ID 

11 

ao 

07 

D4 

BD 

DA 

12F9! 

13 

AS 

6A 

F0 

FB 

A5 

64 

4A 

DE 

ISAl 

:10 

F7 

60 

A9 

06 

A2 

9F 

90 

10 

1059 

:09 

11 

8D 

08 

D4 

A9 

69 

8D 

22 

1301 

C9 

IC 

D0 

Fl 

A2 

02 

8E 

Dl 

58 

15A9 

:00 

D8 

CA 

E0 

FF 

DO 

pa 

A9 

50 

1.061 

:0C 

D4 

A9 

56 

8D 

0D 

D4 

A9 

4B 

1309: 

13 

AE 

Dl 

13 

BD 

DA 

13 

IB 

67 

ISBl 

00 

A2 

C7 

90 

A0 

08 

90 

63 

63 

1069 

:11 

8D 

0B 

D4 

60 

CE 

07 

11 

81 

1311: 

69 

08 

38 

E5 

62 

85 

FB 

90 

05 

1SB9 

:D9 

CA 

E0 

FF 

D0 

F5 

A2 

EF 

33 

1071 

:AD 

07 

11 

C9 

03 

D0 

F5 

A9 

D9 

1319: 

39 

29 

F0 

D0 

35 

20 

07 

17 

A0 

15C1 

:A9 

0C 

9D 

08 

DA 

9D 

F8 

DA 

12 

1079 

:10 

8D 

013 

D4 

60 

A9 

3B 

BD 

61 

1321- 

AS 

FB 

4A 

AB 

B9 

D2 

13 

35 

Bl 

15C9 

CA 

E0 

FF 

00 

F5 

A2 

00 

A9 

82 

1081 

!08 

11 

A9 

00 

8D 

07 

D4 

8D 

DE 

1329: 

69 

E6 

65 

AS 

65 

4A 

4A 

05 

B2 

15D1 

•00 

9D 

08 

DA 

9D 

A8 

DA 

9D 

F4 

1089 

108 

D4 

8D 

07 

1.1 

60 

06 

01 

IC 

1331 

66 

F0 

0D 

A5 

65 

3B 

E9 

01 

A3 

15D9 

2P 

DA 

90 

CF 

DA 

8A 

18 

69 

90 

1091 

:13 

00 

01 

02 

00 

03 

02 

04 

BF 

1339; 

85 

65 

A5 

66 

E9 

00 

85 

66 

57 

15E1 

28 

AA 

EO 

ca 

D0 

E9 

A9 

02 

F6 

1099 

:03 

05 

03 

02 

00 

00 

01 

06 

05 

1341i 

46 

68 

66 

67 

46 

68 

66 

67 

EF 

1SE9 

:A2 

IB 

9D 

07 

D8 

CA 

10 

FA 

9C 

10A1 

:00 

03 

06 

04 

03 

05 

04 

03 

BA 

1349: 

A5 

67 

05 

68 

F0 

11 

A9 

00 

62 

ISFl 

:A9 

00 

80 

3B 

D8 

A2 

04 

90 

40 

10A9 

!07 

03 

03 

03 

03 

07 

01 

03 

D7 

1351: 

85 

6A 

AE 

Dl 

13 

CE 

Dl 

13 

52 

15F9 

59 

DS 

90 

69 

03 

CA 

10 

F7 

SB 

10B1 

!03 

03 

03 

03 

07 

06 

03 

11 

0C 

1359: 

CA 

10 

AE 

AE 

D0 

13 

60 

20 

5D 

1601 

•A2 

04 

A9 

02 

9D 

89 

03 

CA 

64 

10B9 

!00 

01 

06 

03 

08 

03 

08 

09 

70 

1361: 

42 

17 

A9 

00 

85 

65 

85 

66 

D6 

1609 

.10 

FA 

60 

AD 

69 

16 

00 

3F 

67 

10C1 

:05 

03 

07 

03 

12 

04 

08 

07 

ED 

1369j 

E6 

64 

E6 

64 

AE 

D0 

13 

FE 

ID 

1611 

:CE 

8D 

04 

AD 

80 

04 

C9 

AF 

23 

10C9 

=  03 

06 

10 

10 

10 

10 

OB 

IB 

DB 

1371: 

CE 

13 

FE 

CE 

13 

FE 

CC 

13 

Dl 

1619 

00 

35 

A9 

B9 

80 

80 

04 

CE 

45 

10D1 

ll0 

10 

08 

18 

10 

20 

10 

08 

A9 

1379: 

FE 

CC 

13 

BD 

CC 

13 

C9 

BA 

91 

1621 

8C 

04 

AO 

BC 

04 

C9 

AF 

DO 

BA 

COMPUTE'S  GaimiB  special  1988  Issue        87 


1629 

26 

A9 

B5 

8D 

BC 

04 

CE 

8A 

FE 

16  3). 

04 

AD 

8A 

04 

C9 

AF 

DO 

17 

22 

1639 

A9 

B9 

8D 

8A 

04 

CE 

89 

04 

75 

1641 

AD 

89 

04 

C9 

AF 

D0 

OB 

20 

B4 

1649 

51 

16 

A9 

01 

80 

69 

16 

60 

87 

1651 

A9 

Bl 

90 

B9 

04 

A9 

BO 

8D 

BE 

1659 

8A 

04 

A9 

B0 

BD 

ac 

04 

8D 

40 

1661 

8D 

04 

A9 

BA 

BD 

8B 

04 

60 

39 

1669 

00 

A  9 

00 

80 

00 

D4 

BD 

01 

48 

1671 

D4 

8D 

07 

D4 

8D 

OS 

04 

SD 

5D 

1679 

OE 

D4 

80 

0F 

04 

A9 

B4 

BD 

C8 

16S) 

3B 

04 

AD 

CE 

13 

CD 

CF 

13 

71 

1689 

D0 

08 

A9 

03 

SO 

E8 

12 

4C 

06 

1691 

BB 

0D 

A0 

07 

A9 

00 

85 

C6 

82 

1699 

A2 

FF 

20 

11 

0B 

A5 

C6 

00 

61 

16Al! 

0E 

CA 

00 

F6 

88 

D0 

Fl 

A9 

26 

16A9 

00 

8D 

00 

04 

SD 

0J 

D4 

4C 

EC 

16Bl! 

25 

09 

AD 

B0 

0C 

0D 

BB 

0C 

SB 

)6B9: 

F0 

42 

AD 

61 

17 

D0 

35 

A9 

CA 

16C1  s 

8P 

BD 

IB 

D4 

A9 

10 

80 

05 

17 

16C9: 

D4 

8D 

13 

04 

A9 

64 

8D 

06 

73 

).6Dl! 

D4 

A9 

5A 

8D 

14 

04 

A9 

10 

4E 

16D9. 

8D 

)2 

04 

A9 

15 

80 

04 

D4 

42 

leei 

A9 

18 

80 

01 

D4 

A9 

OD 

8D 

9F 

I6E9 

OF 

D4 

A9 

14 

80 

04 

04 

A9 

19 

16F1 

10 

8D 

12 

1)4 

60 

A9 

ca 

AE 

03 

16F9 

69 

1,6 

D0 

0! 

60 

EE 

AA 

0C 

AA 

1701 

EE 

B5 

0C 

A9 

A0 

60 

AD 

61 

73 

)709 

17 

00 

E9 

A9 

8F 

8D 

18 

D4 

86 

1711 

A9 

10 

BD 

05 

D4 

BD 

13 

D4 

Fl 

17)  9 

A9 

64 

80 

06 

04 

A9 

5A 

BO 

D6 

L721 

14 

D4 

A9 

10 

80 

12 

D4 

A9 

CC 

1729 

15 

8D 

04 

D4 

A9 

10 

80 

01 

BC 

1731 

D4 

A9 

05 

8D 

0F 

D4 

A9 

10 

DC 

1739 

8D 

04 

D4 

A9 

19 

BD 

12 

D4 

14 

1741. 

60 

A9 

0F 

80 

18 

D4 

A9 

77 

A3 

1749 

8D 

05 

04 

A9 

77 

BD 

06 

04 

S7 

1751 

A9 

2Q 

8D 

01 

04 

A9 

SI 

80 

FO 

17  59 

04 

D4 

A9 

05 

BD 

61 

17 

60 

C4 

176) 

00 

60 

AO 

00 

IB 

F0 

FA 

AD 

65 

1769 

B0 

0C 

F0 

05 

AD 

AF 

0C 

F0 

96 

17  71 

;F0 

E0 

00 

F0 

EC 

AD 

01 

IB 

97 

1779 

F0 

0F 

CE 

01 

IS 

AD 

03 

18 

63 

1781 

8D 

El 

0B 

20 

05 

18 

4C 

62 

05 

1789 

17 

SE 

02 

18 

A2 

02 

E0 

01 

8B 

17  91 

F0 

5E 

QO 

DA 

13 

1.B 

69 

08 

09 

1799 

38 

E5 

62 

85 

FB 

90 

10 

29 

6D 

17A1 

F0 

00 

0C 

20 

C6 

17 

AE 

02 

Fl 

17A9 

18 

A9 

41 

8D 

01 

18 

60 

CA 

43 

17B1 

10 

DC 

AE 

02 

18 

AD 

A7 

0C 

E7 

17B9 

CD 

B2 

0C 

90 

04 

20 

D5 

17 

69 

17C1 

60 

20 

E3 

17 

60 

3D 

DZ 

17 

CC 

17C9 

.8D 

03 

IS 

A9 

14 

BD 

01 

18 

OE 

17D]. 

•60 

17 

00 

IB 

A9 

2D 

BD 

01 

C5 

17D9 

:18 

A9 

17 

8D 

03 

18 

20 

05 

F7 

17E1 

:18 

60 

A9 

2D 

SD 

31 

18 

A9 

86 

17E9 

:1B 

8D 

03 

18 

20 

05 

IB 

60 

90 

17F1 

!AD 

A7 

0C 

CD 

DB 

13 

DO 

B7 

C3 

17F9 

:A9 

64 

BD 

01 

18 

D0 

B0 

01 

3E 

1801 

t00 

00 

00 

00 

AD 

A7 

0C 

38 

8D 

1809 

:ED 

B2 

0C 

C9 

14 

F0 

05 

C9 

33 

1811 

:EB 

F0 

01 

60 

AD 

AF 

0C 

F0 

CE 

1319 

!20 

AD 

A9 

0C 

C9 

32 

90 

19 

DC 

1B21 

:AD 

A7 

0C 

CD 

B2 

0C 

90 

07 

5E 

1B29 

:A9 

07 

BD 

El 

0B 

D0 

05 

A9 

0F 

1B31 

!0B 

8D 

El 

0B 

A9 

00 

BD 

01 

A0 

1839 

:18 

60 

20 

E4 

FF 

C9 

31 

F0 

SA 

1841 

10A 

C9 

32 

D0 

F5 

A9 

00 

BD 

20 

1849 

:00 

la 

60 

A9 

01 

BD 

00 

18 

7C 

1S51 

:60 

31 

20 

10 

0C 

01 

19 

OS 

9E 

1859 

J 12 

20 

0F 

12 

20 

32 

3F 

12 

F7 

1B61 

:2E 

20 

01 

0E 

04 

05 

12 

13 

ID 

1869 

I0F 

0E 

20 

26 

20 

04 

2E 

20 

98 

1871 

:'08 

05 

BE 

13 

0C 

05 

19 

20 

A0 

1879 

10A 

12 

2E 

00 

03 

0F 

10 

19 

86 

18B1 

il2 

09 

07 

08 

14 

20 

31 

39 

IB 

1889 

!3B 

37 

20 

03 

0F 

0D 

10 

15 

B9 

1891 

!l4 

05 

2) 

20 

10 

15 

02 

0C 

18 

1B99 

!09 

03 

01 

14 

09 

3F 

OE 

13 

24 

18AL 

:2C 

20 

09 

0E 

03 

2E 

00 

01 

C3 

18A9 

:0C 

0C 

20 

12 

09 

07 

08 

14 

90 

IBBl 

:13 

20 

12 

0S 

13 

05 

12 

16 

EC 

)8B9 

!0S 

04 

00 

00 

00 

00 

00 

00 

6D 

Program  2:  Basketball  Sam  &  Ed 
Customizer  Loader 

SF    10   POKE    53  2B0,0:POKE    53281, 

0 
JC    20    PRINT"  I CLB  J  12    DOWNUBLKJ 

LOAD"CHR$(34)"SAM    &    ED"C 

HR?(34)",8" 
AA    30    PRINT" I  4    DOWN  J  POKE    44,10 

0:POKE    25600,0" 
DK    40    PRINT "{2    DOWN ) LOAD "CHRS ( 

34)"S    &    E   CUSTOMIZER"CHR 

5(34)", S" 
OX    50    PRINT" i4    DOWN] RUN" 
GB    60    PRINTSPC(2}"E83JUST    A   MO 

MENT    ...    LOADING    CUSTO.MI 

ZER{BLK)tHOME}"f 
DX   70   FORI=1TO4iPOKE630+I.13!N 

EXT:POKE198,I 


Program  3:  Basketball  Sam  &  Ed 
Customizer 

FG    10    REM    SAM    &    ED    CUSTOMIZER 
MX    20    REM    COPYRIGHT    1987    -   COM 
PUTEl     PUBLICATIONS,     INC. 
ALL    RIGHTS    RESERVED 
RC    30    POKE    53280, 2:P0KE   532B] , 

12:BK=1 
AK    40    GOSUB    550 

MA  50  PRINT"  I  DOVJK  J  CHANGE  COLOR 
S  (y/N)"; ! INPUT  A$(IF  A? 
<>"Y"  THEN  230 
CK  60  PRINT"ID0WNH3  rightJpre 
SS  SPACEBAR  TO  CHOOSE  CO 
LORS" 
KG  70  PRINT" [3  RIGHT) AND  THEN 
[SPACE) PRESS  RETURN  TO  S 
ELECT" 
HQ  80  PRINT" {DOWN}BORDER  COLOR 

{5  SPACES}"; sGOSUB  600 
GR  90  BD=X:POKE  53 280, X 
RM  100  PRINT "BACKGROUND  COLOR 

{SPACE)"; ! GOSUB  600 
HA  110  BK=X:POKE  53281, Xi IF  BK 

=0  THEN  POKE  646,1 
FC  120  PRINT "{DOWN) SAM'S  BODY 
{SPACE) COLOR  "jiGDSUB  6 
00 
RB  130  SB=X 
EM  140  PRINT"BAM'S  LEG  COLOR 

[2  SPACES)"; jGOSUB  600 
HF  150  SL=X 

DX  160  PRINT"! DOWN) ED'S  BODY  C 
0L0R(2  SPACES)"; iGOSUB 
[SPACE) 600 
FA  170  EB=X 
JJ  180  PRINT"ED'S  LEG  COLOR 

{3  SPACES}"; :GOSUB  600 
XF  190  EL=X 
MG  200  POKE  243 1,BD: POKE  2441, 

BK 
EE  210  POKE  2461,SLiPOKE  2466, 

SB 
SH  220  POKE  2471, ELi POKE  2476, 

EB 
JP  230  POKE  532a0,2iPOKE  53281 

,12:P0KE  646,0 
KG  240  GOSUB  550 i PRINT" {DOWN}C 
HANGE  TIMER  (Y/N)";:INP 
UT  OSsIF  D?="Y"  THEN  GO 
SUB  690 
SS  250  GOSUB  550 ! PRINT "{ DOWN }C 
HANGE  MESSAGES  (Y/N)";i 
INPUT  A?: IF  AS<>"Y"  THE 
N  450 
QD  260  GOSUB5S0 

DH  270  PRINT"  {DO^JN}  UP  COMING  EV 
ENT  #1  (37  CHARS  MAX. )" 
(INPUT  A$ 


XS  280  IF  LEN(A5)<37  THEN  AS»A 

$+"     ":GOT0  2B0 
AF  290  A5=LEFT5(A?,37) 
SA  300  FOR  Y=l  TO  37:NC=ASC(MI 

D5(A5,Y,]  )  )  :IF  N063  TH 

EN  NC=NC-64 
XC  310  POKE  2207+Y,NC 
AB  320  NEXT  Y 
DC  330  PRINT" {DOWN) UPCOMING  EV 

ENT  #2  {37  CHARS  MAX.)" 

: INPUT  A? 
FO  340  IF  LENCA?)<38  THEN  AS=A 

5+"  "jGOTO  340 
SK  350  A5=LEFT5(A5,3S) 
BR  360  FOR  Y=]  TO  38iNC=ASC(MI 

05(A5,Y,1)  )  ;IF  K063  TH 

EN  NC-NC-64 
FE  370  POKE  2245+Y,NC 
JG  3B0  NEXT  Y 
EM  390  PRINT" (DOWN) UPCOMING  EV 

ENT  #3  {29  CHARS  MAX.)" 

: INPUT  A? 
KJ  400  IF  LEN{A?)<29  THEN  A5=A 

?+"  ":GOT0  400 
ER  410  AS=LEFT5(A5, 29) 
PK  420  FOR  Y=)  TO  29:NC=ASC{MI 

D5{A5,Y,1) ) :IP  NC»63  TH 

EN    NC^NC-64 
PK    430    POKE    22B4+Y,NC 
FK    440    NEXT   Y 
XH    450    PRINT"  12    D0VJN){6    RIGHT) 

INSERT    A   NEW    FORMATTED 

[SPACE)DISK" sFOR   D=l    TO 
1000: NEXT 
OP    460    PRINT"[DOWN) [RVS) 

[2    SPACES) PRESS    ANY    KEY 
TO    SAVE   CUSTOM    SAM    I,    E 

O    {OFF)" 
KR    470    GET    DHS 
FE    480    IF    DH$=""    THEN    470 
XJ    490    POKE    44,8: POKE    46,25 
JO    500    PRINT" I  DOWN) JUST   A   HOME 

NT ... " 
MC    5J0    PRINT"SAVING    CUSTOM    SAM 

&    ED" 
MG    520    OPEN    1,8,15, "S0:CUSTOM 

(SPACE)SAM   &    E0"!CLOSE 

{ SPACE )1 
HH  530  SAVE "CUSTOM  SAM  &  EO",B 
JM  540  PRINT" {CLR J {DOWN) [RVS) 

{6  SPACES)PRESS  RETURN 

[SPACE} TO  PLAY  SAM  &  ED 

{5  SPACES) (OFF}" : PRINT" 

(3  DOWN) RUN (3  UP)"iEND 
DX  550  PRINT"(CLR) (BLK)"; :PRIN 

TSPC(9)" (RVS} (2  SPACES) 

SAM  t  ED  CUSTOMIZER 

[2  SPACES) (OFF)" 
JQ  560  FOR  M=l  TO  10: PRINT" 

Joo;-ra)":NEXT 

SD    570    PRINTSPC(5)"UDI^   COPYRIG 

HT    1987" 
00    580    PRINTSPC(5) "GCH    COMPUTE 

1    PUBLICATIONS    INC." 
FC    590    PRINTSPC{5) "JFK   ALL    RIG 

HTS    RESERVEDTHOMEj"iRET 

URN 
SM    600    FOR    X=>0    TO    15 
BC    610    POKE    646, X! PRINT" t RVS) 

{SPACE) {OFF)"; "{LEFT}"; 

sGET    A?! IF    A$=CHRS(13) 

[space} THEN    POKE    646,01 

GOTO    6  70 
GA    620    IF    A?=CHR?{32)    THEN    640 
QP    630    GOTO    610 
FJ    640    IF    X=) 5    THEN    600 
RM    650    NEXT 
JR    560    GOTO    610 
MM   670    PRINT: IF   BK=0    THEN    POKE 

646 , 1 
JA    680    RETURN 

JQ   690    PRINT" (DO(m}ENTER   A   NUM 
BER    LESS    THAN    10"j!lNPU 


ea    COMPUTErs  Gazette  Specie!  1988  issue 


T    H? 
QJ    700    IF    H5=""    THEN    700 
SJ    710    H=VAL([i5)  +  ]76 
SJ   720    POKE    5714, J76iPOKE   5719 

.HsRETURN 


BEFORE  TYPING  .  .  . 

Before  typing  in  programs,  please 
refer  to  "How  to  Type  In 
COMPUTEI's  GAZETTE  Programs," 
elsewhere  in  this  issue. 


Ringside  Boxing 

See  instruclmjs  in  article  on  page 
15  before  typing  in. 


0801.  !0G 
0809: 3B 
081)  :D0 
0819:CE 
0S2] :03 


0829 

0931 

0839 

0841 

0849 

0851 

0859 

0861 

0869 

0871! AD 

0879 !  FF 

0881: AD 

0889 :FF 

0891 :C3 

0899:03 

08A1:C9 

08A9:03 

0fiBl!03 

0BD9!A9 

08C1:AD 

0ec9:00 

0BD1:4C 

0809:18 

0BE1:8D 

aaE9:30 

08F1:69 

08F9:03 

0901 :AD 

0909:41 

0911:4C 

0919:60 

0921:00 

0929:AD 

0931:60 

0939:04 

0941 :D0 

0949:01 

0951:90 

0959:00 

0961:AD 

0969: AD 

0971:DC 

0979:38 

0981 

0989 

0991:01 

0999!CE 

09A1 I 0E 

09A9108 

09B1:EE 

09B9:SD 

09C1:03 

09C9:8D 

0901 :SD 

0909:03 

09El!E5 

09E9:5] 


!l8 

-00 


08  0A 
35  00 
03  6C 
49  03 
D0  0B 
4E  03 
A9  00 
D0  08 

48  03 
9B  08 

49  03 
6D  8D 
AD  4D 
D0  0  5 

50  03 
07  A9 
50  03 
07  AD 
BD  FA 
60  EE 
0A  90 
A9  00 
AD  4B 

00  80 
4C  0  3 
8D  4A 
03  8D 
69  30 

37  04 
BD  3B 
30  BD 
C9  C5 
41  0  3 
03  60 
A0  09 
AD  01 

01  60 
00  00 
CE  00 

00  CE 
3B  ED 
60  AD 

01  60 
EB  04 
50  0  3 
4F  03 
29  0F 
C9  08 
C9  28 

38  ED 
60  CE 
0C  D0 
D0  C9 
D0  EE 
0E  00 
82  03 
A9  0E 
15  03 
4B  03 
8D  50 
03  A9 
03  A9 


00  9E 

00  00 
82  03 
CE  48 
20  0C 
4C  37 
80  4E 
20  62 
AD  47 
A9  13 
D0  08 
49  03 
03  00 
A9  C2 
D0  05 

01  BD 
D0  05 
4F  03 

07  A9 
4A  03 
31  A9 
BD  4A 
03  C9 
4B  03 
G9  03 

03  BO 
E8  0  3 
80  36 
AD  48 

04  AD 
39  04 
B0  03 
C9  C5 
AD  4F 
AD  50 
DC  29 
38  C9 
IS  C9 
D0  CE 
06  D0 
00  D0 
00  D0 
EE  00 
D0  EE 
F0  03 
F0  01 
C9  0F 
90  22 
B0  01 

00  00 

08  D0 
CE  0E 
EB  90 
0A  D0 
60  78 
AD  ]5 
8D  14 
A9  00 
8D  4C 

03  80 

01  80 

04  8D 


20  32 
AD  E8 
CE  47 
03  AO 
09  A9 
08  20 
03  AD 
08  A9 
03  D0 
BO  47 
20  F7 
6C  82 
lA  AD 
80  FA 
A9  CF 
4D  03 
A9  CE 
D0  05 
00  8D 
AD  4A 
00  8D 

03  EE 
06  90 
EE  4C 
90  0E 
4B  03 
AD  4C 

04  A9 
03  18 
4A  03 
60  AD 
EE  40 
B0  03 
03  F0 
0  3  F0 
0F  C9 
08  90 
2D  B0 

02  D0 
60  AD 
C9  12 
38  C9 
D0  EE 
06  D0 
4C  29 
60  AD 
00  01 
AD  0E 
60  AO 
C9  12 
CE  0A 

00  60 

01  60 
EE  0C 
AD  14 

03  8D 
03  A9 
8D  4A 
03  80 
E4  03 
47  03 
4S  03 


34  68 
03  0E 
03  E4 
4E  28 


01 
6) 


23 

34 


48  2B 
0F  97 
08  5  5 
03  4C 
08  B0 
03  Bl 
4F  80 

07  B3 
8D  05 
60  98 
BD  E3 
A9  15 
4D  6C 
03  2C 
4A  F0 
4B  06 
ID  EC 
03  74 
A9  08 
8D  E3 
03  7  3 
3A  7E 
69  El 
18  71 
40  45 
03  19 
EE  ID 
03  CE 
01  DE 
0F  DC 
16  11 

01  13 
CE  23 

08  2  7 
B0  0A 
DC  81 

02  0A 
60  AE 

09  72 
00  7A 
60  D8 
D0  D8 
08  0F 
B0  52 
D0  3D 
AD  3F 
EE  IF 
D0  90 

03  84 
83  CI 
08  62 
03  B0 
4F  BF 
80  9E 
8D  0A 
58  C6 


:2S 
:0D 
:2D 
:27 


:8D 

:D0 
:2D 
:20 


:20 
:0E 
!DC 
!3D 
:D0 
:C5 
:05 


09Fli20 

09F9:A9 

0A01 

0A09 

0A11 

0A19 

0A21i8D 

0A29:A9 

0A3l!D2 

0A39:20 

0A41:8D 

0A49:8D 

0A51 rA9 

0A59:eD 

0A61 

0A69 

0A71 

0A79 

0A81:0E 

0A89:9O 

0A91 

0A99 

0AA1 

0AA9 

0AB1 

0AB9 

0AC) 

0AC9tA9 

0ADI !A9 

0AD9:F9 

0AE)  :0]. 

0AE9 : OC 

0AF1:FB 

0AF9:A5 

0B0l!0F 

0B09!FC 

0B1]  I  33 

0BJ9:8D 

0B21 :4C 

0B29:A9 

0B31:5B 

0B39 

0B41 

0B49 

0B51 

0B59 

0B61 t4C 

0B69JFC 

0B7l!40 

0879:09 

0B81:40 

0B89:03 

0B9l!AD 

0B99:03 

0BA] !D0 

0BA9S20 

0BB1|20 

0BB9107 

0BC1 :D0 

0BC9S03 

0BD1:3C 

0BD9 

0BE1 

0BE9 

0BF] 

0BF9!03 

0C0) iD0 

0CO9:03 

0C1! :3E 

0C19:AD 

0C21 :C0 

0C29:E9 

0C31:].8 

0C39:03 

0C41:0E 

0C49t5F 

0CSl!l5 

0C59IC9 

0C61:32 

0C69!O7 

0C71:C9 

0C79:AD 

0C81 :C2 

0C89:O2 

0C9l!4F 


:0B 
:A9 
:C9 
:AD 
:04 


:A0 
:E0 
:E9 
:18 


92  14 
FF  8D 
00  A9 
8D  28 
00  80 
00  8D 
2A  00 
00  8D 
FF  20 
56  0E 

40  03 
11  D0 
00  80 
3E  03 
42  03 
AD  IE 
AD  42 
56  0E 
20  A7 
0E  EE 
82  0D 
A9  01 
29  10 
AO  01 
0D  A9 
80  F9 
00  0D 
C7  8D 
C8  BD 
07  A9 
85  FB 
29  10 
AD  00 
FC  D0 
C9  0A 
07  A9 
0B  C9 
FC  07 
33  0B 
05  80 
03  A9 
AD  00 
00  85 
C0  D0 
FC  07 
D0  08 
eA  0A 
07  A8 
03  CE 
AD  40 
0  3  C0 
CE  41 

41  03 
A2  50 
C9  B7 
82  00 

02  0E 
AA  AD 
3C  E0 
38  E9 

03  18 
3D  03 
C6  D0 
3A  8D 
69  0A 
69  00 
3C  C0 
38  E9 
03  18 
3F  03 
D2  00 
0A  8D 
69  0A 
69  00 
20  B8 
0D  AD 
AD  FC 
D4  F0 
B0  03 
C9  CC 
C0  F0 
4]  03 
0C  A2 
0E  4C 
03  AD 


A9  B7 
IC  00 
99  8D 
D0  80 
2E  D0 
28  DO 
A9  0B 
21  DO 
95  0F 
20  A7 
SD  41 
A9  E0 
3C  03 
SO  3F 
8D  E8 
D0  AD 
03  C9 
4C  DB 
0D  20 
42  03 
20  45 
80  E8 

00  41 
DC  29 
C4  8D 
07  4C 
A9  C6 
F9  07 
F8  07 
03  8D 
4C  F2 
F0  04 
DC  29 
30  AD 
D0  00 
Dl  80 
09  DO 
A9  D3 
A9  D4 
FD  07 

01  8  5 
DC  29 
FC  EA 
17  C9 
C9  GC 
A2  5F 
AD  F8 
E0  C4 
40  03 
03  38 
00  DO 
03  C0 
38  E9 
20  94 
F0  11 
A2  5F 
4C  6A 
FC  07 
C4  DO 
05  BO 
69  05 
69  00 
lA  AD 
4J  03 
80  3G 
8D  3D 
DO  DO 
05  SO 
69  05 
69  00 
lA  AD 
40  03 
80  3E 
8D  3F 
0E  20 
F8  07 
07  C9 
0A  AD 
20  8E 

00  IS 
0E  C9 
C9  32 

01  20 
6A  0A 
FA  07 


BO  15 
A9  0A 
26  00 
2C  00 
A9  04 
BO  29 
BD  11 
A9  BE 
20  87 
0D  A9 
03  A9 
80  02 
8D  3D 
03  A9 
03  AD 
E9  03 
03  00 
0E  20 
45  0D 
20  Dl 
0D  20 
03  AD 
A5  FB 
0F  G9 
FS  07 
E0  0A 
80  FB 
4G  E0 
A9  C9 
57  03 
0A  AO 
A9  00 
10  D0 
00  DC 
A9  00 
FO  07 
00  A9 
80  FD 
BD  FC 
A9  03 
FC  4C 
10  F0 
AD  F8 
C8  00 
00  0G 
20  94 
07  AA 
D0  06 
E0  C6 
E9  05 
06  GE 

02  DO 
05  8D 
0E  AD 
20  B8 
20  94 
0A  AD 
A8  GO 
)A  AO 
41  33 
80  3C 
80  3D 
41  03 
AD  3C 

03  AO 
03  E0 
lA  AO 
40  03 
8D  3E 
80  3F 
40  03 
AD  3E 
0  3  AD 
03  20 
82  0D 
C9  C0 
CC  FO 
40  03 
0C  AO 
AO  FS 
C8  F0 
B0  03 
94  0E 
A9  0) 
48  A9 


DO  C4 
8D  23 
A9  Fl 
80  05 
BD  47 
DO  09 
DO  BC 
20  40 
OE  22 
C6  42 
IB  E9 
OC  3B 

03  7B 
01  57 
IE  D2 
DO  OA 
06  02 
56  67 
20  BA 
0E  3C 
56  EE 
0)  G7 

00  E6 

06  04 
A9  FA 
C9  87 

07  2E 
0A  2B 
8D  2E 
A9  SB 

01  38 
85  14 
41  A9 
29  5E 
BD  90 
4G  70 

02  2E 
07  88 
07  04 
SD  BD 
46  78 

04  7D 
07  B3 
13  26 
C9  86 
0E  EB 
AO  3B 
CE  27 
D0  40 
80  BB 
41  IB 
09  2  9 
41  72 
IE  3C 
0E  21 
OE  EE 
F8  AE 
CG  AC 
41  43 
AD  22 

03  3A 
03  00 
38  86 
03  87 
3D  OF 
G0  3D 
40  40 
AD  5F 
03  80 
03  86 
38  B6 
03  BC 
3F  62 
2F  7B 
20  A5 
00  4B 
OE  E0 
C9  88 
FC  IE 
07  76 
OA  FA 
20  30 
20  Fl 
80  DC 
BC  GO 


0099:80 

0OA1:A9 

0OA9:AD 

0CB1:19 

0CB9:3C 

0GC1:0E 

0CC9:07 

0CD1:D6 

OCO9!07 

0CE1:8D 

0CE9:03 

0CF1:ES 

0GF9!07 

0D01:O7 

0D09:A2 

00]  1 :  D0 

0D19:E4 

0D21:F0 

0D29:D0 

0D31:06 

0D39:FF 

OD41;50 

0D49:0E 

0D51:20 

0059 :A2 

0061 :A0 

0D69:03 

0D7l!0D 

0D79s3F 

0D81:60 

0D89!FF 

0D91:20 

0099:20 

0DA1:A9 

0DA9:8D 

0DB1:A9 

0DB9SFC 

0OC1:GE 

0DC9iD0 

0DO1:0F 

0DD9;03 

0DEl!A9 

0DE95A9 

0DF1:A9 

0DF9:A9 

0E01:60 

OE09:CE 

OElltFB 

0E19;FC 

0E21:03 

0E29!A9 

0E31i8D 
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55 

55 

35 

55 

55 

37 

4C 

1109 

12 

20 

20 

92 

20 

20 

20 

20 

4B 

13B1: 

20 

20 

20 

20 

20 

20 

20 

20 

D7 

1659 

55 

55 

37 

D5 

55 

OF 

D5 

5F 

BD 

1111 

20 

20 

20 

20 

20 

20 

20 

20 

33 

J3B9: 

20 

20 

20 

20 

20 

20 

05 

20 

A9 

1661 

00 

F5 

77 

00 

D5 

57 

00 

D5 

DB 

1U9 

20 

20 

20 

20 

20 

20 

20 

20 

38 

13C1: 

92 

20 

12 

9F 

43 

4F 

55 

4E 

C5 

1669 

57 

00 

D5 

5C 

00 

00 

00 

00 

CI 

1121 

20 

20 

20 

20 

20 

20 

20 

20 

43 

13C9: 

54 

92 

OS 

20 

12 

20 

20 

92 

45 

1671 

C0 

00 

00 

CO 

00 

00 

C0 

00 

8B 

112  9 

20 

20 

12 

20 

92 

20 

20 

20 

ID 

13D1: 

20 

97 

DF 

12 

20 

92 

A9 

20 

C9 

1679 

00 

CO 

00 

00 

80 

00 

CO 

C0 

IC 

1131 

20 

20 

20 

20 

12 

20 

20 

92 

55 

J  3D9 

20 

20 

20 

20 

20 

20 

20 

20 

FF 

1681 

03 

B0 

C0 

03 

BO 

00 

OF 

AC 

F3 

1139 

20 

96 

D) 

20 

Dl 

20 

Dl 

20 

20 

13E1: 

20 

20 

20 

20 

20 

20 

20 

20 

08 

1689 

03 

37 

AC 

FF 

D5 

F0 

55 

57 

8D 

1141 

Dl 

20 

D) 

20 

Dl 

20 

Dl 

20 

63 

J3E9 

20 

20 

20 

20 

20 

DF 

12 

20 

F2 

1691 

00 

55 

5C 

00 

5  5 

70 

00 

55 

60 

1149 

DJ 

20 

Dl 

20 

Dl 

20 

Dl 

20 

6B 

I3F1: 

92 

A9 

20 

12 

05 

20 

92 

20 

DE 

1699 

C0 

00 

FF 

00 

00 

00 

00 

00 

26 

USl 

Dl 

20 

Dl 

20 

DJ 

20 

D) 

12 

65 

)3F9 

20 

20 

20 

20 

20 

20 

12 

20 

04 

16A1 

00 

00 

00 

00 

00 

00 

00 

00 

CD 

1159 

05 

20 

92 

20 

20 

30 

20 

20 

7C 

1401 

20 

92 

20 

97 

20 

12 

20 

20 

05 

16A9 

00 

00 

00 

00 

00 

00 

OF 

FO 

E4 

1161 

20 

20 

12 

20 

20 

92 

96 

Dl 

2A 

J  409 

20 

20 

20 

52 

49 

4E 

47 

S3 

D7 

16BJ 

00 

3F 

FC 

00 

FF 

FC 

00 

FF 

41 

1169 

20 

Dl 

20 

D] 

20 

Dl 

20 

Dl 

SB 

1411 

49 

44 

45 

20 

20 

42 

4F 

58 

9A 

16B9 

5C 

00 

FF 

7C 

00 

F7 

54 

00 

64 

1171 

20 

Dl 

20 

Dl 

20 

Dl 

20 

Dl 

93 

1419 

49 

4E 

47 

20 

20 

20 

20 

20 

46 

16C] 

F5 

5C 

00 

35 

SC 

00 

35 

73 

14 

1179 

20 

Dl 

20 

Dl 

20 

Dl 

20 

Dl 

9B 

1421 

92 

20 

20 

12 

05 

20 

92 

20 

AD 

16C9 

00 

D5 

73 

03 

55 

73 

03 

SF 

E7 

1181 

20 

Dl 

20 

Dl 

20 

12 

05 

20 

BC 

]429 

20 

20 

30 

20 

20 

20 

12 

20 

37 

16DJ 

5F 

03 

55 

F5 

03 

55 

57 

03 

97 

11B9 

92 

20 

20 

20 

20 

20 

20 

20 

E4 

1431 

20 

92 

20 

97 

20 

12 

20 

92 

A7 

)6D9 

F5 

SD 

03 

5D 

77 

00 

D7 

DC 

D6 

1191 

12 

20 

20 

92 

20 

96 

Dl 

20 

11 

1439 

20 

20 

20 

20 

20 

20 

20 

20 

61 

16E1 

00 

F5 

5C 

00 

D5 

5C 

00 

D5 

0D 

IJ  99 

Di 

20 

Dl 

20 

Dl 

20 

DJ 

20 

Bfl 

1441: 

20 

20 

20 

20 

20 

20 

20 

20 

69 

16E9 

5C 

00 

D5 

5C 

OF 

00 

00 

00 

3D 

1]A1 

d: 

20 

Dl 

20 

Dl 

20 

D) 

20 

C3 

1449 

20 

20 

20 

20 

20 

20 

20 

20 

71 

16F1 

00 

00 

00 

00 

00 

00 

00 

00 

IE 

11A9 

DJ 

20 

Dl 

20 

Dl 

20 

D] 

20 

CB 

1451 

12 

20 

92 

20 

20 

12 

05 

20 

52 

16F9 

00 

3C 

00 

00 

EB 

00 

00 

EB 

80 

llBl 

Dl 

20 

Dl 

12 

05 

20 

92 

20 

OE 

1459. 

92 

20 

20 

20 

20 

20 

20 

20 

BA 

170J 

00 

00 

EC 

00 

00 

70 

00 

00 

8E 

11B9 

12 

99 

47 

52 

45 

45 

4E 

05 

3A 

1461: 

12 

20 

92 

20 

12 

05 

20 

20 

F3 

1709 

70 

00 

00 

EC 

00 

00 

AC 

00 

97 

llCl 

92 

20 

12 

05 

20 

20 

92 

96 

05 

1469 

20 

20 

20 

20 

20 

20 

20 

20 

91 

1711 

00 

EC 

00 

00 

F0 

00 

00 

40 

42 

11C9 

D] 

20 

12 

95 

A9 

20 

92 

A9 

15 

1471. 

20 

20 

20 

20 

20 

20 

20 

20 

99 

1719 

(00 

00 

00 

00 

00 

00 

00 

00 

47 

llDl 

9E 

B7 

B7 

B7 

B7 

B7 

B7 

B7 

67 

1479 

20 

20 

20 

20 

20 

20 

20 

20 

Al 

1721 

00 

00 

00 

00 

00 

00 

00 

00 

4F 

11D9 

B7 

B7 

B7 

B7 

B7 

B7 

B7 

B7 

FB 

1481: 

20 

20 

20 

20 

20 

20 

20 

20 

A9 

J729 

00 

00 

00 

00 

00 

00 

00 

00 

57 

llEl 

B7 

B7 

137 

D7 

B7 

95 

DF 

12 

26 

1489: 

20 

20 

20 

20 

91 

91 

92 

00 

C7 

1731 

00 

00 

00 

00 

00 

00 

00 

00 

5F 

90    COMPUTE!  s  Gatette  Special  7S8B  Issua 


1739100 

00 

00 

00 

00 

00 

00 

00 

67 

19EltO0    00    00    00    00    00 

00    00 

14 

tSPACE]16E)    ,     ISa 

1741:00 

00 

00 

00 

00 

00 

00 

00 

6F 

19E9:00    00    00    00    00    OF 

F0   00 

3A 

EP 

240    DATA    132    ,     34    ,     160    ,     1 

1749:00 

00 

00 

03 

00 

00 

3D 

CF 

Fl 

19Fli3F    FC    00    3F    FF    00 

3  5    FF 

61 

60    ,    132 

175l!F0 

F5 

75 

DF 

F5 

55 

55 

F5 

C7 

19F9:00    3D   FF    00    15    DF 

00    35 

DS 

BK 

250    DATA    35    ,     160    ,    0    ,     10 

1759:55 

D5 

FF 

55 

5D 

FD 

55 

77 

02 

1A01:SF   00   35    5C   00   CD 

5C    00 

41 

[SPACEj,    240 

1761  IFF 

75 

55 

FF 

FD 

55 

3F 

0F 

6A 

1A09:CD    57   00   CD    55    C0 

F5    F5 

66 

EG 

260    DATA    16    ,     202    ,     16    ,     12 

1769:55 

00 

03 

FF 

00 

00 

00 

00 

A2 

lAlltCO    5F   55   C0   05    55 

C0    75 

2F 

,    230 

1771100 

00 

00 

00 

00 

00 

00 

00 

9F 

lA19iSF   C0    DD    75    C0    37 

D7    00 

D2 

OF 

270   DATA   34    ,    208    ,    2    ,    230 

1779:00 

00 

00 

00 

00 

00 

00 

00 

A7 

1A2]:35    5F   00   35    57   00 

35    57 

97 

•    35 

17aii0C 

00 

00 

37 

00 

00 

OS 

CO 

95 

1A29:00   35   57   00   OF   00 

00    00 

0E 

HB 

280    DATA    177    ,     34    ,    16    ,    24 

1789:03 

55 

70 

FF 

55 

70 

EA 

DF 

6E 

1A31:00   00   00   00   00   00 

00    00 

65 

6    ,    48 
290    DATA    241    ,     200    ,    177    , 

1791170 

Eh 

B3 

70 

EA 

C3 

F0 

EA 

63 

1A39:00    00    00    00    00    00 

00    00 

60 

JF 

1799:BF 

60 

EA 

65 

F2 

FA 

B5 

7E 

F9 

lA41i30   00   00   DC    00    03 

57    00 

16 

[SPACE) 34    ,    48 
300   DATA   17    ,    8    ,     142    ,    255 

,    205 
310   DATA    230    ,     198    ,    166    , 

(SPACE J 198    ,     157 
320   DATA    119    ,     2    ,    174    ,    25 

5    ,    205 

17Ali5F 

ED 

7A 

57 

AD 

7A 

57 

AF 

75 

1A4910D    55    C0   0D    55    FF 

0D   F7 

FE 

RE 

17A9iFF 

FF 

FF 

FF 

00 

00 

00 

00 

D7 

lASliAB    0D   CE   AB    0F   C3 

AB    00 

IF 

1761:00 

00 

00 

00 

00 

00 

00 

00 

DF 

1AS9:FE   AB    8F    5E   AB    BD 

5E   AF 

90 

BX 

1769:00 

00 

00 

00 

00 

00 

00 

00 

E7 

1A61 lAD    70    F5    AD    7A    D5 

FF    FA 

0B 

17C1I00 

00 

00 

00 

00 

00 

00 

00 

EF 

lA69iD5    FF    FF   FF    00    00 

00    00 

SB 

FH 

17C9:00 

00 

00 

00 

00 

30 

00 

00 

68 

1A71I00    00    00    00    00    00 

00    00 

A5 

17D1:EF 

00 

00 

EE 

00 

00 

EE 

00 

C4 

1A79100    00    00   00    00    00 

00    00 

AD 

17D9I00 

EE 

00 

00 

3E 

00 

00 

03 

B8 

1A81:00    00    00   00   00    00 

00    00 

65 

CO 

330   DATA   40    ,     208    ,    234    ,     2 

17E1I00 

00 

00 

00 

00 

00 

00 

00 

10 

1A89:00   00    00   00   00    CO 

OF    F3 

D2 

30    ,    198 

17E9I00 

00 

00 

00 

0B 

0F 

F0 

00 

BE 

lA91i7C   F7    5D   5F   55    55 

5F    57 

B9 

AE 

340    DATA    166    ,     198    ,    41    ,     1 

17Fl:3F 

FC 

00 

3F 

FF 

00 

35 

FF 

5D 

1A99:55    5F    75    55    FF    DD 

55    7F 

F5 

27    ,    157 

17F9ia0 

3D 

FF 

00 

15 

DF 

00 

35 

D4 

1AA1:55    5D   FF    55    7F   FF 

55    F0 

C4 

GH 

350   DATA    119    ,    2    ,    169    ,     20 

1601 1 5F 

00 

35 

5C 

00 

0D 

5C 

00 

3A 

lAA9tFC    FF    C0    00    00    00 

00    00 

74 

,    141 

1609:00 

S7 

00 

0D 

55 

F0 

35 

55 

94 

XG 

360    DATA    119    ,     2,    230    ,     19 

18) 1 :5C 
1819:55 

D5 
5C 

5D 
BF 

5C 
55 

D5 
70 

F5 
D5 

5C 
57 

B7 
C0 

4D 
A2 

6   ,    104 

BEFORE  TYPING  .  , 

JB 

370    DATA    166    ,     104    ,     170    , 

1621 :FS 

7D 

C0 

DF 

DS 

C0 

35 

57 

35 

(SPACE)104    ,    76 

lS29t00 

35 

57 

00 

0F 

35 

57 

00 

8D 

Before  typing  tn  programs. 

please 

FR 

380   DATA    49    ,    234    ,    198    ,    1 

1831i3F 

FF 

00 

3A 

AA 

C0 

3A 

AA 

IC 

refer  to  "How  to  Type  In 
COMPUTEl's  GAZETTE  Pro 
elsewhere  in  this  issue. 

69    ,    199 

1839:C0 
1841  IFF 
1849i37 

3A 
00 
57 

AA 
37 
00 

C0 
57 
37 

3B 
00 
57 

AA 
37 
00 

C0 
57 
37 

3F 
00 
57 

FE 
59 
DE 

grams," 

HR 
GF 

390    DATA    134    ,     126    ,    129    , 

(SPACEj 161    ,    144 
400    DATA    J  33    ,     137    ,     141    , 

1851:00 
1839 iD7 

37 
00 

SC 
0D 

00 
D7 

0D 
00 

D7 
0F 

00 
FF 

0D 
00 

AF 
D0 

(SPACE)200    ,    202 
410   DATA    130    ,     159    ,    151    , 

PG 

1861 I0E 
1869:00 

EB 
FF 

00 
FF 

0E 
00 

E6 
0F 

00 
35 

3B 
57 

AB 

00 

F5 
95 

64Key  Relocated 

HG 

(SPACE)194    ,     201 
420   DATA    196    ,     163    ,    183    , 

1871t3F 

FF 

00 

3A 

AA 

C0 

3A 

AA 

5C 

(SPACE)197    ,    131 

1879 :C0 

3A 

AA 

C0 

3B 

AA 

CO 

3F 

•3F 

Article  on  page  57. 

DA 

430   DATA    135    ,    140    ,     156    , 

1881 :FF 

00 

37 

57 

00 

37 

57 

00 

99 

[SPACEJ127    ,    0 

1889137 
1891100 

57 
37 

00 
5C 

37 
00 

57 
37 

00 
57 

37 
C0 

57 
35 

IF 
EB 

Program  1;  64Key 

KJ 

440    DATA    0   ,    0    ,     255    ,    255 
(SPACEJ,    255 

1899 1D5 

70 

35 

F5 

70 

3F 

CD 

EC 

DF 

PX    JO   PRINT" ICLR]    64-KEY" 

lBAli3A 

C3 

EB 

3A 

C0 

3B 

EA 

FF 

C9 

DG   20   FORI-52557TOS2739 

lBA9iEB 
1661:00 

FF 
00 

FF 
00 

FF 
00 

FF 
00 

00 
00 

00 
00 

00 
00 

CF 
El 

XM    30    READA!X-X+A:POKEI,A 
SG   40    NEXTI 

Omicron 

1669:00 
iacli00 

00 
00 

00 
36 

00 
00 

0C 
00 

00 
EB 

00 
C0 

36 
00 

85 
BA 

CD   50    IFX<>24016THENPRIHT"THER 
E    IS   AN    ERROR    IN    YOUR    nA 

Article  on  page  20. 

18C9:EB 

70 

00 

3D 

5F 

FF 

03 

55 

36 

TA    STATEH  ENTS " : STO  P 

n. 

.      _      . 

18Dli55 

00 

D5 

55 

00 

35 

55 

00 

3C 

BH    60    PRINT"SYS52557    TO   ACTIVA 

Program  l:  Omicron— BASIC 

18D9I0D 

55 

00 

03 

FF 

00 

00 

03 

19 

TE":END 

sectinn 

18EI:00 

00 

03 

00 

00 

03 

00 

00 

7E 

ER   80   DATA    120    ,     173    , 

20   , 

3 

16E9:00 

m 

00 

00 

00 

3F 

C0 

00 

98 

{SPACEJ,     72 

OS 

2    POKE    792,193 

laPliFF 

F0 

00 

FF 

FC 

00 

D7 

FC 

F2 

RM    90    DATA    173    ,     21    , 

3    ,     72 

AC 

10    IFPEEK(13274)<>169THENLO 

18F9:00 

F7 

FC 

00 

57 

7C 

00 

D5 

4A 

173 

' 

AD"0MICRON    ML", 6,1 

1901;7C 

00 

D5 

70 

00 

35 

70 

00 

EB 

AP    100    DATA    116    ,     205 

,     208 

JP 

20    SYS) 3274 

1909:35 
1911:70 
1919:75 
19ZltEF 
1929100 

5C 
55 
70 
F5 
3D 

00 
75 
55 
70 

FF 

FD 
70 
75 
EB 
00 

55 
55 
70 
55 
00 

C0 
DD 
7D 
C0 
00 

55 
70 
5D 
EB 
00 

55 
77 
70 
57 
00 

7A 
01 
C8 
72 
AA 

JSPACEJ2    ,     169 
GB    110    DATA    118    ,     141 

,    173 
CK    120    DATA    11,7    ,     20  5 

,     20    , 
,    208 

3 

BX 
XC 

OE 

27    POKE    808,234 

30    POKE56,48:CLR:BL=S1908iF 

=1S:SCR=J024 
40    IFPEEK(7B8)=OTHEHFORT=0T 

1931:00 

00 

03 

00 

00 

03 

00 

00 

CF 

lSPACE]2    ,    169 

0) 49 : READD? : NEXT iGOSU615 

1939:03 

00 

00 

03 

03 

00 

02 

0E 

47 

SK    130    DATA    205    ,     141 

,     2J     , 

3 

)0:GOTO60 

1941:C0 

03 

0E 

C0 

03 

3A 

F0 

00 

45 

,    104 

CH 

50    GOSUB12O0 

19491 3A 

DC 

00 

0F 

57 

FF 

00 

DS 

51 

DD   140   DATA    141    ,    117 

,     205 

^ 

Kit 

60    GOSUQ3  000 

1951:55 

00 

35 

55 

00 

0D 

55 

00 

09 

[SPACE] 104    ,    141 

ES 

70    GOSUB780 

1959:03 

55 

00 

00 

FF 

00 

00 

00 

62 

ES    150    DATA    116    ,     205 

,    86    , 

9 

KS 

80    GOSUB580 

1961100 

00 

00 

00 

00 

00 

00 

00 

93 

6    ,    0 

RG 

90    SYS51B38:POKE56322,255:I 

1969:00 

00 

00 

00 

00 

3F 

CO 

00 

J.  A 

DP   160    DATA    0   ,    72    ,    138    ,    72 

F(PEEK( 53280 )ANDF)=0THEN 

1971:FF 

C0 

00 

FF 

F0 

00 

5F 

F0 

0B 

{SPACE},     152 

220 

1979:00 

DF 

P0 

00 

5D 

F0 

00 

55 

C5 

MC    170    DATA    72    ,     165    , 

215    , 

7 

PE 

]00    LV»LV-liP0KE251,48 

1981 iF0 

00 

55 

C0 

00 

F5 

70 

00 

9B 

2    ,    165 

SB 

1J0    FORT=0TO64!POKE163,0:PO 

1969:35 

5C 

00 

FD 

5F 

00 

55 

55 

48 

XJ    180    DATA    212    ,     240 

.    4    , 

10 

KE164,3 

1991 iC0 

55 

55 

70 

55 

55 

SC 

55 

39 

4    ,    76 

DA 

120    POKE53280,TiPOKE53232, ( 

1999:55 

DC 

55 

57 

DC 

75 

57 

F0 

2A 

KM    190    DATA    221     ,     205 

,     104 

r 

3ANDT)+220 

19A1jDD 

5F 

00 

D5 

57 

00 

D5 

57 

B5 

iSPACEj201    ,    193 

SK 

130   NEXT 

19A9100 

35 

57 

00 

00 

00 

00 

00 

14 

CP    200    DATA    144    ,    82    , 

201    , 

2 

EG 

140    POKE164,0iCS=CS+l 

19B1I00 

00 

00 

00 

00 

00 

00 

00 

E3 

19    ,     176 

EF 

150    IFLV=0THEN170 

19B9:00 

00 

00 

3C 

00 

00 

EB 

00 

87 

DA    210    DATA    78    ,    56    , 

233    , 

19 

KA 

160    GOTOeo 

19C1:00 

EB 

00 

00 

3B 

00 

00 

0D 

D5 

3    ,     170 

JQ 

170    POKE53178,0:POKE53179,0 

19C9100 

00 

0D 

00 

00 

3B 

00 

00 

8A 

EM    220    DATA    189    ,     229 

,    205 

JS 

180    POKE53272, 21: PRINT" 

19Dli3A 

00 

00 

3B 

00 

00 

OF 

00 

FZ 

(SPACE) 162    ,     0 

(CLRU9    DOWNj"SPC(ll)" 

19D9I00 

01 

00 

00 

00 

00 

00 

00 

4C 

PB    230   DATA   134    ,     198 

,    170 

, 

{CYN3G   a   M    E[3    SPACES)0 
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V  E  R" 
BD  190  FORT=0TO2000:NEXT 
DS  200  FORT=0TO7iSL=SL+PEEK(83 

2+T)*10T(7-T) :NEXT 
XX  210  LD=DFiGOTO60 
MJ  220  REM  ::::::::::  GAME  WON 

t :  t  ;  I  I  :  :  I  :  : 
KS  230  IPL<15THEN430 
KD  240  POKE5317B,0iPOKE25]  ,48! 
POKE532B]. ,  1  :FORT=2T07  sW 
(T)"PEEK(1442+T)-176!NE 
XT 
250  PRINT" [CLrJ IWHTj,,  ,,,.  . 

ttttttfttitflfttttitftt 

: FORT=0TO9 1 P 


DH 


R I NT  1  NEXT 
MC    260    PRINTSPC(]1)"[RVSHBLK] 

CONG  RATU  LAT I ONS I " 
BC    270    PRINT"lRVSj"SPC(ll ) "CON 

GRATULATIOtiSgKj  "i  FORT=0 

T08: PRINT: NEXT 
DJ   280    PRINT" IWHT },,,,,,..,,,  , 

t  r  t  t  t       t 

DM  290  FORT=0TO75 

JD  300  X=INT(RND(1)*34+4):Y=IH 

T{  RND(  }.  )  *19+3  )  !  PL=X+ (Y* 

40)+SCR;IFPEEK(PL}<>32T 

HEW340 
HA  310  POKEPL+54272,l!POKEPL+5 

4273,0 
MF  320  POKEPL,39+RND(0)*2:POKE 

PL+1 , e 

XE    330    SYS49680iPOKE53280,T 

FG    340    NEXT 

XG  350  PRINT"tCLR)"!POKE5327  2, 
21 

PR  360  P0KE251, 80! PRINT" 

(5  D0WN){BLU)t7  SPACES) 
YOU  HAVE  SURVIVED  OHICR 
ONI" 

MB  370  PRINT" IDOWNJ! RED} 

17  SPACES } BONUS "( DF+] )* 
5000 "POINTS  AWARDED  FOR 

II 

DG  380  PRINT" IDOWNJ 112  SPACESj 

EACH  REMAINING  SHIP." 
HD  390  PRINT"! DOWN] I  PUR)  "LV"S 
HIPS  *"(DF+1)*5000"="(D 
F+1)*5000*LV"EXTRA  POIN 
TS." 
DX  400  FORT=0TO4500!NEXT:POKE2 

51,48 
QR  4]0  FORT»0TO7iPOKEe32+T,W(T 

} ! NEXT 
FF  420  POKE836, PEEK ( 836 )+(DF+l 

)*5*LV:GOTO170 
GC  430  REM  ::;!!! I :  LEVEL  COMP 

LETED  :::::: 
AX  440  POKE53178,1:POKE53179,0 
EH  450  IFCSO0THEN510 
OS  460  POKE  808, 234! PRINT" 

IHOME) 13  DOWNj lYEL} 

{RVSJ 12  RIGHT) 

136  SPACESJ" 
QJ  4  70  PRINT" 12  RIGHTjlRVSj 

{2  SPACES) BONUS  1000  FO 

R  EXCELLENT  PLAY  1  I 

12  SPACES)" 
DS  480  PRINT"! UP) 12  RIGHT) 

1RVS)12  SPACES) BONUS 

iE3E3  A3  FOR  EXCELLENT 

I  SPACE) PLAY  12  k3 

12  SPACESP' 
XD  490  PRINT"! 2  RIGHT) IRVS) 

!36  SPACES)" 
XG  500  POKE2  51,64!FORT=0TO2000 

iNEXT:POKE251,0:POKE836 

, peek! 836 )+l 
EB  510  CS=^!L=L+ltIF(3AND{L) }< 
I         >0THEN570 
I  FQ  520  PRINT" iHOME) 117  DOWN) 

92    COMPUTEIs  Gazette  Special  1988  Issue 


iRVS) 1GRN}110  RIGHT) 

120  SPACESJ" 
RH  530  PRINT" [RVSj 110  RIGHT) 

!3  SPACES) BONUS  SHIP  II 

1 13  SPACES)" 
OS  540  PRINT" lRVS)lUP) 

El0  RIGHT) 13  SPACES) BON 

US  SHIP  13  Kit 3  spaces! 

XP  550  PRINT" iRVSi 110  RIGHT) 

120  SPACES)" 
KA  560  POKE251,S0:FORT=1TO2000 

! NEXT : POKE25 1 , 0 ! LV=LV+1 

:IFLV>9THENLV=9 
JM  5  70  GOTO80 

FJ  580  REM  !!:!!!  BETWEEN  LEVE 
L5  !:::::::: 

KF  590  IFCS>0THENPOKE53232,209 

J  POKE53184, IS: POKE53200 

,60 
AG  600  POKE53178,1:POKE53179,0 

: POKE251 ,48 : POKE53216, 1 
QA  610  DR=INT(RND(0)*2) 
BD  620  FORT=0TO7:POKEe40+T,0!N 

EXT 
RC  630  POKEa44,L!POKE841,Q(DF, 

0, LANDF) :POKE842,Q(DF, 1 

,LANDF) :POKE165,Q(DF,2, 

LANDF) 
KQ  640  SYS13262!POKE49408+32,3 
SK  650  FORT=lTO15:POKE49408+32 

+T, 1 : POKE53232+T, 216 ! PO 

KE53216+T,14 
RC  660  POKE53200+T, RND(0)*48+1 

70!POKE53ia4+T,RND(0)*9 

0+40 : POKE49408+4e+T, OR 
KJ    670   AD=0sIFDR='lTHENPOKE4940 

a+96+T,2:AD=2 
CC    680    POKE4940e+T+e0,T:POKE49 

408+7*16+T, ( (RND(0)*256 

)AND252)+AD 
RR    690    NEXT 
RD    700    POKE1531,LV+176iPOKE]5  7 

1 , LV+240 
AF   7J0    POKE1522, (L+1)/10+176:P 

OKE1562, (L+l)/10+240iLC 

=L+1 
DG    720    IFLC>9THENLC=LC-10:GOTO 

720 
GD    730    POKE1.52  3,LC+176:POKE156 

3,LC+240 
GJ    740    POKE164,e0!POKE163.1 
FJ    750    POKE49408,0:POKE49408+i 

6,0:SYSS1908:FORT=aTO4: 

SYS49680:NEXT 
BA  760  POKE53178,255:POKE53179 

,25S 
BG  770  RETURN 
SM  780  REM  ; :  : !  1  : :  NEW  GAME  SE 

TUP  1  !:!:::  : 
AK  790  POKE53280,0:LV=5 
BH  800  L=0:SL=0!CS=0!PRINT" 

lCLR)"iPOKE53272,31 iSYS 

5 1800 
PH  910  PORT=0TOll!POKE828+T,0: 

NEXT 
MB  820  FORT=53160TO53248:POKET 

, 0 : NEXT 
KA  830  X=16384+SCR!FORT=0TO255 

STEP4 
HA  940  POKEX+T,RND(0)*25+134sP 

OKEX+T+l,RND(0)*4a+58jP 

OKEX+T+2, RND(0)*25+J6 
FC  850  POKEX+T+3,RNDl0)*48+170 

I  NEXT 
HR  860  PRINT" ICLRjlBLU) ,,,,,, , 
tittttMtritiiitttttiftt 

ttitirftit       I 

FS  870  FORT=lT0a:PRINT", "SPC(3 

8)", "t :NEXT 
HK  860  PRINT", 18  SPACES},,,,,, 

ttitttt*tttiftff 


18  SPACES),"; 

XK  890  FORT=0TO3: PRINT", 
18  SPACES) ,E7t 
120  SPACES) IBLU), 
1 8  SPACES} , "r :NEXT 

AK  900  PRINT" , 1 8  SPACES ),,,,,, 

rtttrftrittttttt 

1 6  SPACES ) , "  ; 
■JQ  910  FORT=lT0a:PHINT","SPC(3 

8)","; :NEXT 
FA  920  PRINT"  IBLU)  ,,,  , ,, 

ttftrtirtt*tfttfttttttt 

r  I  I  r  I       t 

FB  930  PRINT" IBLU) 

,,,,";: POKE2023 , 44 ! POKE 
56295,6 
JM  940  PRINT" IHOME} 110  DOWN) 
{RVS}"SPC(10}"i73 
14  SPACES) SCORE=000000 
l4  SPACES)" 
JH  950  PRINT" lRVS)lUP)"SPC( 10) 
"14  SPACES] SCORE Ex 3 
§6  A3 £4  SPACES)" 
MR  960  PRINT"lRVS)"SPC!10)" 

l2  SPACES )LEVEL=00  SHIP 
S=012  SPACES)" 
PH  970  PRINT"lRVS) lUP)"SPC(10) 
"{2  SPACES }LEVELgXi 
§2  Ag  SHIPS?XF¥A!! 
12  SPACESJ" 
MK  980  POKE53184,18!POKE53200, 

60!POKE53232,209 
CE  990  RETURN 
AS  1000  REM  ; : ! s ! I : !  TITLE  SCR 

EEN  :  !  ! !  :  J  :  t  1 
MR  1010  POKE53I.78,0:POKE533  79, 

0;POKE251,48 
HR  1020  POKE53280,0tPOKE53281, 

0!PRINT"{CLR]"j 

MP  1030  L?(0}="ROOKIE":LS() )=" 

ADVANCED" : LS ! 2 )="PRO" : 

L5( 3)= "EXPERT" 

XQ  1040  SP5="E7§lRVS) 17  RIGHT) 

127  SPACES)" 
SX  10S0  PRINT" 13  DOWNJ "SP?! PR! 
NT"[RVSJ"SPC(13)"  0  M 
1  SPACE) I  C  R  0  N  "!PRI 
NTSP? 
XC  1060  PRINT"  lDOVJN)i6i 

13  SPACES}SELECT  A  SKI 
LL  LEVEL  AND  GET  READY 

II 

BE  J  070  PRINT" 12  DOWN  J |1 3 "SPC( 

10) "YOUR  SELECTIONS  AR 

E. . .":SP=13 
SF  J  080  PRINTSPC(SP)" IWHT) 

EDO\ra)Fl    . . .    EXPERT" 
EC    1090    PRINTSPC(SP)"F3    ...    PR 

O" 
XA    1100    PRINTSPC(SP}"F5     ...    AD 

VANCED" 
CB    1110    PRINTSPC(SP) "F7     ...     RO 

OKIE" 
HK    1120    IFSL>HYTHENHY=SL!WD=LD 
SA    1130    PRIt]TSPC(2)"|D0WN) 

!CYN]LAST    GAME'S    SCORE 

:"SL"ON    "LS{LD)"." 
QR    1140    PRINTSPCl 2) "HIGHEST    SC 

ORE    YET:"HY"ON    "LS(WD) 

I*         II 

FP    1J50    A(3)=l:Al6)=2:A(5)-3sA 

(4)=4 
PP  1160  Z=PEEK(203) tIFZ>60RZt3 

THEN1160 
XG  J 170  X=A(Z) :DF=X-1 
BH  1180  IFX<1THEN1160 
MM  1190  RETURN 
SG  1200  REM  !!:!!!  DOUBLE  CHAR 

ACTERS  i  !  :  1 1  ! 
XK  1210  POKE  53  280, 01 POKE53281 

,0 


CR 

121S 

PRINT" lCLR}{ 10    DOWN} 

,1 

,2, 

2,2,2, 

2,2 

{YELI CREATING    NEW    CHAR 

CX    1580 

DATA 

1,1,2, 

2,3,3 

4,4,5 

ACTER   SET... PLEASE   WAI 

,6 

,3, 

4,4,3, 

3,3 

T" 

XR    1590 

DATA 

0,0,0, 

0,0,0 

0,0,0 

PG 

1220 

POKE56334, PEEK (56334) A 

.0 

,0, 

0,0,0, 

0,0 

ND254iPOKEl,PEEK(l)A^D 

AH    1600 

DATA 

1,1,1, 

1,1,1 

2,2,2 

251 

,2 

,2, 

2,2,2 

2,2 

CR 

1230 

B=15360iA=53252tFORK=0 

GX    1610 

DATA 

1,  2,3 

4,5,5 

2,3,4 

TO63!FORT=0TO3 

.4 

.  5, 

5,7,6, 

6,6 

QE 

1240 

POKEB+K*8+T*2, 255-PEEK 

MF    1620 

DATA 

0,1.1, 

1,1,1 

,1,1,1 

(53248+K*a+T) !POKEB+l+ 

,] 

.  1. 

1,1,1, 

1,  1 

K*8+T*2, 255-PEEK {53248 

JE    1630 

DATA 

1,1,1, 

1,1,2 

,2,2,2 

+K*8+T) 

,2 

.2. 

3,3,3, 

3,3 

QE 

1250 

POKE15872+K*a+T*2,255- 

DE    1640 

DATA 

3,4,5, 

7,7,2 

3,3,4 

PEEK(A+K*e+T) ! POKE1587 

,5 

.5. 

4,6,3, 

4,4 

3+K*8+T*2 , 255-PEEK{ A+K 

AG    1650 

DATA 

)  ,  1  ,  1 

1,2,2 

,2,2, 1 

*a+T) 

,  J 

.2, 

2,], 2 

2,2 

JP 

1260 

NEXT  1  NEXT : POKEl , 55 : POK 

OH    1660 

DATA 

4,4,4 

3,3,2 

,2, 1,3 

E56334,l 

,3 

,3, 

4,7,4 

4,4 

MQ 

1270 

REM     !  1  !  1  I  1  !  t  I     16    SPRIT 

GJ    1670 

DATA 

1,3,5 

2,3,6 

,  7,  7,3 

ES     :::::;:::: 

,3 

,5, 

3,2,4 

5,7 

XC 

1280 

SA=5 1968+40 

FG    1680 

DATA 

1,1,1 

2,2,3 

,3,4,2 

DB 

1290 

FORT=0TO149 : READV$ 

,3 

,1  , 

2,  2,2 

2,3 

DM 

1300 

L?=LEFTStV$, J) 

I  • 

t  '-  i 

HX 

1310 

I FASC ( LS ) > 64THENHN=ASC 

(L5)-55 

Program 

2:  Omicron — ML 

PE 

1320 

IFASC(L5 ) <65THENHN"ASC 
(L5)-48 

section 

PQ 

1330 

R5=RIGHTS(V5, 1) 

See  instructions  in  article  on 

page 

RG 

1340 

IFASC(R5)>64THENLN=ASC 

20  before  typitiji  in. 

(R?)-S5 

CM 

1350 

IFASC ( R? ) <65THENLN=ASC 

33CEIA2 

00 

8A 

9D   00 

Gl    E8 

E0   6B 

(R5)-48 

3306:80 

D0 

P8 

60    A9 

68   85 

AE    7F 

KS 

1360 

B°HN*16+LNiP0KESA+T,B: 

33DE!A9 

39 

as 

AF   A0 

00   A2 

00    SE 

NEXT 

33E6:A9 

90 

85 

BO   A9 

CI   85 

Bl    13 

AM 

1370 

POKE53265  ,  27  t  POKE563,33 

33EEiB] 

AE 

9) 

B0   C8 

D0  F9 

E8    7D 

. 127 : P0KE788, 0s  POKE789 

33F6:E6 

AF 

E6 

Bl    E0 

0fi    D0 

F0    7A 

,203 

33FEi60 

00 

00 

00    00 

C0    00 

00    98 

DH 

1380 

POKESA+109,PEEK(648)+3 

3406:70 

00 

00 

3C    00 

00    IF 

00   A8 

iPOKE53274,129 

340E:00 

0F 

C0 

00    7F 

F0    00 

OF    21 

JK 

1390 

DATA   A5,FD,29,01,AA, 49 

3416:C0 

00 

IF 

00    00 

3C    00 

00    B3 

,01,A8,BD,B2,CF,8D,1C, 

34  IE: 70 

00 

00 

C0    00 

00    00 

00   CA 

D0 

3426:03 

00 

00 

00    00 

00    00 

00    8E 

FR 

1400 

DATA    BD,B4,CF,8D, 1D,D0 

342E100 

00 

00 

00    00 

00    00 

00    96 

,BD,B6,CP,8D,17,D0,BD, 

3436:00 

00 

00 

00    00 

00    00 

00    9E 

B8 

343E:00 

00 

00 

00    00 

00    38 

00    17 

FG 

1410 

DATA   CF,8D,19,D0,BD,BA 

3446:03 

Fa 

00 

3F    F0 

00    FF 

F0    DA 

,CF,8D, 15,D0,AD,1E,D0, 

344E:00 

0F 

F0 

00    07 

F0    00 

0F    A3 

99 

3456:E0 

00 

0E 

E0    00 

00    60 

00    BF 

XP 

1420 

DATA    BC,CF,AD,1F,D0,99 

345E:00 

60 

00 

00    60 

00    00 

00   El 

,BE,CF,A9,01,eD, 19,D0, 

3466:00 

00 

00 

00    00 

00   00 

00    CE 

A5 

346ES00 

00 

00 

00    00 

00   00 

00   D6 

KD 

1430 

DATA    FD,29,01,0A,0A, 0A 

3476:00 

00 

00 

00    00 

00    00 

00    DE 

,AA,A0,a0,84,FE,A9,01, 

347E:00 

00 

00 

00    00 

06    00 

00    FE 

85 

DATA    FC,BD,C0,CF,0A, 99 

3486:06 

00 

00 

0F    00 

00    0F 

00    0] 

DA 

1440 

348E:00 

IF 

60 

00    3F 

C0    00 

7F    4B 

,00,D0,90,06,A5,FC,05, 

FE 

DATA    85,FE,BD,D0,CF,99 

3496  I E0 
349E:C6 

00 
30 

7F 
00 

E0    00 
86    10 

F6    F0 
00    00 

00  20 
00    5F 

HF 

1450 

34A6:00 

00 

00 

00    00 

00    00 

00    0F 

,01,D0,8A,B4,FF, 29,07, 
AB 

34AE:00 
34Q6:00 

00 
00 

00 
00 

00    00 
00    00 

00    00 
00    00 

00  17 
00    IF 

34BE;00 

00 

00 

00    00 

E0    00 

00   AA 

JD 

1460 

DATA    BD,E0,GF, 99,27,00 

34C6:FE 

00 

00 

7F    E0 

00    7F 

FC   A9 

,BD,F0,CF,99,F8,07,A4, 

34CE:00 

7F 

80 

00    7F 

80    00 

3F    64 

FF 

34D6!C0 

00 

36 

C0    00 

38    00 

00    93 

KA 

J.470 

DATA    18,26,FC,E8,CB,C8 

34DE:18 

00 

00 

18    00 

00    00 

00    D4 

,C0,10,D0,CD,A5,FE,SD, 
10 

34E6J00 

00 

00 

00    00 

00    00 

00    4F 

34EE:00 

00 

00 

00    00 

00    00 

00   57 

XP 

1480 

DATA    D0,AD,1F,D0,E6,FD 

34F6:00 

00 

00 

00    00 

00    00 

00    5F 

,A9,00,8D,).2,D0,AD,0D, 

34FE:0a 

00 

00 

00    00 

00    70 

00   48 

DC 

3506:01 

E0 

00 

07    C0 

00    IF 

C0    9E 

CG 

1490 

DATA    29,01,F0,03,4C,31 

350E100 

7F 

80 

00    FF 

F0    00 

7F    AB 

,EA,4C,BC,FE 

3516:80 

00 

IF 

C0    00 

07    C0 

00    4E 

SG 

1500 

REM    !  1  t 1 t  u 1 ! !    GAME   SE 

3S1E:01 

E0 

00 

00    70 

00    00 

00   C4 

TUP      t  1  [  !  t  1  t  t  ! 

3526:00 

00 

00 

00    00 

00    00 

00    90 

KK 

1510 

DIMQ(3,2,15) 

352Ei00 

00 

00 

00    00 

00    00 

00    98 

EH 

1520 

FORD=0TO3  tFORK-0TO2:FO 

3  536:00 

00 

00 

00    00 

00    00 

00    A0 

RT=0TO15 

353E:00 

00 

18 

00    00 

18    00 

00    0C 

PJ 

1530 

READV:IFK=2THENV=15-V 

3546:38 

00 

00 

38    C0 

00    3F 

C0    95 

PJ 

1540 

IFK=1THENV=V*32+31 

354E:00 

7F 

80 

00    7F 

80    00 

7F    26 

ES 

1550 

Q ( D, K,T}=V! NEXT: NEXT :N 

3556:FC 

00 

7F 

E0    00 

FE    00 

00    39 

EXT 

35SE:E0 

00 

00 

00    00 

00    00 

00    39 

KD 

1560 

RETURN 

3  566:00 

00 

00 

00    00 

00    00 

00    DO 

^S 

1570 

DATA    1,1,1,1,1,1,1,1,1 

356E100 

00 

00 

00    00 

00    00 

00   D8 

3576:00 
357E:00 
3586:EF 
358E:00 
3596:00 
3S9ES06 
35A6t00 
35AE:00 
35B6:00 
35BE:00 
3SC6:00 
35CE:00 
35D6;F0 
35DE:00 
3SE6:00 
35EE:00 
3SF6:00 
35FE:00 
3606: IF 
360E:00 
3616:F0 
361E:3F 
3626:00 
352E:00 
3636:00 
363E:00 
3646:70 
364E10O 
3656:E7 
365E:00 
3666:00 
366E:00 
3676:00 
367E:00 
3686:C0 
36aE:00 
3696:E3 
369E:O0 
36Ae:00 
36AE:00 
36B6:00 
36BE!00 
35C6!0] 
36CE500 
36D6:E0 
36DE:1F 
36E6:00 
36EE:00 
36F6:00 


3SFE 

3706 

370E 

3716 

371E100 

3726:00 

372E:00 

3736:00 

373E:00 

3746ilF 

374E;00 

3756 :F0 

375E:00 

3766:00 

376E:00 

3776:00 

377E:00 

3786:1F 

37aE:00 

3796:FF 

379E:F0 

37A6:00 

37AE:00 

37B6:00 

37BE:00 

37C6:38 

37CE:00 

3  706: IE 

37DE:F1 

37E6:03 

37EE:00 

37F6:00 

37FE:00 

3806:00 

3B0E:78 

3816 :E0 


00  00 

00  86 

70  00 

3F  C0 

00  0F 

00  00 

00  00 

00  00 

00  00 

00  00 

60  00 

07  F0 

00  3F 

78  00 

00  00 

00  00 
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)2    SPACESJ":P?12)="V 

(DOWN) 12    LEFT}    V":P5(3) 

=  "W)D0VraJl2    LEFT)    V":P 

5(4)="VVlDOWN) 12    LEFTjV 

V" 

UP«79  t  LM-91 1 RM=2S1 1  BH=2 

07:CL(0  >»15:CL(1 )-10iMV 

=1 iMA=l;MD=l 

FOR   3=0   TO   24! POKE   5427 

2+J,0:READ    X:POKE    54272 

+J,X!NEXT 

FOR   V=l    TO    30: READ   J[V) 

tNEXT 

SV=53  248!MX=79:MY=92:PO 

KE    2042,11:FOR   1=0   T06  2 

I  READ   OsPOKE    704  +  1, QiNE 

XT 

FOR    1=1    TO    30; READ    CD (I 

),CA(I):NEXT 

POKE    53280, 6:P0KE    53281 

,6iPRINT   CHRS(31)"IcLR] 

IBLUJ"; 

FOR    1=0    TO    23: PRINT" 

UVS}  139    SPACES)" 

POKE    1063+(40*I),160iPO 

KE    55335+(40*l},6:NEXT 

PRINT" I RVS) I  39    SPACES) 

[HOME) I BLK}": POKE  2023,1 

60:POKE56295,6 

POKE    53  281, 111  PRINT    SPC 

(14)"lCYN)CUAGI    MOACOGK 

HBLK}  iOOHN}" 

FOR  1=1  TO  5: PRINT  SPC{ 

8)M$B$HSB5MSB$MSSSH9B?M 

5 1  NEXT 

PRINT" I  DOWN) tRVS) (BLUj 

132  SPACES) IHOME)": POKE 

SV+41,7:GOSUB690 
X=TU:GOTO370 
FG=0:FOR  H=l  TO  30: IF  U 
(H)>=J(H)  THEN  PG=1:G0S 
UB710 

NEXT: IF  FG=1  THEN3S0 
X=-X+liPN=PN+l 
IF  COMPUTER  AND  NOT  X  T 
HEN  POKE  53269, 0:RD=0:G 
OTO970 

POKE  SV+41,CL(X)sGOT054 
0 

H-MV 

IF  L(H)<>X+1  AND  L(H)  T 
HEN3B0 

U(H)=U(H)+1:FS(X)=FS(X) 
+1 :1F  L(H)=0  THEN  L(H)= 
X+1 

GOSUB510 SPRINT  PS(U(H>) 
IF  U(H)>^=J(H)  THEN  POKE 

53269, 0:GOSUB710!GOTO3 
50 

GOTO 3 70 

XX=15 : YY=24 ! GOSUB530  t PR 
INT"tCYN)FAJDlRVS) iBLU] 

{ OFF ) I CYW ) KXDM { HOME ) " i 
FOR  2=1  TO  2000:NEXT 
XX-B:YY=24:GOSLIBS30:PRI 
NT"LMDNNlRVS) {BLU) 
[OFFj ICYNJEGMDPBOOKI 
tRVSi iBLUj  lOFF} lCYN)OK 
lRVS)lBLU)  lOFF)lCYN)LH 
AY) HOME}" 

UAIT  56320+X*F2, 16, 16:R 
UN 
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QD    490    IF   L(0)<>X+1    THEN    FS(X) 

=>FS{X)+UCO)  :FSC-X+1)=FS 

(-X  +  U-U[0) 
JP    500    L(0)=X+1:U{0)=U(0)+) iGO 

SUB52S:PRINT    P5(U(0)):R 

ETURN 
RB    510    XX=-5  +  (4*CA(H)):YY=4*CD( 

H);POKE    646,CL(X) sGOSUB 

530!RETURN 
MG    520   XX>«5+(4*CA(0)  ):YY=4*CD{ 

0)!POKE    646,CL(X):GOSUB 

530: RETURN 
KF    530    POKE    783,0: POKE    781, YY: 

POKE    7e2,XX:SYS    65520:R 

ETURN 
PC    540    POKE    53269,4 
FF    550   jyal5-(PEEK{5e320+X*F2) 

AND15) !JB=PEEK(56320+X* 

F2)AND16 
QB   560    IF   JB=0   TiiEN400 
SC    570    IF    JY=a    THEN   JY=3 
FF   580    IF   JY<J    OR  jy>4   THEN550 
PC    590    ON    JY   GOTO600,620,640,6 

60 
QC    600    IF   MX-4<UP   THEN550 
XR    610    MX-MX-32!MV=HV-6:MD=MD- 

] ;GOTO680 
MP   620    IF   MX+4>DN   THEN550 
RJ    630    HX='MX+32!HV»MV+6:MD=HI>+ 

3  :GOTO680 
GC    640    IF   MY+4>R.M   THEN5S0 
FQ   650   MY=MY+32:MV=MV+1:HA=MA+ 

It  GOTO 680 
FH   660   IF   MY-4<LM   THEN550 
AC    670   MY«Hy-32iMV=MV-l5MA=MA- 

1 
JG    680   GOSUB690tGOTO550 
XA   690    POKE    SV+4,MYiP0KE    SV+5, 

MX: RETURN 
MH    700   KT?="":POKE   198,0:WAIT 

{ SPACE ) 1 98, l! GET   KT5 j RE 

TURN 
PF    710    POKE    54276, 64: POKE    5429 

0,128:POKE    24276, 65:POK 

E    54290, 129!F0R   V=l    TO 

I  SPACE J 4 
CA    720    GOSUB510JPOKE    646,PL(X) 

iPRINT"lRVSj lUPJ (LEFTj" 

M5!GOSUB510:PRINT" IBLK] 

[UP ) (LEFTj "M? 
XQ    730    FOR   TD=1    TO    125!NE3a'!NE 

XT 
KH    740    U(H)=U{H)-J(H) 
MR    750    IF   U(H)>0   THEN   GOSUB510 

iPRINT    P5(U(H)) :GOTO770 
GJ    760    L(H)=0 
QX    770    IF   CD{H)=1    THEN790 
ED    780    OaH-6:GOSUB490 
AG    790    IF    CA(H)=1    THEN810 
CR    800    O=H-1:GOSUB490 
FJ    810    IF    CA(H)=6    THEMS30 
RC    820   O=H+l;GOSUB490 
MO    830    IF   CD(H}=5    THEN850 
RG   840   O=H+6:GOSUB490 
XK    850    IF    FS(0)<1    OR    FS(1)<)     T 

HEN460 
MR    860    RETURN 

RH    870    LP=0:IF    CD(H)=1    THEN890 
KQ    880    IF   L(H-6)=2   THEN   KZ=H-6 

:GOTO960 
GX    890    IF   CA(H)=1    THEN910 
JC    900    IF    LlH-l)=2    THEN    KZ=H-1 

!GOTO960 
MB    910    IF   CA(H)=6    THEN930 
CA    920    IF   L,(H+1)=2    THEN   KZ^H+J 

: GOTO 960 
RP    930    IP    Cn(H)=S    THEN    RETURN 
SP    940    IF    L(H+6)=2    THEN   KZ=H4-6 

:GOTO960 
CD    950    RETURN 
FQ   960    LP=li RETURN 
BF    970    FOR    1=1    TO    30iRT(l}-0iT 

R(I)=0:NEXT 


XE  980 

PP  990 
AH  1000 
HH  1010 


BR  1020 


XM  1030 
JO  1040 

GS  1050 


PB  1060 


RE  1070 


CH  1080 


JS  1090 


JQ  1100 


FE  1110 


XT=0tFOR  1=1  TO  30: IF  L 
(I)=2  THEN1000 
T1(XT+1 )=1:XT»XT+1 

NEXT : RD=0 

XX=16rYY=24sGOSUB530:P 

RIHT" {CYnJoUGITGIF 

i HOME ) " 

FOR  I«30  TO  30-XT  STEP 

-1:RT(I )=0i NEXT: FOR  1= 

1  TO  XT 

H=T1(I) :GOSUBa70 

IF  FG=1  AND  LP  AND  U(H 

)>0   THEN1220 

IF  U(H)+1=J(H)  AND  LP= 

1  AND  U(KZ)+1=J(KZ)  TH 

EN  RT(I)=6:GOTO1170 

IF  u(h)+i=j(h)  and  LP= 

1  THEN  RT(I)-2:G0TO117 

0 

IF  U(H)+1=J(H)  AND  LP= 

0  THEN  RT(I)=1:G0T0117 

0 

IF  J(H)=2  AND  LP=0  AND 

tJ(H)>*l  THEN  RT{I)=1:G 
OTO1170 
IF  J(H)=2  AND  LP=0  AND 

UUn"0  THEN  RT(I  )=4:G 
OTOJ170 
IF  J(H)«'2  AND  LP=1  AND 

U(H)=1  THEN  RT(I)=4!G 
0T01170 

IF  U(K2)+l=JtKZ)  THEN 
tSPACE}RT(I)=l:G0T0117 


SJ  1120  IF  UCH)+2>=J(H)  AND  LP 
=■]  AND  U(KZ)+1<  J(KZ) 
ISPACEJTHEN  RT(I)=5:G0 
TO1170 

AH  ].130  IF  U(H)  +  2>=J(H}  AND  LP 
=0  THEN  RT(I)=3:GOT011 
70 

AP  1140  IF  U(H)+2>=J(H)  THEN  R 
T(I  )=2:GOTO1170 

MJ  1150  IF  LP=0  THEN  RT(I)=2!G 
OTOH70 

SE  1160  RT(I  )=1 

MQ  1170  NEXT  IjTC"1:ZT=0!AB=6 

KS  1180  FOR  1=1  TO  XT: IF  RT(I) 
=AB  THEN  TR(TC)=l!ZT=Z 
T+1:TC=TC+1 

QQ  1190  NEXT! IF  ZT>0  THENi210 

CF  1200  AD=AB-1 IGOTO1180 

HP  1210  DH=INT(ZT*RND(1 })+l:HD 
=TR(DH) jH=T1(HD) 

HJ  1220  XX=15jyY=24iGOSUB530!P 
RINT'MRVSJ  ULU) 
[11  SPACES} IHOME] ";FG= 
FG+1:GOTO410 

HC  12  30  DATA  126,102,102,126,1 
02, 102,102,0,102,102,1 
02, 102, 102, 102,126,0 

DX  1240  DATA  126,98,96,96,96,9 
8,  126,0, 126,9B,96, 120, 
96,98,126,0,126,98 

JS  1250  DATA  98,120,96,96,96,0 
,126,102,96,110,102,10 
2,126,0,  126,90,24,24 

OP  1260  DATA  24,90,126,0,96,96 
,96,96,98,98, 126,0,102 
,118,126,126,110,102 

MX  1270  DATA  102,0,99,119,127, 
107,99,99,99,0,126,102 
, 102,  102,102,  102, 126 

QC  1280  DATA  0,126,102,102,126 
,96, 96,96,0, 126,102, 10 
2, 126,120,108,102,0 

GJ  1290  DATA  126,102,96,126,6, 
102,126,0,126,90,24,24 
,24,24,24,0,124, 102 

SS  1300  DATA  102,124,102,102,1 
24,0,56, 24, 24,24, 24, 24 
,60,0,60,54,6,12,48 


BR  1310  DATA  48,62,0,30,12,12, 
12,12,108, 124,0,230,10 
8, 120, 112,120, 108 

GS  1320  DATA  230,0,2  31,102,102 
,126,102, 102,231,0,0,8 
,16, 124,222,190,254 

AH  1330  DATA  124,198,198,198,2 
14,254,238,198,0,231,1 
02, 102, 102, 102,60,24 

HQ  1340  DATA  0,0,4,0,12,64,10, 
0,0,0,0,12,64, 12,0,0,4 
,0,12,128,12,0,0,50 

CF  1350  DATA  244,47,2,3,3,3,3, 
2,3,4,4,4,4,3,3,4,4,4, 
4,3, 3,4,4,4,4, 3, 2,  3 

XK  1360  DATA  3,3,3,2,0,0,0,0,0 
,0, 120,0,30, 192,0, 3,19 
2,0, 3, 192,0,3,0,0,0 

JA  1370  DATA  0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0, 192,0 

CB  1380  DATA  3,192,0,3,192,0,3 
, 120,0,30,0,0,0,1,1,1, 
2,1,3,1,4,1,5,1,6,2,1 

AD  3390  DATA  2,2,2,3,2,4,2,5,2 
,6,3,1,3,2,3,3,3,4,3,5 
, 3, 6, 4, ) ,4, 2,4, 3,4 

DQ  1400  DATA  4,4,5,4,6,5,1,5,2 
,5,3,5,4,5,5,5,6 


BEFORE  TYPING  .  .  . 

Before  typing  in  programs,  please 
refer  to  "How  To  Type  In 
COMPUTERS  GAZEnE  Programs," 
elsewhere  in  this  issue. 


DOS  Window 

See  instructions  in  article  on  page 
30  before  typing  in. 

Program  1:  DOS  Window  Object 
File 


CA60  :  4C 

94 

CA 

3D 

00 

00 

00 

00 

6E 

CA6B:0O 

00 

00 

00 

00 

00 

00 

00 

FD 

CA70:00 

00 

00 

00 

00 

00 

00 

00 

06 

CA7S!90 

00 

00 

00 

00 

00 

00 

00 

0E 

CAB0!00 

00 

00 

00 

00 

00 

00 

00 

16 

CA88100 

00 

00 

FF 

00 

03 

01 

OE 

3A 

CA90SFE 

F& 

3] 

EA 

78 

AD 

)4 

03 

DD 

CA98iaD 

92 

CA 

AD 

IS 

03 

QD 

93 

31 

CAAOiCA 

A9 

H2 

80 

14 

03 

A9 

CA 

FF 

CAA8:BD 

15 

03 

A9 

00 

8D 

8B 

CA 

SO 

CAB0:58 

60 

AD 

8D 

02 

C9 

04 

D0 

29 

CABBiSB 

A5 

CS 

C9 

12 

D0 

05 

AD 

IE 

CAC0!8B 

CA 

F0 

03 

6C 

92 

CA 

A9 

0A 

CAC8:FF 

8D 

8B 

CA 

20 

E7 

FF 

A9 

2A 

CAD0!00 

85 

D4 

20 

90 

FF 

AD 

86 

CA 

CAD8:02 

8D 

8F 

GA 

AD 

20 

D0 

BD 

BE 

CAE0:90 

CA 

AD 

21 

DO 

80 

91 

CA 

E3 

CAEB!78 

A2 

00 

B5 

00 

90 

00 

AO 

D5 

CAF0 : BD 

00 

04 

9D 

00 

Al 

BO 

00 

CI 

CAF8:05 

9D 

00 

A2 

BD 

00 

06 

9D 

3A 

CBOaiOO 

A3 

BD 

00 

07 

9D 

00 

A4 

8B 

CB08:BD 

00 

08 

9D 

00 

A5 

BD 

00 

85 

CB10ID9 

9D 

00 

A6 

BD 

00 

DA 

90 

A7 

CBlSt00 

A7 

BD 

00 

DB 

9D 

00 

A8 

4F 

CB201E8 

DO 

C8 

58 

A9 

0E 

80 

21 

CO 

CB26JD0 

A9 

93 

20 

D2 

FF 

A2 

00 

E2 

CB30:8E 

20 

DO 

8E 

86 

02 

8E 

87 

FA 

CB38!02 

20 

66 

CD 

A9 

92 

20 

D2 

2D 

CB40:FF 

A2 

27 

A9 

40 

9D 

C8 

04 

0E 

CB48:CA 

10 

FA 

20 

93 

CD 

A2 

00 

C3 

CB50:BA 

9D 

00 

08 

E8 

D0 

FA 

20 

C2 

CB58:CB 

CE 

20 

E4 

FF 

F0 

F8 

8D 

IF 

CB60:8D 

CA 

C9 

44 

D0 

0F 

A2 

09 

FF 

CB68:S6 

FD 

20 

84 

CD 

A9 

01 

8D 

B3 
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CB70S29 
CB78;08 
CBSe :CE 
CBaa:79 
CB90:6B 
CB9asBD 
CSA0IA2 
CBAS I  013 
CBB0JBD 
CBBSiAe 
CSC0:00 
CBC81E8 
CBD0:95 
CBDB:00 
C9E0JAD 
CBEStCA 
CBF0t2] 
CBFSsCe 
CC00IA9 
CC0a:4C 

CC].0!0] 

CC18:43 

CC2014C 

CC2e:31 

CC30:4C 

CC38S20 

CC40166 

CC48I03 

CC50:AD 

CC58SBD 

CC60:2O 

CC6e:C5 

CC70S06 

CC76S4C 

CC60!01. 

CC88!0D 

CC90JCA 

CC98:A6 

CCA0  J  PF 

CCAa : A9 

CCB0!4C 

CCB8:BE: 

CCC0:3B 

CCC8:6E 

CCD0tCD 

CCD81BD 

CCE0!F3 

CCE8;20 

CCF0:03 

CGF8:20 

CD00I52 

CDSesAS 

CD10!A6 

CD  IB t 20 

CD20t20 

CD28;5.7 

CD30IA2 

CD38!F0 

CD40:C9 

CD48:0A 

CD50:4C 

0059:77 

CDe0:20 

CD68:CF 

CD70:F5 

CD78:FD 

€080 :A9 

0089: B8 

CD90:D0 

CD98!CD 

CDA0!A9 

CDASsAS 

CDBBiFF 

CDB8!A2 

CDC0!l0 

CDCaiFB 

CDD0JD0 

CDO8t05 

CDE0:CD 

CDE8SFC 

CDF0 1 91 

CDF8tCE 

CE00:A0 


D8  4C 
A9  01 
C9  56 
DB  4C 
78  A9 
00  Al 
9D  00 
06  BD 
00  A5 
90  00 
DA  BD 
D0  CD 

00  E8 
A0  95 
8F  CA 
BD  20 
D0  A9 
4C  BC 

01  8D 
92  CE 
BD  Al 

00  08 

89  CE 
80  60 
DO  48 
D2  CD 
BA  AD 
A9  00 
8E  CA 
FF  A6 
DS  FF 
4C  D0 
2F  84 
BS  CE 
8D  60 
CE  A2 
A2  63 
2D  A4 
4C  B5 

01  80 
9  2  CE 
CE  A9 
4C  AS 
CE  A9 
A9  01 
FF  A9 
AS  BA 
96  FF 

84  B7 
A5  FF 
A4  B7 
C4  20 

90  D0 
D2  FF 
D2  FF 
D0  20 
BB  20 

19  20 
0D  D0 

85  FD 
El  CC 
CD  20 
AB  FF 
F0  06 
A9  20 
A0  06 
0A  85 
CD  E6 
F2  60 
A9  08 
6F  85 
FF  C9 
4C  A7 
JB  A9 
FB  A2 
FF  60 
0C  20 

20  6E 
A9  63 
A9  00 
FB  88 
A2  E4 
00  8C 


C7  CC 
80  51 
D0  08 
95  CE 
36  85 
90  00 
05  BD 
00  A4 
90  00 
09  BD 
00  AS 
A2  39 
00  FB 
00  CA 
80  86 
D0  AD 
00  8D 
FE  C9 
B0  D8 
C9  52 
DB  4C 
A9  01 
C9  5E 
08  4C 
A9  31 
20  00 
BD  CA 
2C  A9 
A2  6  3 
2B  A4 
B0  13 
0C  86 
30  86 
C9  5F 
D8  20 

08  86 
A0  CA 
2E  A9 
CE  C9 
38  DS 
C9  55 
55  20 
CE  4C 

09  85 
A2  FF 
60  85 
20  B4 
A9  00 
20  A5 
85  C4 
88  D0 
CD  BD 
3F  C9 
4C  0D 
E6  FD 
E6  FD 
66  CD 
CB  CE 
Fl  20 
20  77 
A2  J.  8 
B8  CD 
4C  4B 
20  D2 
20  D2 
18  20 
FD  20 
FD  A5 
20  6E 
85  BA 
B9  20 
00  F0 
CD  20 
20  20 
06  A0 
20  6E 
6E  CE 
CE  A2 
85  FB 
BD  8E 

10  FB 
20  66 
8E  CA 


C9  49 
DS  4C 
A9  01 
C9  0D 

01  A2 

04  BD 
00  A3 

90  00 
08  BD 
00  A7 
9D  00 
BO  00 
A2  2A 

00  FS 

02  AD 

91  CA 
8B  CA 
53  00 
20  D2 
D0  0a 
89  CE 
80  BB 
D0  08 
3a  CC 
8D  4  3 
CE  A2 
C9  4C 

01  85 
A0  CA 
2C  A9 
AD  BD 
2D  84 
3.1  84 
D0  25 
D2  CD 
BA  AD 
20  BD 
2a  20 
4E  D0 
20  CB 
D0  0D 
A8  FF 

5  7  CB 
FD  20 
A0  CE 
B9  20 
FF  A5 

85  90 
FF  85 
A4  90 
EB  A6 
20  A5 
00  F0 
CD  A9 
A  5  FD 
20  77 
20  El 
20  E4 
80  CO 
CD  A0 

86  FD 
20  42 
CB  BD 
FF  E8 
FF  60 
F0  FF 
77  CD 
FD  C9 
CE  20 
20  B4 
96  FF 
06  20 
AB  FF 
D2  FF 
0A  18 
CE  A2 
A2  D8 
D3  20 
A9  CA 
CA  A0 
60  20 
CD  A9 
91  FB 


D0  C9 
95  93 
80  40 
D0  7E 
00  0A 
00  AB 
90  14 
07  IC 
00  94 
9D  83 
DB  5E 
A0  4E 
BD  CI 
58  2F 
90  BD 
8D  31 
85  3B 
0B  D6 
CD  26 
A9  72 


C9 

3F 

DB 

4B 

A9 

A8 

C9 

47 

DS 

65 

08 

43 

D0 

41 

B9 

A6 

20 

3B 

00 

81 

CA 

BF 

2E 

F4 

32 

E0 

A9 

4E 

20 

9F 

as 

3A 

FF 

0) 

oa 

SB 

0B 

25 

CD 

39 

20 

B3 

A9 

3D 

20 

24 

77 

EE 

28 

46 

D5 

tiS 

D9 

El 

A0 

AA 

C3 

22 

D0 

0F 

C3 

n4 

FF 

42 

06 

67 

00 

3D 

C9 

3B 

CD 

23 

FF 

29 

FF 

14 

A9 

85 

02 

42 

20 

49 

F6  ID 
00  C0 
D0  24 
A6  7  5 
60  A2 
20  9E 

19  32 
C2  11 
FF  9E 

20  B4 
02  03 
60  41 
CA  BA 
20  D4 
F4  03 
D0  46 
66  C4 
85  34 
28  4F 
6E  76 
3D  3E 
E6  E3 


CE08tFB 

CE10:08 

CE18:D1 

CE20:05 

CE28:FF 

CE30:14 

CE3aiF0 

CE40:30 

CE4B!91 

CE50tD2 

CE58i91 

CE60SCA 

CE68:20 

CE701A0 

CE78sA9 

CE80IA2 

CEa8i60 

CE90IF6 

CE9a:AD 

CEA0:20 

CEA8:A0 

CEB0:Aa 

CEB8!20 

CEC0:20 

CEC8:93 

CED0t4B 

CED81BA 

CEE0  5  48 

CEE8:69 

CEF0:0F 

CEF8:88 

CF00!l2 

CF08!20 

CF10120 

CFIB120 

CF20!20 

CF26i20 

CF30145 

CF3a:20 

CF40:41 

CF48:4F 

CF50!3A 

CF58!49 

GF60I53 

CF68120 

CF70:3B 

CF78:41 

CF80:20 

CF8a:S0 

CF90!3A 

CF98:52 

CFA0 I  20 

CFA8 ; 3A 

CFB0 [00 

CFB8t53 

CFC0S53 

CFC8:2C 

CFD0 : 50 

CFD8:12 

CFE0!45 

CFEa!20 

CFF0I45 

CFF8S45 


EE  BE 
A4  03 
20  CB 
68  68 
F0  E2 
F0  2B 
03  C9 
CB  C9 
FB  E6 
FF  A4 
Dl  4C 
F0  AA 
D2  FF 
0A  IB 
20  20 
07  A0 
20  09 
CD  20 
8D  CA 
AS  FF 
00  B9 
FF  C8 
E7  FF 
Bl  FF 
FF  60 
29  10 
90  BF 
29  F0 
B0  9D 
18  69 
10  DC 
20  20 
20  20 
20  20 
20  20 
20  20 
92  20 
43  54 
20  4E 
54  20 
41  44 
49  4E 
5A  45 
41  56 
5E  3A 
2C  31 
4C  49 
20  20 
59  20 

52  45 
3A  52 
20  20 

53  43 
00  12 
3A  00 
20  52 
20  4F 
92  00 
46  49 
3A  92 
46  49 
3A  92 
2C  49 


CA  60 
Bl  Dl 
CE  20 
4C  29 
C9  0D 
AE  BE 
7F  10 
2  2  F0 
FB  EE 
D3  Bl 
00  CE 
C6  FB 
4C  0D 
20  F0 
D2  FF 
00  18 
CD  20 
0D  CE 
20  AS 
A9  3A 
63  CA 
00  F5 
4C  4B 
A9  6F 
AO  0B 
A0  02 
04  B9 
4A  4A 
BF  04 
B0  9D 
AO  09 
20  20 
20  20 
20  20 
20  20 
20  20 

44  3A 
4F  52 
3A  46 
20  20 
2C  38 
49  54 
20  20 

45  20 
4C  4F 
0D  20 

44  41 
20  43 
20  20 
53  45 

45  4E 
20  20 

52  41 

53  54 
12  50 
45  54 
53  20 
12  4E 
4C  45 
00  12 
4C  45 
00  12 
44  3A 


A4  CC 

09  80 
El  FF 
CB  20 
F0  2E 
CA  E0 
CF  C9 
C7  A0 
8E  CA 
Dl  29 
60  AE 
CE  8E 
CE  A2 
FF  A2 
CA  10 
20  F0 
0D  CE 
20  BE 
FF  A9 
20  AS 
F0  06 
20  AE 
CB  A5 
85  B9 
00  A2 

10  0C 
09  DD 
4A  4A 
E8  68 
BF  04 
DD  60 
20  20 
20  20 
20  20 
20  20 
20  20 

44  49 
59  20 
4F  52 
4C  3A 
00  20 
49  41 
20  5F 
20  20 
4)  44 
56  3A 
54  45 
3A  43 
20  20 
54  00 
41  4D 
20  20 

54  4  3 
41  54 

52  45 

55  52 

53  54 

45  57 
4E  41 
4F  4C 
4E  41 
4E  41 
92  00 


F0 

FD 

91 

B5 

D0 

66 

E4 

C9 

C9 

4D 

13 

08 

20 

E7 

00 

2C 

20 

Bl 

7F 

CF 

SE 

71 

CA 

64 

06 

7E 

46 

F9 

FA 

6A 

FF 

6B 

20 

69 

CE 

35 

30 

94 

FF 

B6 

20 

4A 

FF 

56 

BA 

B4 

20 

9A 

00 

2C 

A9 

FA 

Ea 

0A 

19 

D7 

29 

D4 

E8 

31 

24 

Fl 

20 

98 

20 

A7 

20 

AF 

20 

B7 

20 

BF 

52 

8C 

20 

IB 

4D 

BE 

4C 

as 

49 

AA 

4C 

54 

3A 

58 

20 

FA 

2C 

EF 

56 

53 

20 

3F 

4F 

17 

55 

C3 

20 

75 

45 

E5 

53 

73 

48  Fl 
55  37 
53  SB 
4E  9B 
4F  DB 
20  B4 
4D  34 
44  AE 
4D  4B 
40  AO 
00  CF 


Program  2:  DOS  Window  Boot 

XA  10  PRINT"  ICLR}  ":IFA=OTllf;NA  = 
1  SPRINT" 12  DOWN)E88 
1 2  SPACES} LOADING. . .":L0 
AD" DOS -WINDOW . OBJ ",8,1 

EF  20  CLRjDIM  T(4 }:A5=CHR?(157 
)+CHR5(157 )+CHRS(157);S5 
=" DOS-WINDOW" 

HC  30  PRINTCHR5(147)SPCtl34)N5 
!PRINTSPC(43)"VMtIT  TO  SE 
T  THE  T.O.D.  CLOCK  ?  Y"; 

JK  40  PRINT  A$,-:  INPUT  B5iIPBS< 
>"Y"THEN80 

OE  SB  PRINT: INPUT" I  2  SPACES  J  HO 
URS{4  SPACES] t5  LEFT}";? 
(!) sIFT(l )>12THENPRINT" 
{3  UPj":GOTO50 

PR  60  INPUT"! DOWN} MINUTES 


{4  SPACES)t4  LEFT3";T(2) 
!lFT(2)>59THENPRINT" 
[3  UP}":GOTO60 
GE  70  INPUT" 1  DOWN  J SECOKOS 

}4  SPACES) i4  LEFTJ"fTt3) 
:IFT(3}>59THENPRINT" 
[3  UP}":GOTO70 
ER  80  FORI=1TO3:H=INT{T{I)/10) 
!L=T(I)-10*»!T(I)-16*H+L 
iNEXT 
AB  90  C=565B7!POKEC+4, PEEK(C+4 

)AK0127 
DG  100  FORI=0TO3:POKEC-I,T(I+1 

) : NEXT 
GA    110    PRINT" [2    DOWN }1. TO   USE 
[SPACE}"N5",     PRESS    CTRL 
-D.":PRINT 
MO    120    PRINT "2. PRESS    RETURN   AT 
THE    "CHR5(1B) "STATUS: " 
CHR5(146)"    LINE,    TO" 
JA   130   PRINTSPC(2)"CL0SE   HINDO 

W  AND  RETURN." 
GH  140  PRINT  "  1 D0V7N }  3  .  TO  DEACTI 
VATE,  PRESS  RUN/ STOP-RE 
STORE. " 
XE  150  PRINT'*4.SYS  51808,  TO  R 
EACTIVATE.":SYS5ia08iNE 
W 

Power  BASIC:  Text 

Framer 

Article  on  page  27. 

Program  1:  Text  Framer— 128 
\fersion 

10    REM    COPYRIGHT    1987    COMPUTE  I 
PUBLICATIONS,     INC.    -   ALL    R 

IGHTS    RESERVED 
20    PRINT" ICLRj 13    RIGHTjCOPYRIG 

HT    1987    COMPUTE  I    PUB.,     INC. 

30    PRINTTAB{9)"ALL    RIGHTS    RESB 

RVED" ! PRINT" { DOWN ] ... LOADIN 

G    ML" 
40    FORI=49152T04944B:READA:POK 

EI,A:X=X+A:NEXT 
50    IFX<>37505THENPRINT"ERROR    I 

N    DATA    STATEMENTS."! STOP 
60    DATA    76,17,192,0,0,10,10,1, 

64,66 
70   DATA   85,73,74,75,0,0,0,173, 

3,192 
80   DATA    201,38,176,28,173,4,19 

2,201,23,176 
90   DATA    21,173,5,192,240,16,17 

3,6,192,240 
100    DATA    11,24,173,3,192,109.5 

,192,201,39 
110    DATA    144,3,76,72,178,24,17 

3,4,192, 109 
120    DATA    6,192,201,24,176,242, 

173,136, 2,133 
130    DATA    252,56,169,216,229,35 

2,141,15,192,174 
140    DATA    3,192,134,251,174,4,1 

92,240,11,169 
150    DATA    40,141,14,192,32,238, 

192,202,208,250 
160    DATA    173,10,192,141,16,192 

,32,12,193,174 
170    DATA    5,192,169,1,141,14,19 

2, 173,8,192 
180    DATA    141,16,192,32,238,192 

,32,12,193,202 
190    DATA    208,247,173,11,192,14 

1,16,192,32,238 
200    DATA   192,32,12,193,173,9,1 

92,141,16,192 
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210  DATA  3  74,6,192,169,40,141, 

14, 192, 32,238 
220  DATA  192,32,12,193,202,208 

,247,173,13,192 
230  DATA  141,16,192,32,238,192 

,32,12,) 93,173 
240  DATA  B, 192, 141,16,192,169, 

1,141,14, 192 
250  DATA  174,5,3  92,32,253,192, 

32, 12,193,202 
260    DATA    208,247,173,12,192,14 

1, 16,1 92, 3  2,253 
270    DATA    192,32,12,193,173,9,1 

92,141,16,192 
280    DATA    169,40,141,14,192,174 

,6, 192, 32,253 
290    DATA    192,32,12,193,202,209 

,247,96,24,165 
300    DATA    251,109,14,192,133,25 

1,165,252,105,0 
310    DATA    133,252,96,56,165,251 

,237,14, 192,133 
320    DATA    251,165,252,233,0,133 

,252,96, 160,0 
330  DATA  173,36,192,145,253,24 

,165,252,109,15 
340  DATA  192,133.252,173,7,192 

,145,251,56,165 
350  DATA  252,237,15,192,133,25 

2,96 

Program  2:  Text  Framer— 64 
Version 

10    REM    COPYRIGHT    19B7    COMPUTHl 
PUEJUICATIONS,     INC.    -   ALL    R 

IGHTS    RESERVED 
20    PRINT'MCLRj l3    RIGHTICOPYRIG 

HT    1987    COMPUTEl    PUB.,     INC. 

30    PRINTTAQ(9)"ALL    RIGHTS    RESE 
RVED": PRINT" [down] . , .LOADIN 
G   ML" 
40    FORI=3072TO3368:READA:POKEI 

,A:X=X+A!NEXT 
50    IPX<>26833THENPRIHT"ERROR    I 

N    DATA    STATEMENTS." ! STOP 
60    DATA    76,17,12,0,0,10,3  0,1,6 

4,66 
70    DATA    85,73,74,75.0,0,0,173, 

3,12 
80    DATA    201,38,176,28,173,4,3.2 

,201,23,176 
90    DATA    21,173,5,32,240,16,173 

,6,12,240 
100    DATA    Jl ,24, 173, 3, 12, 109,5, 

12,201,39 
110    DATA    144,3,76,133,134,24,1 

73,4, 12,109 
120   DATA    6,12,201,24,176,242,1 

73,59,10,333 
130   DATA    252,56,169,216,229,25 

2, 141,15, 12,174 
140    DATA    3,12,134,251,174,4,12 

,240,11,169 
150    DATA    40,141,14,12,32,238,1 

2,202,208,250 
160    DATA    173,10,12,141,16,12,3 

2,12,13,174 
170    DATA    5,12,169,1,141,14,12, 

173,8,12 
180   DATA    141,16,12,32,238,12,3 

2,12,13,202 
190    DATA    208,247,173,11,12,141 

,16,12,32,238 
200   DATA    12,32,12,13,173,9,12, 

141,) 6,12 
210    DATA    174,6,12,169,40,141,1 

4,12,32, 238 
220    DATA    12,32,12,13,202,208,2 

47,173, 3  3, 12 
230    DATA    141,16,12,32,238,12,3 

2,12,13,173 


240    DATA   0,12,141,16,12,169, 

L, 

8950 !F5 

8A 

60 

08 

78 

A9 

04 

2C 

2C 

141,14,12 

8958:80 

02 

F0 

0E 

AS 

C5 

C9 

26 

AF 

250    DATA    174,5,12,32,253,12, 

32 

8960:00 

08 

2C 

F9 

8A 

30 

03 

20 

3E 

,12,13,202 

8968 :BA 

SA 

28 

6C 

F7 

8A 

08 

78 

B9 

260    DATA    208,247,173,12,12,141 

8970:85 

05 

A9 

8B 

85 

06 

A9 

C7 

04 

,16,12,32,253 

89  78:85 

03 

A9 

00 

35 

04 

BD 

FC 

98 

270    DATA    12,32,12,13,173,9,12, 

8980 :6A 

A9 

2E 

80 

FB 

BA 

20 

76 

A2 

141,16,12 

8988 ;8A 

AD 

86 

02 

91 

05 

C8 

AO 

ID 

280    DATA    169,40, 141, 

14 

12 

174, 

8990:88 

02 

91 

05 

2B 

60 

06 

73 

36 

6,32,32,253 

3998:85 

05 

A9 

SB 

85 

06 

A0 

30 

53 

290    DATA    12,  32, 12, i: 

, 202, 208, 

2 

B9Aa:AD 

02 

DD 

91 

05 

C3 

AO 

00 

86 

47,96,24,165 

89A8:DD 

91 

05 

C8 

AD 

18 

DO 

91 

3D 

300    DATA    251,109,14, 

12 

13: 

,251 

89B0:05 

C8 

AD 

21 

D0 

91 

05 

ca 

OF 

,165,252,105,0 

89Ba;AD 

11 

D0 

91 

05 

C8 

AD 

15 

D5 

310    DATA    133, 252,96, 

56 

165,251 

89C0 : D0 

91 

05 

28 

60 

0B 

78 

35 

5D 

,237,14,12,133 

89C8;03 

A9 

BB 

85 

04 

A0 

30 

Bl 

46 

320    DATA    251,165,252,233,0,133 

8900:03 

80 

02 

DD 

ca 

Bl 

03 

80 

87 

,252,96,160,0 

89D8:O0 

DD 

CB 

Bl 

03 

3D 

18 

DO 

f;6 

330    DATA    173, 16,12, 145 

25) 

,24, 

89E0:CB 

Bl 

03 

ao 

21 

00 

C3 

Bl 

BD 

165,252,109,15 

B9EB:03 

8D 

11 

00 

C8 

Bl 

03 

80 

B0 

340   DATA    12,133,252, 

173,7 

12 

1 

89F0:15 

D0 

28 

60 

08 

78 

85 

03 

FD 

45,251,56,165 

89F8:A9 

8B 

85 

04 

A9 

C7 

85 

05 

31 

350    DATA    252,237,15, 

12 

133.252 

8A00:A9 

00 

85 

06 

8D 

FC 

BA 

A9 

lA 

,96 

8A3B:2E 

8D 

FB 

8A 

20 

76 

3A 

81 

61 

8A10:03 

8D 

86 

02 

C8 

81 

03 

BD 

99 

8A1 8: 88 

02 

28 

60 

A9 

80 

20 

6E 

FA 

BEFORE  TYPING  .  . 

. 

8A20I89 
8A28:20 

A0 

F4 

00 
89 

20 
A9 

50 
20 

8A 
AC 

A9 
FA 

C0 
BA 

E4 

3A 

Before  typing  in  programs, 

)  lease 

8A30:F0 

06 

20 

D2 

FF 

88 

DO 

FA 

2F 

refer  to  "How  To  Type 

In 

8A38:20 

C9 

BD 

A9 

0D 

20 

D2 

FF 

BO 

COMPUTE!'*  GAZETTE 
elsewhere  in  this  issue. 

Programs," 

8A40:A9 
8A48:F4 

C0 
89 

20 
A0 

6E 
01 

89 
20 

A9 
50 

80 

SA 

20 
60 

59 
16 

8A50:A9 

DS 

A2 

8C 

C0 

00 

D0 

06 

33 

8A58:85 
8A60:86 

04 
04 

86 
A9 

06 
00 

F0 
35 

04 

85 

06 

0B 

03 

85 

05 

37 

Off-Screen  Trace 

8A6B:A9 
8A70IFC 

E8 
8A 

80 
20 

FB 
76 

BA 
8A 

A9 
60 

03 
A0 

BD 
00 

8C 
29 

aA7B:AE 

FC 

SA 

F0 

0E 

Bl 

03 

91 

53 

See  mstructions  in  article 

VI  pane 

SABB : 05 

C8 

00 

F9 

E6 

04 

E6 

06 

IF 

50  before  typing  in. 

aABBiCA 
BA90:B1 

00 
03 

F2 
91 

AE 
05 

FB 
C8 

8A 
CA 

F0 

D0 

08 
F8 

74 
CD 

8800:78   A9   C0    20   6E 

89 

A9 

80 

3F 

8A98:60 

A9 

0C 

A0 

00 

99 

00 

D8 

13 

8808:20    6E   89   A9   80 

20 

96 

89 

CB 

8AA0S99 

00 

09 

99 

00 

OA 

CO 

E8 

20 

8810:A0    00    20    50    8A 

A9 

00 

8D 

03 

eAA8:B0 

03 

99 

00 

DB 

88 

DO 

EO 

9A 

8818SC0   8B   A9   ac   8D 

EE 

8B 

A9 

4n 

aAB0:60 

2C 

F9 

BA 

50 

03 

20 

QA 

72 

8820:84    BD    EF    SB   A9 

3F 

8D 

F0 

E3 

BAB8:aA 

G0 

2C 

F9 

8A 

50 

OF 

A9 

AD 

8828:813   A9    95    SD   F3 

BB 

A9 

14 

lA 

3ACa : C0 

20 

GE 

89 

A0 

01 

20 

50 

3E 

8830 :8D   F2    8B    A9   03 

8D 

F3 

8B 

82 

8AC8!8A 

A9 

80 

4C 

E2 

SA 

A9 

80 

77 

8838 !A9    IB    8D    F4    8B 

A9 

00 

8D 

76 

aAD0:20 

96 

89 

A9 

80 

20 

6E 

89 

52 

8840 jF5    RB    ad   02    03 

80 

F3 

RA 

CS 

8AD8 : A0 

00 

20 

50 

8A 

20 

99 

8A 

09 

8848: AD   03   03    8D   F4 

8A 

AD 

08 

5F 

BAE0 : A9 

C0 

48 

20 

F4 

89 

68 

20 

C4 

8850:03    8D   F5    8A   AD 

09 

03 

8D 

D2 

8AE6:C5 

89 

A9 

40 

4D 

F9 

8A 

BD 

71 

8858 :F6    8A   AD   14    03 

8D 

F7 

BA 

47 

8AF0!F9 

BA 

60 

00 

00 

00 

00 

00 

Bl 

8860: AD    15    03    8D   F8 

BA 

A9 

C4 

DO 

8AFa;00 

00 

00 

00 

00 

00 

00 

00 

0E 

886B:8D   02    03    A9    88 

8D 

03 

03 

3F 

3870 :A9    D3   8D   08   03 

A9 

88 

BD 

DA 

64  + 

8878:09    03    A9    53    BD 

14 

03 

A9 

A5 

8880:89    BD    15   03    20 

BA 

8A 

A9 

37 

8688:93    20   D2   FF    20 

BA 

8A 

A9 

70 

See  ittstructions  in  ariide 

on 

page 

8890:84    85    38    58    20 

60 

A6 

4C 

ED 

52  before  typing  in 

8898:86    E3    78    20    Bl 

8A 

AD 

F3 

FD 

a8A0:BA    8D    02    03   AD 

F4 

8A 

8D 

AE 

O801:JF 

03 

00 

FA 

8F 

20 

12 

20 

93 

88A8!03    03    AD   F5    8A 

8D 

08 

03 

AE 

0809:36 

34 

2B 

20 

42 

59 

20 

42 

A2 

8BB0:AD   F6    BA   SD   09 

03 

AD 

F7 

28 

0811:41 

52 

52 

59 

20 

4C 

2E 

20 

E4 

8BB818A    8D    14    03   AD 

F8 

8A 

ao 

19 

08) 9:43 

4) 

4D 

50 

20 

00 

37 

08 

41 

BaC0:15   03    58   60   A9 

7F 

2D 

F9 

CD 

H821 :40 

FA 

9E 

C2 

28 

34 

33 

29 

Bl 

88C8:8A    8D   F9    SA   A9 

00 

Q5 

C6 

89 

0B29:AA 

C2 

28 

34 

34 

29 

AC 

32 

59 

88D0:6C    F3    8A   A5    7A 

48 

A5 

7B 

7C 

0831:35 

36 

AA 

35 

36 

00 

00 

00 

C3 

8808:48   09   03    B0   22 

20 

73 

00 

64 

0839:78 

A2 

FF 

9A 

AS 

01 

09 

03 

IE 

aSE0!C9    9A   F0    11    C9 

89 

F0 

00 

10 

0B41 :85 

01 

A0 

00 

A9 

BF 

84 

58 

16 

B8EB!C9    80    F0    09    C9 

SA 

D0 

0D 

18 

0849:85 

59 

84 

5A 

85 

5B 

A2 

20 

A7 

a8F0!A9    00    8D    FA   8A 

A9 

80 

0D 

41 

0851 :20 

EC 

A3 

A9 

FF 

85 

59 

85 

0A 

88P8!F9    8A    8D   F9    SA 

D0 

4A 

20 

47 

0859;5Q 

A2 

20 

2Q 

EC 

A3 

A2 

00 

0) 

8900 sBl    8A   20    JC   8A 

20 

El 

FF 

EC 

0861 !8E 

DA 

EC 

A2 

06 

8S 

3C 

EC 

07 

890S:F0    16    A6    C5    E0 

26 

00 

OA 

95 

0869j8E 

D9 

EC 

ES 

E8 

BE 

OA 

E) 

7C 

B910:A9   04    2C   8D   02 

F0 

03 

20 

51 

0871: as 

2D 

E7 

E8 

E8 

BE 

30 

EA 

86 

89ia:nA    BA   AS    G5    C9 

3C 

D0 

E5 

03 

0879:E8 

8E 

36 

EC 

SE 

AB 

EG 

A2 

D6 

8920:20    Bl    8A    20    73 

00 

C9 

8D 

BF 

0881:10 

BE 

04 

EC 

8E 

79 

EC 

E8 

A9 

8928 :D0    09    EE    FA    BA 

EE 

FA 

8A 

04 

0889:E8 

BE 

C5 

FD 

A2 

15 

8E 

FB 

CC 

8930 :4C   49    89   C9    BE 

D0 

09 

CE 

22 

0891 :EB 

BE 

03 

EC 

BE 

78 

EC 

E8 

83 

893B:FA   BA   CE   FA   8A 

4C 

49 

89 

96 

0899: BE 

A0 

EC 

BE 

Dl 

EC 

E9 

8E 

42 

8940 tC9   8A   D0    B5   A9 

00 

8D 

FA 

A8 

08A1:A3 

EC 

E8 

BE 

AB 

EC 

Ea 

E8 

73 

8948 :8A   68   85    70    53 

B5 

7A 

5C 

DD 

08A9:8E 

E5 

EB 

BE 

26 

EC 

E8 

BE 

26 
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08B1:F7 

ED 

8E 

38 

EC 

SE 

AD 

EC 

F7 

0BS9:03  90 

04 

C0 

07 

90 

03  4C 

6E 

AE 

200 

0BB9!A2 

20 

8E 

FC 

Ea 

8E 

07 

EB 

40 

0B61:E0  EA 

B9 

6A 

CB 

CD 

89  02 

2B 

08Cl!8E 

68 

FD 

BE 

6B 

FD 

8E 

C4 

11 

0669:90  03 

AD 

89 

02 

AA 

98  0A 

CC 

RG 

210 

08C9:FD 

E8 

E8 

BE 

E9 

EC 

A2 

2A 

8B 

0B71:Aa  B9 

6B 

CB 

85 

B0 

B9  6C 

43 

AS 

220 

08D1:8E 

77 

EB 

8E 

EA 

EC 

A2 

3F 

fc 

0B79:CB  85 

Bl 

8A 

A8 

88 

Bl  B0 

31 

XS 

230 

08D9:8E 

86 

E7 

A2 

4C 

8E 

2C 

E7 

D6 

0B81:99  77 

02 

8B 

10 

F8 

86  C6 

43 

GM 

240 

0aEl:BE 

85 

E7 

8E 

44 

EB 

A2 

B0 

18 

0B89:A2  FF 

4G 

26 

EB 

03 

04  04 

54 

08E9:eE 

07 

EC 

E8 

E8 

BE 

08 

EC 

AD 

0B91:03  79 

CB 

7C 

CB 

80 

CB  EC 

AD 

AE 

250 

08n:E8 

E8 

8E 

23 

E5 

BE 

09 

EC 

ID 

0B99:EC  53 

59 

53 

44 

41 

54  4  J 

6C 

260 

08F9:A2 

8F 

BE 

06 

EC 

A2 

Al 

8E 

35 

0BAl!4C  49 

53 

54 

AD 

BD 

0  2  F0 

78 

GG 

3901 :G7 

E3 

A2 

01 

8E 

FD 

ES 

BE 

20 

0BA9:21  C9 

06 

D0 

05 

CD 

8E  02 

OF 

0909:69 

FD 

A2 

C6 

BE 

6C 

FD 

A2 

04 

0BBl!D0  03 

4C 

4B 

EB 

AO 

13  03 

6E 

BX 

270 

0911  :C9 

8E 

C9 

E3 

BE 

CC 

ES 

8E 

25 

0BB9:49  80 

BD 

13 

03 

30 

03  A9 

FF 

0919:09 

EB 

BE 

46 

EB 

BE 

6A 

FD 

4D 

0BC1;9C  2C 

A9 

A3 

AE 

B6 

02  20 

54 

0921t8E 

6D 

FD 

EB 

BE 

2E 

E7 

BE 

AF 

0BC9:1C  EA 

2C 

13 

03 

30 

05  A2 

E4 

0929:97 

E7 

E8 

8E 

28 

ES 

BE 

79 

6D 

0BD1:00  4C 

6C 

EB 

A9 

BF 

95  F5 

94 

KM 

280 

0931  lEB 

8E 

C6 

FD 

A2 

CF 

8E 

E8 

EF 

0BD9:A9  CB 

B5 

F6 

4C 

E0 

EA  14 

A7 

0939:EC 

A2 

D7 

8E 

08 

EB 

A2 

50 

64 

0BE1:0D  10 

9A 

05 

9F 

99 

11  33 

22 

0941 :8E 

45 

EB 

A2 

E3 

BE 

87 

FD 

F9 

0BE9:35  37 

34 

30 

38 

36 

01  35 

C3 

0949:E8 

8E 

FE 

E8 

EB 

8E 

D6 

FD 

0F 

0BF1:0D  39 

36 

2C 

9D 

91 

2E  37 

2D 

RS 

290 

09S1:A2 

EA 

8E 

CB 

E5 

BE 

2F 

E7 

AD 

0BF9:93  ID 

38 

IB 

13 

34 

11  39 

9E 

095  9:8E 

30 

E7 

8E 

88 

E7 

8E 

89 

2F 

0C0l!3S  31 

30 

30 

32 

36 

94  2B 

C7 

0961 !E7 

aE 

8A 

e7 

8E 

0A 

EB 

A6 

F5 

0C09:10  3  3 

20 

2E 

3A 

40 

2C.  23 

CC 

0969 :2C 

EB 

E8 

E8 

18 

A5 

2B 

69 

BE 

0C11:2A  3B 

13 

01 

3D 

SE 

2F  31 

72 

GF 

300 

0971 iCl 

85 

5A 

90 

01 

EB 

86 

SB 

2E 

0C19:14  04 

32 

20 

02 

34 

03  FF 

6B 

0979:A9 

Al 

85 

58 

A9 

CB 

85 

59 

DF 

0C21:2B  20 

49 

4E 

53 

54 

41  4C 

9F 

CM 

310 

0981 iA2 

03 

A0 

5F 

20 

EC 

A3 

18 

C3 

0C29:4C  45 

44 

2) 

CE 

AS 

02  78 

DC 

0989:A5 

5A 

69 

5F 

85 

5A 

AS 

SB 

64 

0C31;A9  FD 

80 

00 

DC 

AD 

01  DC 

CB 

0991:69 

03 

85 

5B 

A0 

ID 

Bl 

5A 

B6 

0C39!C9  7F 

F0 

F9 

58 

60 

00  00 

18 

CB 

320 

0999:99 

B5 

E4 

88 

C0 

0B 

D0 

F6 

OS 

09A1:B1 
09A9:A9 

5A 

07 

99 
8D 

9D 

6F 

E4 
A3 

88 
A8 

10 
88 

F8 
B9 

92 
85 

Sequential  File 

PG 

330 

09B1:69 

A3 

99 

68 

A3 

38 

D0 

F7 

F3 

r. 

j:x_.. 

09B9:A5 

01 

29 

FD 

85 

01 

4C 

F2 

9F 

tuiiur 

HJ 

340 

09C1:FC 

A5 

15 

48 

A5 

14 

48 

20 

11 

09C9SF7 
3901 tC8 

B7 
Bl 

A0 
14 

00 
85 

Bl 
62 

14 
68 

85 
85 

63 
14 

26 
63 

Article  on  page 

56. 

QS 

350 

0909:68 

as 

15 

A2 

90 

38 

4C 

49 

95 

09El!BC 

A9 

03 

85 

C2 

60 

E6 

C2 

9D 

RE 

10  Z?«iCHRS(20);A 

=3000:IFPEE 

CQ 

360 

09E9:AS 

C2 

C9 

A0 

90 

08 

68 

63 

A0 

Kt56><64THENA 

=  100 

09F1:A9 

FD 

48 

A9 

87 

48 

60 

F0 

0B 

RE 

20  DIMAS(A):PRINT"lCLR]"CHR 

09F9:06 

C9 

11 

F0 

02 

C9 

15 

60 

74 

S(14)CHR?(8); 

:OPEN1,0, 

0t 

0A01 : BD 

00 

DC 

AC 

8D 

02 

8C 

9E 

SE 

V=203 : IFPEEK ( 771 )=164THE 

XP 

370 

0A09:02 

60 

20 

16 

E7 

AD 

13 

03 

BA 

NV=212 

0A1.VSA4 

D3 

C0 

4A 

90 

0C 

29 

01 

31 

FE 

30  LI5= 

"140  Ti" 

0A19:D0 

0D 

EE 

13 

03 

A9 

07 

4C 

01 

EF 

40  PRINT" la  SPACES jSEQUENTI 

GP 

380 

0A21 :16 

E7 

29 

FE 

80 

13 

03 

60 

6E 

AL  FILE 

EDITOR"! 

PRINTLIS 

0A29iDa 

03 

4C 

91 

E8 

C9 

15 

D0 

72 

"13- 

DOWNj" 

GR 

390 

0A31:13 

98 

D0 

02 

E6 

D6 

C4 

D5 

21 

BA 

50  PRINT "EKTER  THE 

NAME  OF 

AR 

400 

0A39:F0 

22 

AS 

D8 

F0 

02 

C6 

08 

86 

IspaceJthe 

FILE 

you  WISH 

XH 

410 

0A41:C8 

4C 

50 

E7 

C9 

IB 

F0 

03 

F4 

TOU  SPACESlEDIT  AND 

PR 

QM 

420 

0ft49:4G 

31 

E7 

20 

12 

CB 

A9 

00 

El 

ESS 

RETURN [2 

DOWN  3 " 

AF 

430 

0A5l!85 

C7 

85 

04 

85 

D8 

8D 

91 

54 

CS 

60  PRINT"> 

';  = 

INPUT#l,FI5t 

PR 

0A59:02 

8D 

BA 

02 

4C 

A8 

E6 

C9 

DF 

INT" 

I  DOWN] 

';FI?= 

LEFTS(FI 

PJ 

440 

0A61:03 

D0 

10 

38 

98 

E9 

0A 

B0 

E) 

5,16) 

0A69:FC 

49 

FF 

65 

D3 

85 

D3 

A8 

A9 

SC 

70  PRINT'*FILENAME  IS  "CHRS( 

0A71;4C 

96 

E7 

C9 

06 

00 

09 

C0 

31 

34}FISCHRS(34):PRINT" 

XD 

450 

0A79:2B 

90 

02 

C6 

D6 

4C 

A6 

E7 

8F 

t DOWN) IS  THIS 

CORRECT? 

t 

BM 

460 

0A81JC9 

07 

D0 

31 

78 

20 

lA 

CB 

AD 

Y/N) 

yTleft I  " 

EM 

470 

0A89:A9 

IE 

BD 

01 

04 

A9 

F2 

8D 

7C 

RJ 

B0  INPUT#1 

.AS 

! PRINT 

: IFLENiA 

SD 

480 

0A91:06 

D4 

A9 

21 

8D 

04 

D4 

A2 

ED 

S  )=0THEKPRINT 

'  1  UP  i " ! GOTO 

0A99!7F 

20 

B3 

EE 

CA 

00 

FA 

20 

8A 

80 

JR 

490 

0AA1:9F 
0AA9!37 

FF 
20 

A9 
B3 

20 
EE 

80 
CA 

04 
00 

D4 
FA 

A2 

BE 

85 
E4 

DE 

90  A5=LEFT5(A5,l):IFAS»"y 
HENPRINTiGCVmiia 

"T 

0AB1;04 
0AB9s2C 
0AC1 :B5 

04 
C9 
D9 

4C 
0B 
30 

Aa 

00 
01 

E6 
3F 
E8 

C9 
A6 
E0 

10 
DG 
19 

F0 
E8 
10 

80 
EF 
4A 

QE 
HR 

100  RUN 
110  PRINT" 

:iSK  DRIVE  #  (8 

-1 

AD 
QE 

500 
510 

0AC9:0B 

H5 

09 

09 

80 

95 

D9 

20 

CA 

0)  r 

3  I  LEFT)", • 

: INPUT* 1, 

A5 

PS 

520 

0AD1 : FF 

E9 

30 

F0 

38 

AS 

03 

E9 

5F 

:DR 

•rNT(VAL(A5)) 

0AD9:28 

10 

02 

69 

28 

85 

03 

AB 

84 

HX 

120  IFDR<BORDR>10THENPRINTj 

0AE1 :A6 

06 

20 

F0 

E9 

20 

24 

EA 

IS 

PRINTS PC (22) 

■lUP] 

i 

0AE9iE6 

D5 

AE 

86 

02 

A9 

20 

20 

3C 

17  SPACES J f UP}" 

:GOTO110 

MQ 

530 

0AF1:1E 

EA 

CB 

C4 

D5 

90 

F6 

C6 

DA 

KA 

130  PRINT" 

CLRJiZ  SPACES] 

RE 

0AF9!D5 

4G 

AB 

E6 

C9 

16 

90 

0E 

65 

ADING 

CHR5(34)FISCHRS(  1 

GS 

540 

0B01 !C9 

19 

B0 

0A 

AA 

BO 

D5 

CA 

BB 

34) 

PRINTLI? 

AB 

550 

0B09:4C 

39 

CA 

80 

40 

00 

G9 

lA 

A4 

GQ 

140  F2$  = 

=FI5+" 

s. 

Vi 

LN=llPRI  1 

0B11:D0 

17 

AD 

B6 

02 

A2 

FA 

9D 

Al 

NT" 

2  SPACES} 1 

■  "r 

CC 

560 

0B19:FF 

07 

9D 

F9 

D8 

90 

F3 

D9 

77 

XQ 

150  OPENa,DR, B,F25: 

GETIS, 

A5 

0B21:9D 

ED 

DA 

CA 

D0 

Fl 

4C 

AB 

19 

HM 

160  IFST<>0THENPRINT"FILE 

N 

0B29:E6 

C9 

12. 

D0 

02 

85 

C7 

4C 

76 

OT  FOUND" 

GOSUB1150JGOS 

EP 

570 

0B31:8B 

e7 

AD 

13 

03 

29 

7F 

8D 

37 

UB1140 

RUN 

0B39:13 

03 

A0 

17 

A9 

00 

99 

00 

9F 

EA 

170  G0T019C 

SC 

580 

0B41:D4 

88 

10 

FA 

A9 

0F 

8D 

18 

52 

HM 

180  GET#8,A$ 

0B49:D4 

60 

AD 

BD 

02 

C9 

04 

D0 

80 

MG 

190  1FA< 

<>CHR5(13)THENA5(LN 

0B51:0E 

A4 

CB 

C4 

CS 

F0 

08 

C0 

20 

)=AS(LN)+A5 

1 

SF 

590 

IFST <> 0THENGOSUB 1 1 5 0  I  GO 
TO260 

IFA5=CHRS(13)THEN230 
PRINTAS; :GOTO180 
B$-"": IFLN<9THENBS="  " 
PRINT : UJsLN+l ! PRINTS?  fL 
N"i  "!  SIFSTO0THEN260 
GOTO 180 

CLOSES: PRINT" I CLR("SPC< 
13) "MAIN  MENU":PHINTLI? 
PRINT"[1]  LIST  FILE";PR 
INT"lD0WN)r2]  EDIT  LINE 
":PRINT"lD0WN][3]  I^NSER 
T  LINE" 

PRINT" [DOWN} [4]  DELETE 
[SPACE) LINE": PRINT" 

lOOWNjis]  RE -RUN  PROGRA 

M"         _  _    _ 

PRINT" (down! [6]  RE -SAVE 
FILE  AFTER  EDITING": PR 
INT" t DOWN) [7l  PRINT  FIL 
E  TO  PRINTER" 

print'^Idown5[8]  exit  PR 

0GRAM12  DOWN)" 
PRINT "ENTER  YOUR  CHOICE 
AND  PRESS  RETURN [ DOWN ) 

IP  "  "  ' 

PRINT">"; : INPUT! l,A5i A- 
INT(VAL{A?)) :IFA<10RA>8 
THEN260 

ONAGOTO340, 520,600, 700, 
800,830,890,1000 
PRINT" tCLR} "SPC(13 ) "LIS 
T  FILE"!PRINTLI$ 
PRTnT" PRESS  (A)  TO  ADOR 
T  OR  (SPACE)  TO  PAUSE" 
PRINT" I  DOWN] ( [RVS)W 
{OFF])ITH  OR  HITH(TRVS) 
0[OFF))UT  LINE  NUMBERS? 

WlLHFT)"j 
INPUT #1,A5;A$=LEFT5( AS, 
1) :IFA5<>"W"ANDA$<>"0"T 
HEN370 

PRINT" (DOWN) " I F0RR"1T0L 
N: IFA5="O"THEN410 
B5='"":IFR<10THENB5="  " 
PR1NTB$;R"  :  "; 
PRINTAS(R) 
FORT=1TO100:NEXT 
GETC5:IFCS=""THENNEXT:G 
OTO490 

IFC5= "A"THENPRINT : PRINT 
"(DOWN] IRVS)*  ABORTED  * 
"jGOTO490 
IFC$<>"  "THEN430 
PRINT"lRVS)*  PAUSED  *" 
GETCSiIFC$=""THEN470 
PRINT")UP} [11  SPACES]": 
PRINT"  [UP }";-.  GOTO430 
PRINT" {DOWN) (2  SPACES)? 
RESS  ANY  KEY  FOR  MAIN  M 
ENU" 

GETC5:IFCS=""THEN500 
GOTO260 

PRINT" (CLR] "SPC(13)"EDI 
T  LINE" :PRINTLI5: PRINT" 
I  DOWN) WHICH  LINE  NUMBER 

TO  EDIT?  "; 
INPUT* 1 ,A5:A=rNT(VAL(A$ 
) ) : PRINT 

IFA>.0ANDA<=LNTHeN5G0 
PRINT"lDOWN)BAD  LINE  NU 
MBER"lGOSUBl] 50:GOTOS20 
PRINT" I  DOWN]  "A5(A}:PRI 
NT" I  DOWN  J  RETYPE  LINE  OR 

PRESS  RETURN (DOWN)" 
PRINT">"r :GOSUB1040!PRI 
NT 

IFT5=CHR? ( 13 )ANDP=0TaEN 
PRINT "[DOWN) UN-CHANGED" 
iGOSUB1150:GOTO260 
PRINT" I  DOWN) CHANGED" I  GO 
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SUBn50tA$(A)=AS!GOTOa6 

0 
DR  600  PRINT" tCLR}"SPC( 13 )"2«S 

ERT  A  LINE":PRINTLIS 
CJ  610  PRINT" [2  DOWNjWHERE  SHO 

ULD  THE  LINE  BE  INSERTE 

D71D0WN}" 
FF  620  PRINT">"; ! INPUT! 1 ,A$:A= 

INT(VAL(A5)) : PRINT 
XE  630  IFA>0ANim<=LNTHEN650 

XX  640  PRINTiPRINT"BAD  LINE  NU 

MBER" ! GOSUB1150 : GOTO600 
AD  650  PRINT" I  DOWN} WHAT  WOULD 

[SPACE] YOU  LIKE  THAT  LI 
NE  TO  BE? (4  SPACES] (PRE 

SS  RETURN  TO  ABORT) 

I  DO  wTP 
MK  660  PRINT" >"; :GOSUB1040 
MQ  670  IFT?=CHR5(13}ANDP=0THEN 

260 
FC  680  FORR=LNTOASTEP-l!AS(R+l 

)=A5 (R) !NEXT;LN=LN+] 
JX  690  PRINT  J  PRINT"! DOWN] DONE" 

!GOSUB1150:A5(A)=A5!GOT 
0260 
GX  700  PRINT" ICLR]"SPC( 13) "DEL 

ETE  LINE":PRINTLI5   ~ 
FK  710  PRINT "i DOWN) WHICH  LINE 

1  SPACE  J  WOULD  YOU  LIKE  T 
O  DELETE?  {D0V7N]" 
FM  720  PRINT">"; :1NPUT#1,A5jA= 

INT(VAL(A?)) 
FH  730  IFA<1ORA>LNTHEN700 
ED  740  PRINTiPRINT:PRINTAS(A) I 

P  R I NT " I  DOWN ] DELETE  TH I S 
LINE  (Y/N)7  YlLEPT]"; 
DR  750  INPUT#1,AS:A$=LEFT5(AS, 

1 ) J  PRINT 
MK  760  IFA5="Y"THEN780 
MB  770  PRINT" I  DOWN] NOT  DELETED 

":GOSUB1150:GOTO260 
BC  780  FORR=ATOLN:A$(R)=A5(R+1. 

) : NEXTi LN=LN-1 : PRINT" 

i DOWN) DELETED" 
KK  790  GOSUBlT50:GOTO260 
FA  800  PRINT:PRINT"{D0V;N]ARE  Y 

OU  SURE  (Y/N)?  Y I  LEFT)" 

r !INPUT#1,A?:A5=LEFT5{A 

$,1) 
CM  810  IFAS="Y"THENRUN 
SG  820  GOTO260 

XC  830  PRINT" lCLRj"SPC{ 12) "RE- 
SAVE  FILE":PRINTLIS  "■ 
DS  840  PRINT" [D0WN)ENTER  THE  F 

ILE  NAME":PR1NT"( ' *'  FO 

R  SAME  NAME  AS  BEFORE) 

I  DOWN )  " 
DH  850  F35=FIS:PRINT">"r JINPUT 

#1,,A5:IFA$<>  "*"THENF3?= 

A? 
AX  860  0PEN15,DR, 15, "S0:"+F35! 

CLOSE15!F4S="0t"+F3?+", 

S,W" jOPENa,DR,8,F4S 
KR  870  PRINT" 12  DOWN] " :FORR=lT 

OLN: PRINT "LINE:  "R"lUP] 

":PRINT#8,A5(R) : NEXT 
JA  880  CLOSES: PRINT! PRINT sPRIN 

T"D0NE" !GOSUB1150:GOTO2 

60 
HC  890  PRINT" tCLRi"SPC(13>"PRI 

NTING  FILE" :PRINTLI5 
EK  900  PRINT"TdOWN)H0W  MANY  LI 

NES  PER  PAGE  DOES  YOUR 

[SPACEjPAPER" 
XG  910  PRINT "HAVE?  (0  =  CONTIN 

UOUS  PRINTING) [DOWN]" 
JH  920  PRINT">"! :INPUT#1,LP!LL 

=0: IFLP<0ORLP<>INT<LP)T 

HEN890 
KA  930  PRINT: PRINT: PRINT"PRESS 
(SPACE)  TO  PRINT  OR  "A 
'  TO  ABORT" 


EA  940  GETAS!lFA5="A"THEN260 

SG  950  IFA?="  "THEN970 

JC  960  GOTO940 

SA  970  0PEN9.,  4,7:FORR='lT05lPRI 

NT  1 9 : NEXT : FORR=l TOLN : P  R 

INTI9,AS(R) 
MB  980  LL=LL+1 : IFLL=LP-10THENF 

ORT»lTO10:PRINTi9:NEXT! 

LL"0 
PF  990  NEXT: PRINT#9:CLOSE9: GOT 

0260 
EQ  1000  PRINT: PRINT" IDOWN] ARE 
[SPACEJyOU  SURE  (Y/n)? 
YlLEFTj"; 
SJ  1010  INPUT|1,A5:AS=LEFTS(A5 
, I } : IFA$="Y"THENPRINT" 
{CLR]":EHD 
BQ  1020  GOTO260 
BX  1030  REM  RETURN  AS  A? 
JM  1040  P=0:A5="" 
MA  3050  PRINTCHR5(166)CHR5(] 57 

); 
KX  1060  GETTS:IFT5=""0R(TS«CHR 

S ( 24 ) ANDA5=" " }THEN] 060 
CE  1070  PRINT"  "CHR5(157); 
ER  10B0  IFT5=ZSANDLEN{AS )>0THE 

NAS=LEFTS(A5,LEN(AS)-1 

)!PRINTT5; ;P»P-1 sGOTOJ 

050 
HK  1090  IFT$=CHR5(24)THENF0RZ= 

1T0LEN(A5)!PRINTZ5; :NE 

XT: GOTO  1040 
JH  1100  IFT$=CHR$(13)THENPRINT 

TS: RETURN 
BH  1110  IF(ASC<TS)AND127)<32TH 

EN1050 
KQ  1120  IFP>253THEN1050 
FX  ]]30  PRINTT5; :A5=AS+T5!POKE 

V,0:P=P+1:GOTO1050 
JC  1140  0PEH15,8,15:INPUT#15,A 

5,B?,C5,D$:CL0SE15:RET 

URN 
EM  1150  FORR=1.TO)000:NEXTjRETU 

RN 


BEFORE  TYPING  ,  .  . 

Before  typing  in  programs,  please 
refer  to  "How  to  Type  In 
COMPUTEI's  GAZETTE  Programs," 
elsewhere  in  this  issue. 


One-Touch 
Function  Keys 

See  instructions  in  article  on  page 
55  before  typing  in. 


C000 
C008 
C010 

cms 

C020 
C028 
C030 
C03B 
C040 
C048 
C050 
C05B 
C069 
C068 
C070 
C078 
0080 
C088 
C090 
C098 
C0A0 


78  A9  0D 
:8D  IS  03 
;E9  C0  9D 
:D0  F5  A5 
:8D  II  CI 

CI  F0  FB 
;F0  42  C9 
:F0  16  C9 
;BD  1 2  CI 

04  DD  FS 
;A2  00  BD 
:E8  E0  04 

31  EA  A2 

77  02  E8 
;C6  4C  3] 
;14  03  A9 
;A9  93  20 
;A0  m  20 
;E8  A0  CO 
:FF  A2  08 
:FF  20  E4 


8D  14  03 
58  60  A2 

00  04  E8 
C5  C9  40 
40  31  EA 
8D  11  CI 
05  F0  2C 
03  D0  E5 
9D  77  02 
86  C6  4C 
16  CI  9D 
00  F5  B6 
00  BD  lA 
E0  05  D0 
EA  78  A9 
EA  80  15 
D2  FF  A9 
BA  FF  A9 
20  BD  FF 
20  C6  FF 
FF  20  El 


A9  C0  63 

00  BD  C6 

E0  28  18 

00  06  87 
CD  1)  SB 
C9  04  E5 
C9  06  16 
A2  00  84 
E8  E0  AD 
31  EA  DB 
77  02  Bl 
C6  40  B7 
C]  9D  01 
F5  86  2F 
31  8D  97 
03  58  07 
08  AA  4E 

01  A2  55 
20  00  B7 
20  E4  21 
FF  FO  40 


C0A8 

31 

20 

E4 

FF 

20 

E4 

FF 

AS 

Al 

C0B0 

90 

D0 

27 

20 

E4 

FF 

8D 

11 

ea 

C0B8 

CI 

20 

E4 

FF 

AE 

11 

CI 

20 

ID 

C0C0 

CD 

BD 

A9 

20 

20 

02 

FF 

20 

30 

C0CB 

E4 

FF 

F0 

06 

20 

D2 

FF 

4C 

D3 

C0D0 

C7 

C0 

A9 

9D 

20 

D2 

FF 

4C 

05 

C0D8 

A4 

C0 

20 

CC 

FF 

A9 

08 

20 

84 

C0E0 

C3 

FF 

20 

00 

00 

4C 

31 

EA 

CC 

C0E8 

24 

20 

86 

Bl 

2D 

2D 

04 

09 

9F 

C0F0 

12 

20 

20 

86 

B3 

2D 

2D 

0C 

A8 

C0F8 

09 

13 

14 

20 

20 

S6 

U5 

2D 

FB 

C100 

2D 

J.3 

01 

16 

05 

29 

20 

86 

CF 

C10e 

B7 

2D 

2D 

00 

0F 

01 

04 

20 

BD 

C110 

20 

3F 

40 

4F 

41 

44 

53 

41 

F4 

OJ  )8 

56 

45 

4C 

49 

53 

54 

0[) 

00 

3C 

64  RAMdisk 

See  instructions  in  article  on  page 
48  before  typing  in. 


0801 :0B 

0809:31 

083  1:  10 

0819:40 

0821  :C3 

0929:55 

0831 :A9 

0839:05 

0841 sCl 

0849 

0851 

0859 

0861 

0869 

0871 

0879 

0881 

08B9 

0891 

0899 

08A1 

08A9 

08B1 

08B9 

eaci 

08C9i2D 

0801:25 

0BD9:1D 

0BE1:86 

08E9:38 

08F1 

08F9 

0901 

0909 

0911:85 

0919:08 

0921 

0929 

0931 

0939 

0941:7a 

0949:00 

0951 iC9 

0959:A6 

0961:10 

0969 :CA 

0971 :F0 

0979 :B0 

0981:AA 

0989:CB 

0991 tca 

0999;AB 

09Alt4D 

09A9:53 

09B1 

09B9 

09C1 

09C9 

0901 


!03 

:A0 
iFE 
:FF 
:FB 
:8D 
=  99 
:8D 
!52 
:00 
:20 
!54 
:00 
:00 
:E8 

!08 


:D0 
:99 
:3a 
:02 


:D0 
:9D 
:B4 
:99 


:4E 
!52 
!52 
[41 
;20 


09D9:A7 


09El! 
09E9: 
09Fli 
09F9! 


08  00  00 
00  00  00 
C2  4C  30 
13  02  40 
4C  07  04 
05  40  IC 
A9  8D  04 
03  A9  69 
80  07  03 
A9  CI  8D 
CO  4C  IE 
FF  80  78 
FF  BD  79 
BD  7A  CA 
7fl  CA  60 
EE  FF  SB 

7  3  CO  60 
41  40  20 
00  00  00 
44  49  53 
49  56  41 
A6  7A  A0 
02  10  07 
DO  F4  C9 

09  2  2  F0 
C9  3F  00 
C9  30  90 

84  71  A0 
7A  CA  C8 
P9  9E  A0 
30  05  0B 
FB  01  B9 
E9  3A  F0 

85  0F  38 

08  BD  00 
F0  DB  C8 
F0  A6  7A 
AO  10  FA 
F0  OF  BD 
FD  01  C6 
60  A0  FF 

02  38  F9 
80  00  04 
7A  E6  0B 
FA  B9  9E 
30  03  4C 
F9  24  0F 

03  4C  24 
84  49  AO 
»9  9E  CI 
B9  9E  CI 
00  FS  4C 
CS  52  45 
43  52  41 
45  07  52 
4C  4F  41 
52  55  CE 
43  05  45 
73  00  20 
C9  00  90 
38  E9  CC 
40  B9  F7 
20  79  00 
11  00  14 


9E  3  2 
4C  FD 

02  4C 
SB  C2 
40  3E 
09  20 

03  A9 
8D  06 
A  9  D0 

09  03 
AB  A9 
CA  A9 
CA  A9 
A9  FF 
0F  B9 

10  F7 


32 

44 


00  52 
4B  20 
54  45 
04  84 
09  FF 
20  F0 
56  24 
04  A9 
04  09 
00  84 
EB  BO 
F0  F5 
A4  71 
FB  01 

04  09 
E9  55 
02  F0 
99  FB 
E6  0B 
B9  9E 

00  02 
7B  A9 
CA  C8 
9E  CI 

05  0B 
CB  B9 

01  D0 
F3  A6 
30  F  5 
A7  38 
FF  CA 
10  FA 
30  05 
EF  A6 
4E  41 
54  43 
53  41 
04  44 
52  45 
58  49 
09  CI 
14  09 
0A  A8 
01  49 
4C  EO 
G0  17 


30  36  EC 
0F  4C  76 
5F  05  B8 
4C  47  36 
C3  4C  82 
55  C0  DA 
00  BD  40 
03  A9  80 
80  08  5A 
A9  94  92 
00  BD  DE 
80  80  AD 
DC  85  F6 
85  FC  20 
B4  CO  AF 
A9  60  AE 
4B  20  60 
53  4B  F7 
41  40  23 
41  43  C9 
44  0D  5A 
OF  BD  CA 
F0  3E  23 
37  85  66 
0F  70  60 
99  00  A2 
3C  90  46 
0B  98  82 

00  02  F9 

09  80  E5 
E8  C8  40 
F0  38  BF 
49  00  AA 
D0  9F  CB 
DF  05  FS 

01  E8  IB 
CB  B9  03 
A0  00  3E 

10  BO  7C 
FF  85  2C 
EB  BD  05 
F0  F5  56 
00  90  55 
90  CI  15 
E0  FO  SF 
C9  FF  DF 
C9  00  A9 
E9  CB  2E 
F0  08  52 
30  F5  21 
20  47  83 
4E  41  31 
4D  C5  42 
08  52  28 
56  C5  6E 

49  02  A2 

50  40  BD 
04  00  EB 
40  AE  EF 
D6  B0  FA 
B9  F8  73 
40  73  E0 
A7  0E  B2 
00  lA  0B 
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BMl  iC0 

ID  C0  20 

C0 

2  3 

CO 

26 

11 

OCBIjAS 

6E 

E9 

E0 

B0 

00 

AS 

FO 

86 

0F61:1B 

78 

AS 

01 

43 

A9 

35 

BS  47 

0A09:C0 

29  C0  2C 

C0 

2F 

C0 

60 

47 

0089:38 

E9 

00 

B5 

FD 

AS 

FE 

E9 

2F 

■3FG9:01 

111 

FB 

AA 

68 

as 

0! 

S8  52 

0Allt20 

79  00  D0 

03 

4C 

55 

C0 

55 

0CCl!20 

85 

FE 

A5 

69 

48 

AS 

GA 

A7 

0F71:aA 

F0 

0D 

a5 

FQ 

38 

E9 

12  B3 

0A19:2S 

ID  C2  30 

F8 

20 

81 

C7 

F2 

0CC9j48 

A6 

FD 

A5 

FE 

20 

CD 

BO 

9B 

0F79:85 

FB 

B0 

BB 

C6 

FC 

DO 

B7  AE 

0A21 :A8 

A9  00  99 

EE 

FF 

88 

Bl 

C7 

BCDliGS 

85 

GE 

68 

35 

60 

A9 

05 

0E 

OFBljGO 

20 

9E 

AD 

20 

A3 

BG 

C9  4D 

0A29i22 

99  EE  FF 

88 

10 

pa 

60 

69 

0CD9:85 

D3 

20 

6C 

E5 

A9 

22 

20 

AE 

OFa9:00 

F0 

16 

C9 

10 

80 

17 

60  15 

0A31i20 

81  C7  20 

2D 

C7 

90 

03 

5D 

0CEliD2 

FF 

78 

A5 

01 

43 

A9 

35 

7E 

0F91 :A8 

A9 

00 

91 

FB 

88 

BJ 

22  OF 

0A39i4C 

9E  C7  20 

FD 

AE 

20 

ai 

32 

0CE9j85 

01 

A0 

00 

Bl 

FD 

99 

EC 

BG 

0F99:9] 

FB 

aa 

10 

F9 

60 

A2 

04  2C 

0A41iC7 

48  A6  FB 

86 

6B 

AG 

FC 

0C 

0CFliC7 

F0 

03 

C8 

D0 

F6 

68 

85 

CF 

0FA1 : 2C 

A2 

08 

4C 

37 

A4 

A2 

C2  98 

0A49:Se 

6C  20  2D 

C7 

90 

ID 

A5 

F2 

OCF9!01 

58 

A9 

EC 

A0 

C7 

20 

IE 

2F 

0FA9:AO 

C7 

4C 

BB 

C7 

A2 

04 

A0  62 

0A5L:eB 

8S  FB  A5 

GC 

85 

FC 

68 

32 

0D01;A8 

A9 

22 

20 

D2 

FF 

4C 

56 

27 

0FB1:C7 

4C 

BB 

C7 

A2 

DF 

AO 

C7  58 

0A59S4C 

90  C7  20 

79 

00 

DO 

03 

23 

0D09:C4 

AD 

7A 

CA 

38 

ED 

78 

CA 

22 

0FB9:4C 

BB 

C7 

86 

22 

84 

23 

4C  04 

0A6L:4C 

Al  C7  20 

ej. 

C7 

48 

20 

DA 

0D11:B5 

60 

AD 

7B 

CA 

ED 

79 

CA 

82 

0FC1:47 

A4 

46 

49 

4C 

4S 

20 

4E  10 

0A69 ! 2D 

C7  80  03 

4C 

AD 

C7 

A5 

9A 

0D19:8S 

6E 

AD 

78 

CA 

C9 

00 

AD 

F9 

0FC9:41 

40 

45 

20 

54 

4F 

4F 

20  2  S 

0A71 :2D 

38  E5  2B 

85 

FD 

85 

6D 

36 

0D2l!79 

CA 

E9 

C0 

B0 

0D 

AS 

GD 

66 

0FDl:4C 

4F 

4E 

C7 

46 

49 

4C 

45  65 

0A791A5 

2E  E5  2C 

85 

FE 

85 

6E 

0D 

OD29i33 

E9 

00 

85 

6D 

A5 

6E 

E9 

FA 

0FD9: 23 

45 

58 

49 

53 

54 

03 

S2  OE 

0A81 tAD 

7A  CA  38 

ED 

7B 

CA 

35 

54 

0D31 i20 

S5 

6E 

A6 

6D 

AS 

6E 

20 

F3 

OFEl :41 

40 

20 

44 

49 

53 

4B 

20  BA 

0A89i68 

AD  7B  CA 

ED 

79 

CA 

35 

4B 

0D39SCD 

BD 

A9 

06 

as 

03 

20 

6C 

67 

6FE9:46 

55 

4C 

CC 

00 

00 

FF 

FF  06 

0A9} :6C 

AD  78  CA 

C9 

00 

AD 

79 

26 

0D41tE5 

A9 

48 

AO 

CS 

4C 

IE 

Afi 

13 

0FF1:00 

00 

FF 

FF 

00 

00 

FF 

FF  10 

0A99:CA 

E9  C0  B0 

OD 

A5 

6B 

3B 

BE 

0D49:42 

59 

54 

45 

53 

20 

46 

52 

B3 

0PF9:00 

00 

FF 

FF 

AS 

33 

C9 

01  A6 

OAAl :E9 

00  85  6B 

AS 

GC 

E9 

20 

E4 

0051:45 

45 

2E 

0D 

00 

20 

81 

C7 

41 

1001 :AS 

34 

E9 

80 

B0 

0A 

AS 

37  76 

0AA9!8S 

6C  A5  6B 

38 

E9 

12 

85 

lA 

0059:48 

20 

62 

C5 

4C 

6F 

C2 

20 

0E 

1009:C9 

01 

A5 

33 

E9 

30 

90 

OC  05 

0AB1.  :6B 

A5  6C  E9 

00 

35 

6C 

90 

90 

ODGl:ai 

C7 

20 

20 

C7 

90 

03 

4C 

D7 

1011:A9 

00 

85 

33 

85 

37 

A9 

80  C6 

0AB9SOA 

A5  GB  C5 

FD 

A5 

GC 

E5 

4B 

0DG9:9E 

C7 

A0 

22 

78 

AS 

01 

48 

9F 

1019:35 

34 

as 

38 

A9 

00 

85 

61  FG 

BACllFE 

B0  03  4C 

B4 

C7 

A5 

2B 

El 

0D71:A9 

35 

85 

01 

Bl 

FB 

as 

66 

50 

1021 :A9 

C0 

85 

G2 

A9 

7C 

38 

ES  B2 

0AC9S8D 

DD  C2  AS 

2C 

BD 

DE 

C2 

EG 

0D79:Ca 

Bl 

FB 

85 

67 

A0 

10 

Bl 

CB 

1029:61 

85 

G3 

A9 

CA 

E5 

62 

8S  9A 

0AD1 :AD 

78  CA  ao 

E0 

C2 

AD 

79 

F3 

OOai tFB 

as 

69 

C8 

Bl 

FB 

8S 

6A 

A7 

1031:64 

AS 

63 

18 

69 

01 

BS 

65  9A 

0AD9:CA 

8D  El  C2 

AD 

FF 

FF 

8D 

lA 

0089:68 

85 

01 

58 

AS 

69 

38 

E5 

08 

1039tAS 

64 

69 

08 

85 

66 

AS 

6  5  69 

0AE1jFF 

FF  EE  DD 

C2 

D0 

03 

EE 

FF 

0D91:66 

35 

FD 

A5 

6A 

E5 

67 

85 

99 

1041:18 

69 

04 

as 

G9 

AS 

66 

69  B8 

aAE9iDE 

C2  EE  E0 

C2 

D0 

03 

EE 

58 

0D99:FE 

A5 

69 

C9 

00 

AS 

6A 

E9 

BB 

1049:00 

85 

6A 

A0 

00 

ai 

6S 

8D  41 

0AF1:E1 

C2  AD  E0 

C2 

C9 

00 

D0 

79 

0DA1 tC0 

90 

17 

AS 

66 

C9 

00 

AS 

70 

1051:78 

CA 

33 

E9 

00 

85 

GB 

ca  BB 

aAF9!l] 

AD  El  C2 

C9 

C0 

D0 

0A 

67 

0DA9:67 

E9 

E0 

BO 

OD 

AS 

FD 

38 

4C 

10S9:B1 

65 

30 

79 

CA 

E9 

80 

as  79 

0B01:A9 

00  8D  E0 

C2 

A9 

E0 

8D 

B7 

0DB1:E9 

00 

85 

FO 

AS 

FE 

E9 

20 

GE 

1061 :6C 

AD 

78 

CA 

C9 

00 

AD 

79  02 

0B09:E] 

C2  A5  6D 

DO 

02 

C6 

6E 

DG 

0OB9:8S 

FE 

AD 

7A 

CA 

18 

69 

12 

4F 

1069:CA 

E9 

E0 

90 

0D 

AS 

GB 

38  9C 

0BI1 tce 

6D  D0  ca 

A6 

GE 

DO 

C4 

El 

0DC1  :C5 

FB 

DO 

28 

AD 

7A 

CA 

18 

5F 

1071:E9 

00 

as 

68 

AS 

6C 

E9 

20  C0 

0B].9iA0 

10  AD  E0 

C2 

91 

FB 

BD 

29 

0DC9iG9 

12 

AD 

7B 

CA 

69 

00 

CS 

4C 

1079:35 

GC 

A9 

01 

85 

02 

A9 

08  4C 

0D21j7a 

CA  ce  AD 

El 

C2 

91 

FB 

S3 

0DD1:FG 

D0 

19 

AS 

66 

BD 

78 

CA 

41 

1081:85 

03 

A0 

00 

Bl 

02 

9] 

Gl  S3 

0B29iGD 

79  CA  68 

20 

90 

C7 

AD 

C4 

0DD9iA5 

67 

8D 

79 

CA 

AD 

7A 

CA 

86 

10B9:E6 

02 

00 

02 

E6 

03 

E6 

61  4A 

0B31S7A 

CA  38  E9 

].2 

8D 

7A 

CA 

63 

0DE] iia 

69 

12 

8D 

7A 

CA 

90 

03 

AO 

1091:00 

02 

E6 

62 

A6 

63 

00 

02  04 

aB39:B0 

03  CE  7B 

CA 

60 

20 

51 

G3 

0DE9:EE 

7B 

CA 

G0 

A0 

00 

78 

AS 

55 
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90 

14 
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06 

CA 

10 

F6 

07 
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C9 

30 

F0 

F9 

4G 

86 

03    90 

0969:43 
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3D 

53 

54 

41 

52 

54 

2F 
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12 

14 

E6 

30 

E6 

3D 

88 

EC 
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68 

60 

A9 

00 

8D 
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FF   A9 
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4F 

46 

20 

50 

47 

4D 

3A 

A6 
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FB 

Bl 

3D 

20 

B4 

16 

20 
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20 

63 

FF 

A5 

FA 

AO 
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0979:00 

0D 

46 

49 

4C 

45 
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41 
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F0 

07 

C9 

22 

DO 
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17701B7 
J77a:A6 
1780:48 
178BtCF 
l790t7D 
].79B;4E 
17A014C 
17A8t20 
17B0I20 
1788:20 
17C0IEF 
17catFF 
17D0:7F 
1706184 
17E0I43 


E6  87 
BS  20 
A9  02 
FF  AA 
FF  flD 
47  0D 
21  14 
C3  FF 
D4  17 
C9  FF 
20  CG 
20  DB 
4C  D2 
43  60 
60    00 


20  C0 

ce  FF 
24  90 
68  20 
56  49 
00  60 
20  CC 
AS  FE 
20  CC 
20  DB 
FF  A6 
17  4C 
FF  85 
AS  41 
00  00 


FF  80 
20  CF 
D0  16 
D4  17 


45 
4C 


57 
18 


FF  AS 
4C  C3 
FF  A6 
17  20 
05  20 
79  EF 
41  86 
A6  42 
00  00 


28  BC 
FF  CB 
20  03 
20  ID 
49  DB 
14  09 
05  78 
FF  E2 
FE  BB 
79  60 
C6  D8 

29  3D 
42  AC 
A4  4E 
00   C8 


Miami  Ice 

Ankle  on  page  17. 

Program  1:  Miami  Ice 
For  Commodore  128 

EF  10  0PEN2, 8,2, "HI -SCORE, S,W" 
iCLOSE2tOPEKlS,e,lStINPU 
T#15,A5,BS!lFB5<>"FILE  E 
XISTS"THENCLOSE15:GOSUB7 
50 
EM  20  COLORa,16iCOLOB4,ll 
BR  30  PRINT"{CLRHRED}{7  DOWNI 
{15    RIGHT JlRVS J  MIAMI    ICE 

H 

SD   40   PRINT "tBLU) (DOWN) 

{11  SPACES) JOYSTICK  IN  P 
ORT  2" 

JJ  50  PRINT" [BLK] J  DOWN} IBLK) 
{11  SPACES) [LEFT] 
(2  SPACESjTURN  LEFT" ; PRI 
NT" {11  SPACES) [RIGHT]  TU 
HN  RIGHT" 

QC  60  PRINT" {11  SPACES) [FIRE] 
{ 2  S  PAC  ES } ACCELERATE " : PR 
1NT"(VEL) (DOWN) 
{13  SPACES) READING  DATA. 

*l 

BD  70  GOSUBia00iPRIKT"{UPl 

{BLU){10  SPACES) PRESS  BU 
TTON  TO  PLAY" 
DB  80  IFJOY(2)<>128THENa0 
BE  90  HV=3:SC=0:SN=1 
XD  100  FAST SONSNGOSUB760, 1020, 

1280, 1550jSLOH:PRINT" 

{HOMEt"TAB{32)r"{BLK}LI 

VES " J  H Y  r  COLOR0 , 1 6 1 TM-40 

0iT-0tXE»0 
KC  110  GOSUB540t 
AH  120  POKB2041,62:MOVSPR2,X,Y 

tSPRITE2, 1.2. 0,0,0, liPO 

KE2040, 57tXE=BUMP(2) 
MX  130  MOVSPRl, 30 #0! SPRITE 1,1, 

9,0,0,0, liSPRCOLORl,2!M 

OVS PRI. 40,65: I»4iAN-180 

1 HT=1 35 ! TH=0 : XE"BUMP ( 2 ) 

+BUMP(1) 
BQ  140  PRINT" {HOME} {RVS)";TMf" 

{LEFT}  {OFF}" 
JX  150  IFJOY{2)=0THEN150 
PH  160  IFJOY(2)=3THSN2S0 
GC  170  IFJOY{2)=7THEN310 
PR  180  IPJ0Y(2 )=128THENM0VSPR1 

,AN*liTH=liSOUNDl,5000, 

24,2,1000,3,3 
XQ    190   POKE2040,S3+IiIFBUMP(l) 

•"3THEN4  90 1 E  LSE IFBUMP  (  2  ) 

AND1THEN420 
PC    200    IFTH>1THENONABS{T-20)GO 

TO410 
RC  210  T=T+1 
KS    220    IFHT>-180THENIPHT-180>AN 

THEN360 
RS    230    IFHT>ia0THENIFHT-180<AN 

THEN370 


KR  240  IFHT<180THENIFHT+180<AN 

THEN3e0 
RD  250  IFHT<180rHENIFHT+180>AN 

THEN390 
MM  260  'm=TM-l 
CC  261  IF1«<0THENTM=0 
XP  262  PRINT"{HOME}{RVS) ";TH;" 

{LEFT)  EOFF) " 
MH  270  IFJOY{2)<>3THEN300 
AQ  280  AN-AS-KSj IFAN»360THENAN 

-45 
KD  290  I-I-l!lFI=0THENI"8:GOTO 

190 
DS  300  IFJOY(2)«>-7THES340 
CF  310  AN=AN-45iIFAN<0THENAN=3 

15 
KE  320  IFAN-3 60THENAN-0 
DD  330  I-I+ltIPX"9THENI»liG0T0 

190 
HH  340  IFJOY(2)"128THEKSOUND1, 

5000,24, 2,1000, 3, 3 :TH=T 

H+1 ! T=0 : IFTH  >1 5THENTH=1 

5iGOTO190 
CP  350  GOTO190 
FG  360  HT=HT+((AN+(360-HT))/10 

) 1 MOVSPRl, HT#THtIFHT< 36 

0THEN260 1  ELSE  I HT=0 : GOTO 

390 
RX  370  HT=HT-{(HT-AN)/10)!MOVS 

PB1,HT#TH;GOTO260 
SM  380  HT=HT-((HT+(360~AN))/10 

) : MOVS  PH 1 , HT#TH : IFHT  >  0T 

HEN26fl lELSEi HT=360 ;GOT0 

370 
JQ  390  HT-HT+{(AN-HT)/10)iMOVS 

PRl,HT#THiGOTO260 
QR   400   GOTO260 
XD   410    TH=TH-ltT-0iIFTH<lTHENT 

H-liGOTO220:ELSE220 
KF    420   POKE2040,63:PORDELAY=1T 

O150!NEXT!SPRITE    1,0 
RJ    430   SOUNDl, 2000, 100, 0,1000, 

1, 3,100 
JB    440   T=0tHY"HY-l: PRINT" 

{HOME} "TAB< 32) "LIVES"; H 

Yi IPHY-0THEN460 
CD  450  XE-BOMP ( 2 ) : SLEEP2 ! P0KE2 

040,57eMOVSPR1,33,55!XE 

=BUMP(2)!GOTO130 
HX  460  SLEEP2:PRINT"{9  DOWN) 

(15  RIGHT) (RVS) {BLK }GAM 

E  OVER {OFF) " 
PD  470  OPEN2,e,2,"HI-SCORE,S,R 

"iINPUT#2,A5,BStCLOSE2t 

IFSC>VAL(AS)THENF0RI=1T 

Oe I SPRITEI , 0 1  NEXT: GOT05 

60 
HK  480  IFJOY(2)<>128THEN480:EL 

SE I XE-BUMP ( 2 } t  GOTO90 
AS  490  POKE532a0,6:MOVSPRl,40# 

0 ! PLAY " QGRGRG " ; IFTW=0TH 

ENS20 
GP  492  SD=INT{2000/TM) 
XG  500  FORTYxlTOTHSTEPSr PRINT" 

(HOME) (RVS}";'m-TYiPRIN 

T"(HOMEj {RVS) ";TAB(13); 

SC+TYtIFTM-TY<99THENIFT 

M-TY>90THENPRINT"{HOME] 

(RVS) (4    SPACES) {OFF)" 
HM    510    SOUNDl, 3000+ (SD*TY) ,ltN 

EXT 1 SC=SC+TM ! PRINT" 

{HOME) {RVS){2    SPACES)0 

(space) (off) ";TAB{13}; " 

{ RVS ) " ; SC 
PC  520  SLEEPliSN=SN+l!lFSN=5TH 

ENSN=1 
CB  530  GOTO100 
QK  540  PRINT" (HOME) [RVS}" ;TMr" 

{HOME) (RVS)"TAa{13);SC: 

RETURN 
XB  550  REM  **********    ill    SCORE 
********** 


GB  560  PLAY"04SCCFGBHAR  AB"tPR 
INT"{CLR){2  DCWN) 
(11  SPACES 3 YOUR  SCORE: 
(SPACE) ";SCsAB=65iOP=0 

JG  570  PRINT" (10  SPACES} CCCCCC 
CCCCCCCCCCCCCC { UP"P 

PB  580  bPEN2 ,8,  2',  "hI -SCORE,  S,  R 
" iFORI-lTO10t INPUT *2, BS 
(I)llNPUT#2,AS{I)«NEXTi 
CLOS  E  2 1 SC  RATC  H" HI -SCORE 

I* 

GB  590  FORU-lTO10!lPSC>VAL(BS{ 
U) )THENNEXT 

FX  600  U=U-liFORE-lTOU-ltA9{E) 
••A$  (E+1  )  :B$(E  JBBS  {E+1 )  1 
NEXT I BS ( U ) "RI GHTS ( STR? { 
SC),LEN(STRS(SC))-1)>AS 
(U)-" " 

PB  610  TE-LEN(B5(U))iPORP=lT06 
-TElB$(U)  =  "0''+B$(U)!NEX 
T 

FG  620  PRINT" (2  DOWN) " iFORE=10 
T02STEP-1 1  PRINTTABdl )  f 
11-E;"(2  SPACES) "iA5(E) 
»"{3  SPACES) ", '8$ {E)!NEX 
T 

SF    630    PRINTTAB(10);10j " 

(2   SPACES) ";AS{1);" 
(3    SPACES) ";BS(1) 

EQ  640  PRINT" (home! (5  DOWN)":F 
ORI=«1T011-U:  PRINT; NEXT: 
NMS>="" 

CM  650  PRINT" (UP) "TAB(16+OP);C 
HR$(AB) 

GF  660  IPJ0Y(2)'«7THENAB=AB-IiI 
FAB<65THENAB-6S:GOTO650 

PK  670  IPJOY(2)-3THENAB»AB+ltI 
FAB  >90THENAB-90 J  GOTO650 

BD  680  IFJ0Y{2)=128THENNM$=NMS 
+CHR5  <  AB ) ! AB=65  tOP-OP+l 
1 SLEEPl s IFOP=3THEN700 

XA  690  GOTO650 

ER  700  A5(U)=NM5tOPEN2.8,2. "HI 
-SCORE , S , W" : FORI = ITO 1 0 ! 
PRINT#2,B$(I)!PRINT#2.A 
5{I)tNEXT!CLOSE2 

GF  710  PRINT" (HOME) " sFORI-lTOl 
8s  PRINT: NEXT 

MG  720  PRINT"{7  SPACES}PRESS  B 
UTTON  TO  PLAY  AGAIN": GO 
TO480 

FM  740  REM  **•»*»•  CLEAR  HI-SC 
ORES  ******* 

GH  750  SCRATCH"HI -SCORE": PRINT 
"(CLR) MAKING  HI-SCORE" i 
0PEN2. 8, 2 , "HI-SCORE. S,W 
"iFORI-lTO10:PRINT#2,"0 

00000": PRINT#2," ":NE 

XT: CLOSE  2: RETURN 


DB  760  X^2:Y=135 

KG  770  PRINT" [CLR 
(28  SPACES 

JX  780  PRINT"{RVS 
(24  SPACES 
gC3(RVS) (9 
(OFF)" 

KG  790  PRINT" (RVS 
(25  SPACES 
{5  SPACES) 
BC3{RVS}(3 

(off)" 
ah  800  print" [rvs 

(31  SPACES 
(3  SPACES) 
(2  SPACES) 
(2  SPACES) 

CD  810  PRINT" (RVS 
(37  SPACES 
{2  SPACES) 

FC  820  PRINT"{RVS 
(36  SPACES 
{OFF)" 


:COL0R4. 16 
3 ( RVS  t ( RED } 

)  (OFF) 

){wht}++(red) 

SPACESTlcg 

)     (OFF) 
i[WHT)EQa 
BQa+§W3{RED) 
SPACES) lea 

)  (OFF) 

Jg53{RVS) 

(OFF) 

ERED)gC3ERVS) 

(OFF)" 

)  (OFF) 

) (RVS) 

(OFF)" 

)  gC3(0PP) 

) Beg (RVS) 
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KS    640 


CM    850 


EX    630   PRINT"[RVS] [9   SPACES) 
iC3tOFF}[29   SPACES} 
iRVSH2   SPACES]  {OFF} 
[WHTJ++++{RED} 
{3    SPACES} |c3(RVS) 
{4    SPACES }Bca {off) 
{24    SPACES) (BLK]5Qg 

(red}[rvs)   {off}" 

PRINT" [RVSJ  {0FF}(WHT}+ 

++[RED){5  SPACES} {WHT}+ 

TREDJ6ci(RVS3 

1 15  SPACES} gca {OFF) 

{11  SPACES }{BLK}fQa 

{red}Jrvs}   {off}" 

PRINT" iRVS)     (OFF) 
{2    SPACES) {WHT}+ 
{5    SPACES !gZ3++rRED) 
{RVS)BFt{3    SPACES) {OFF) 
{WHT)EW§{4    SPACES )+++ 
{RED}Bci{RVS}{2    SPACES} 
(0FF}[11    SPACES3{BLK) 
gQ3ERED}{RVS]     £0FF3" 
HE    860    PRINT" {RVS}     EOFF) 

{9  SPACES  )iwHT}  §Q i-l-+ 
{REDJ[RVS}{2  spacesT 
{0FF){WHT)+6wa 

(5  spacesJTq3++{red)Ec8 

(RVS)  ICtloFFT" 
[10  SPACES }§D3{ RVS} 
{OFF}" 
GB  870  PRINT" {RVS]  {OFF) 

{10  SPACES) {WHT}^Z3|X3 
{RED  J {RVS)  |oFF3{WHT}  + 
Bwg{S  SPACES )§Q3+{REDT 
(RVS) {2  SPACES) (OFF J 
(9  SPACES) (BLK]EQa{RED} 
(RVS) (2  SPACES) (OFF)" 
DK  80  PRINT" (RVS)  (OFF) 

(12  SPACES) £RVS)  (off) 
{WHT)EW3{10  SPACES}6Qi 
{RED}BCi{RVS)  J  off) 
(9  SPACES) (BLK) 608 (RED) 
{RVS} (2  SPACES) (off)" 
AJ  890  PRINT" (RVS)  (OFF) 

(12  SPACES] Bt3 
(13  SPACES) (RVS)  (OFF) 
(9  SPACES) JBLK) Boa {RED) 
{RVS)(2  SPACES) (OFF)" 

PQ  900  PRINT"{RVS)  £OFF] 

(26  SPACES) {RVS 3  (OFF) 
{9  SPACES) {BLK}6Qa(RED) 
(RVS) {2  SPACES) (OFF)" 

OE  910  PRINT"(RVS)  {OFF} 

{37  SPACES }EC3{ RVS) 
(OFF)" 

CM  920  PRINT" (RVS)  {off} 

(37  SPACES) {BLK)§Qa 
{RED} (RVS)  (OFF)" 

GR  930  PRINT" !RVS)  (0FF3 

{37  SPACES) (BLK)6q8 
(red) (RVS)  {OFF)" 

MQ  940  PRINT" (RVS)  (OFF) 

(37  SPACES} (BLK)BQ3 
{RED) (RVS)  {OFF}" 

BK  950  PRINT"{RVS}  {OFF)Bf8 
(11  SPACES] g§i 
[24  SPACES) {BLK]§Qa 
{RED] (RVS)  (OFF)" 

DO  960  PRINT"£RVS]£2  SPACES] 
{OFF)Bf3{10  SPACES) 
(RVS)  (off)  {WHT)6Qa 

[22  spacesHblk)^Q8 
{red) (rvs)    (off)" 
mk  970  print" { rvs) (3  spaces) 
(off) (10  spaces) (rvs) 

(off) [WHT)+Bwa 
[15  SPACESTEAi 
(6  SPACES) JRED}ED8(RVS} 
{OFF}" 
SD  980  PRINT" {RVS) (3  SPACES) 
(0FF)gFi(WHT)E2  Ra+ES3 
(4  SPACES) (RED) Ed3TRVS) 


PQ    1000 


OS  1010 
CC  1020 
KS    1030 

KQ    1040 


XK    1050 


AB    1060 


CG    1070 


(OFF) (WHT3+++ 
{12    SPACES  3 ^AF+§Wa 
I  5    S  PACES ) { REOT{ RVS  3  BV  8 
(2   SPACES){OFF)" 
SJ   990    PRINT" (RVS) (4    SPACES) 
E0FF)EFa{WHT)+++6sa 
(red)    iD3{RVST"~ 
{3    SPACES ]Bca( OFF ) [WHT 5 
E03+1&2    Rg+{6    SPACES) 
BQ3++++EsgT2    SPACES) 
{RED){RVS)^Va(4    SPACES) 
[OFF]" 
PRINT" (RVS) (39    SPACES) 
(OFF) " ; ; POKE2023, 224i P 
OKES6295,2 
RETURN 

X-262iY°142iCOLOR4, 3 
PRlNT"{CLR)gia{RVS) 
{40   SPACES) (OFF)" 
PRINT " El  3 ( RVS)     (OFF) 
(B   SPACES) (RVS)     (OFF) 
(WHT}gQiil3(RVS)     (OFF) 
(WHTJCBEagxa 
(17    SPACES}613{RVS)BFa 
(7    SPACES) (OFF)" 
PRINT" {RVS)     (OFF) 
{8    SPACES) (RVS)     (OFF) 
(WHT)BQa.Bia(RVS)     (OFF) 
(27   SPACES) (RVS )BJa 
{OFF} (7   SPACES) (RED) 
iDaBia{RVS) [3    SPACES) 
(OFF) (27    SPACES) (RVS) 
BJ3{0FF}" 
PRINT" (RVS)     {OFF) 
(8    SPACES] {WHT]BMg    gl3 
{RVS)     {OFF) (BLKJBsa 
(26    SPACES)6ia{RVS)BJa 
(OFF)" 

PRINT" (RVS)     {OFF) 
(8    SPACES) (WHT)BM3 
(BLK}C+|xgE5    SPACES) 

[hht)5q3{red}£rvs)Eu3 

(OFFnWHT)6S3  (RED) 
gl2  Pa{5  SPACES)Bia 

(rvs]Ej3(off3" 
xc  1080  print" (rvs)  (off) 

(8  SPACES) (WHT)BM3 

(red) (RVS)  [OFF] 

(6  SPACES) {WKTJBQS 

(RED) {RVS}  113 

[14  SPACES}{0FF3 (RED) 

Bf3{4  SPACES}Bia{RVS) 

Ej3{off)" 
db  1090  print" (rvs)  (off) 

(8  SPACES) (WHT]5M3 
{RED]  {RVSJ  (OFF) 
(6  SPACES) (WHT)6Qa 
(RED) (RVS)  (OFF)  IwHT) 
iQ3§l3(RVS}  {OFF}{WHT) 

Bxg  bq3Ii3(rvs)   (off] 

(WHT)&X3{2    SPACES)BQa 
S]3(RVS)     (OFF) {WHTJBxa 

B13(RVS)   (blk]Bl3{offj 
{4  spaces)Bi8(hvs)Bj3 
{off)" 
cs  1100  print" (rvs)    (off) 
(8  spaces) (wht)Em3 
(red)    (rvs)   (off) 

[6    spaces) (WHT}BQa 
[RED) (RVS)     (OFF)     {WHT) 
iQ3iia(RVS)     (OFF) 
{2    SPACES) {WHT}BQ3§13 
JRVS)     (OFF) (3   SPACES) 
(wHT) 603^13(2    SPACES) 
[RVS]     (OFF) (BLK)EW3 
(4    SPACES}B3.a(RVS}Bjg 

[off] " 

KX    11 5  0    PRINT" (RVS 3 (2    SPACES) 
(off) {8    SPACES] (WHT) 
BY3{RED)fRVS]     {OFF) 
(6    SPACES] (WHT) Bo 3 
{RED} (RVS)     (OFF) 


{2  spaces){red3Bc3 

[2  SPACES] {WHT)EQ3 
{4  SPACES)  {red) id 
{2    SPACES) ill {RVS) 

(off){blk)Bw3 

{4    SPACES ) Bl 3 ( RVS )BJ3 

[off] " 
xr  1120  print" [rvs]  (off) 

(9  spaces) (red) (rvs) 
{2  spaces) [off) 

(6    SPACES) {WHT)iQ3 

(red) (RVS)     (OFF) 

£5  SPACES)BC3 

(7  SPACES] 11 3 {RVS 3 

[off] {BLK]iw3 

{4  SPACES] gl 3 { RVS] iJ3 

[ off} " 

JS  1130  PRINT" (RVS)  [off] 

(9  SPACES) (RED) (RVS) 
(off] (5  SPACES) {RED) 

iD3c{Rvs)   Bd3£ofp) 

(13    SPACES}Bli{RVS) 

(OFF) £BLK}iw3 

[4    SPACES) ill (RVS) |J3 

{OFF)" 

RQ    1140    PRINT" (RVS)     (OFF) 

(9   SPACES) (RED) {RVS} 

{OFF) (6  SPACES) (WHT) 

BQ3£RED)(RVS]  {OFF}iHi 

(13  SPACES)gl3£RVS) 

(OFF) (BLK}EW3 

[4    SPACES )B13(RVS}BJ3 

(OFF)" 

AR  1150  PRINT" { RVS)  {OFFJ 

(9  SPACES] (RED) (RVS) 

(OFF) £6    SPACES) £WHT] 

BQ8{RED){RVS)     {0FF]gH3 

(13    SPACES]gl3{RVS) 

{OFF] [blk]Bw3 

£4  SPACES) El  a { RVS 3 Ej3 

{OFF}" 

RJ  1160  PRINT" (RVS)  [OFF] 

[9  SPACES] (RED) (RVS) 
(OFF) £6  SPACES] {WHT} 
Boa (RED) (RVS)  (0FF]iH3 
[6  SPACES}Eia£RVS3iF3 
[7  SPACES) (OFF) (BLK) 

|wa£4  SPACES] El  a (RVS 3 
Ej3£off) " 

FR  1170  PRINT" (RVS)  (BLK)ED3 
|F3£0FF) (7  SPACES) 
(red) (RVS)  (OFF) 
(6  SPACES) £wht]Eq3 
(red] [RVS]  (OFF) 

[9  spaces3E13[Rvs3 
(bhj)Ed3Ef3Ed3[off) 
ii8(Rvs)   (off) (blk)Ew3 

(4    SPACES) El  a (RVS)  gJ8 

{off}" 
xj  1180  print" (rvs 3  e83 

(2    SPACES) £0FF}{BLK) 
Boa {4   SPACES] { RED) EDa 
(RVSJ£2    SPACES] {OFF) 
(6    SPACES) £WHT)EQ3 
(RED) (RVS)     [off] 
(9    SPACES] El  a {RVS 3 gDa 

{blu}(3  spaces3£off) 
( BLK ) gs  3  g 1 3  £  RVS )   (off  3 

[BLK)gW3£4    SPACES] gl a 
{RVS}gj3{0FF)" 

BC    1190    PRINT" £rVS}     g88gD3gFg 
(off) (BLK)gG3 
(13    SPACES) (WHT 3  603 
{RED) (RVS)     (off) 
(10    SPACES) (WHT]63    Ti 
{ BLK ]g23 gill RVS]     (OFF) 
{BLK]gXg£4    SPACES)gl3 
{RVS)gJ3{0FF]" 

QM    1200    PRINT"(RVS]     g83 

{2    SPACES] (OFF] (BLK] 
gG3{l2    SPACES}{RED) 
(RVS) (3   SPACES) £0FFj 
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HS  1210 


£R  J220 


DO  1230 


ER  1240 


PK  1250 


Ma  1260 


m  1270 

BA  1260 
DK  1290 

DA  1300 


SC  1310 


JD  1320 


MD  1330 


XQ  1340 


CD  1350 


CH  1360 


DG  1370 


fl4  SPACES JgigtRVS J 6D3 
{OFF J [S  SPACES) fRVSj 
iJ3{0FF)" 

PRINT"lRVSj  £83gD9iF3 
tOFFj {BLKllcg 

112  spacesHred}{rvs) 
[3  spaces) [off) 

[20  SPACES} 81  giRvsjua 

(OFF)" 

PRINT" [RVSJ  EelBDlBFg 

[OFF) (WHT)BS3 

[12  SPACES) [RED) [RVS) 

(SPACE) g3  3Q[ RED)  (OFF) 

(20    SPACESTEl3[RVSjgja 

(OFF)" 

pRiKT"(Rvs)  leggoagFa 

(off)  (1*1^)++ 
[11    SPACESTTRED) (RVS) 
(3    SPACES) (OFF) 
(20   SPACES) Bl 3 ( RVS )Bj3 
(OFF)" 

PRINT" (RVS)    iSg 
[2    SPACES) (off) (WHT) ++ 
|s3[9    SPACES )§A3 I RED1~ 

[rvs)    E 3 go (red)    (off) 

[SPACE) [WHTJ    BH3 
(17   SPACES )il3{ RVS) 

(off)" 

PRINT" E RVS}  Baa 

[5    SPACES) (OFF) (WHT}CC 
CCCCB13{RVS}{7    spacesT 
[RED)B2    xaBcafOFF) 
[17    SPACES }Bl 8 [RVS} 
(OFF) " 

PRINT"(RVS)(39    SPACES) 
(OFF) "f tPOKE2023,224:P 
OKE56295,6 
RETURN 

X=280:Y=200!COLOR4, 16 
PRINT" (CLR) (CRN} [RVS) 
[40    SPACES} [OFF)" 
PRINT" (RVS)     [OFF) 
[19   SPACES)g*i[RVS) 

(4  SPACES)  (OFF}  [wirr)- 

{BLK)B13    Eg(GRN)[RVsT 
[SPACE) (OFF)" 
PRINT" (RVS)     (OFF) 
[21    SPACES  )B*H  RVS  J 
(2    SPACES} [OFF) (WHT)- 
[13    SPACES) [CRN) (RVST 
(SPACE) (OFF) " 
PRINT" (RVS}     (OFF) 
[22    SPACES) {RVS} 
(2    SPACES) (OF^) (WHT)- 

[13  spacesHgrn)  (RVST 
(space} [off} " 
print" (rvs)    [off) 
[13  spaces )( rvs )£ 

[OFF) {7  SPACES)B*3 
(RVS)  (OFF)(WHT)- 
{13  SPACES} (GRNJTRVS) 
(SPACE) [OFF}" 
PRINT"(RVS}(15  SPACES) 
(0FF)£[6  spaces) (WHT) 
UC{GRN)[RVS)  (OFF) 
TwHT)K[13  spaces) (GRN) 
(RVS!  (OFF)" 
PRINT" [RVS) (4  SPACES) 
(OFF) £(17  SPACES) 
{WHT)-(GRH)(RVS)f 
{0FF)T7  SPACES) (RVS) 
(OFF) [6  SPACES) {RVS) 
( OFF) " 

PRINT"(RVS)(3  SPACES) 
(0FF}fEl7  SPACES) 
{RVS)i(3  SPACES) (OFF) 

{7  spaces) [rvs)    (off) 
{6  spacesHrvs)   (off)" 

PRINT"{RVS) {2    SPACES) 
[0FF)£(17    SPACES) 
[RVS)£(3    SPACES) [OFFj 
£(7    SPACES}(RVE) 
TOFFJ l6    SPACES) {RVS) 


{OFF}" 
DE    1380    PR1NT"(RVS! [2    SPACES) 
{OFF) [8    SPACES) B5 3 
{RVS)£(GRNJ 
(11    SPACESHOFF)£ 

[9  SPACES) (RVS)  Toff) 

(6    SPACES) (RVS)     (off) 

RE    1390    PRINT" (RVS)    (OFF) (WHT) 
-(GRN){7    SPACES)g5i 
TrVS)£{4    SPACES) EGRN) 
{2    SPACES} (OFF)£ 
{14    SPACES) {RVST£ 
(OFF) (6    SPACES) (RVS) 
(OFF  J" 

JS    1400    PRINT" (RVS)     (OFF) [WHT) 
-{GRN) (7    SPACES) {RVS) 
TSPACE)§S3[4    SPACES) 
(GRN)     [OFF)£ 
[14    SPACES }TRVS)£ 
(2    SPACES){OFF) 
[6    SPACES) (RVS)     (OFF)" 

HH    1410    PRINT" [RVS}     [OFF}(vmT) 
-{GRK){7    SPACES){RVS) 
TSPACE)B53[2    SPACES) 
(GRN} [2    SPACES) [OFF)£ 
(14    SPACES) ( RVS )£ 
(3    SPACES) (OFF) 
(6    SPACES) (RVS)     (OFF)" 

OA    1420    PRINT"  (RVS)     [OFF)  (VfHT) 
-(GRN) (7    SPACES) (RVS) 
TSPACE}B53[2   SPACES) 
(GRN)     (OFF)£ 
(14    SPACES )TRVS}f 
(2    SPACES )M    [OFfT 

(6  spaces)Trvs)   [off} 
bs  1430  print "(rvs)   {off} (wht) 
-{grn){7  spaces) (rvs) 
t3  spaces) { off )£ 
(14  spaces) [rvst£ 

[2    SPACES) M    (0FFT£ 

[6  spaces)Trvs)  {off)" 
rh  1440  print" (rvs)  (off) (wht) 

-(GRN) (7    spaces) [RVS) 
T2    SPACES) {OFF)£ 
(14   SPACES) (RVSTi 
(2    SPACES }M    {0FFT£ 

{7  spaces)Trvs)   (off)" 
rp  1450  print"(rvs)   (off) ( wht) 
-(grn) (7  spaces) (rvs j 
tspace) {0fp)£ 

(14  SPACES }( RVS )£ 
(2  SPACES )M  {OFfT£ 

{e  spaces)Trvs)  (off)" 

CE    1460    PRINT" (RVS)     [OFF) (WHT) 
-(GRN) [7    SPACES) (RVS) 
TsPACE) [OFF) 
[14    SPACES) [RVS)£ 
(4    SPACES) [OFF)£ 
[9    SPACES)(RVS)     {OFF}" 

PJ    1470    PRINT" [RVS }     (OFF) (WHT) 
-(GRN) (20   SPACES] B53 
TRVS)f    (CRN) 
[5   SPACES)(0FF) 
[10   SPACES) {RVS)     (OFF) 

H 

KX    1480    PRINT" (RVS)     {OFF) (WHT) 
JI[GRN){18    SPACES) §5§ 
TRVS)£    (GRN) 
(3    SPACES} (OFF) (WHT) - 
[SPACE) (GRN) (rvs) 

{off) (10  spaces) (rvs) 
(space) {off) " 
sh  1490  print" (rvs)  b5  3 
[3  spaces) (off) 

(17  SPACES) E RVS)  (GRN) 
(3  SPACES) (off)  (WHT) 

Bq|c(ghn} (RVi)  (off) 

(10  SPACES) [RVsi  (OFF) 

MX  1500  PRINT" (RVS}  ^53 
(3  SPACES) {off} 
[16  SPACES) (GRN) [RVS j 


f(4  SPACES) (OFF) (WHT) 
CBW3  (GRN) (RVS)  (OFF) 

Ti0  SPACES) E RVS)   (off) 
FF  1510  PRI^r^"(Rvs)  BS3 

(4    SPACES} (OFF) [WHT) CC 
CI [10    SPACES} (GRN) 
TRVS)£(2    spaces) (off) 
(WHT)    -   UBwg    (GRN) 

(RVS)  Toff) {10  spaces) 
{rvs)  (off)" 

OR   1520   PRINT" {RVS)    g53 

(7    SPACES ) (OFF) (WHT) - 
(8    SPACES) [GRN)tDi 

{rvs) {4  spaces) (off) 
(wht)ck  (rvs)  {offjjc 
{grn}Trvs)  {off)(whtTc 
ccccccccc(grn) (rvs) 

I  OFF]" 
KX  1530  PRINT" [RVSj [39  SPACES) 

(OFF) ";!POKE2023,224iP 

OKE56295, 5 
CA   1540   RETURN 

CS    15S0   X-110:y=165!COLOR4,16 
HK   1560    PRINT" (CLR) B53( RVS) 

(17   SPACESjCCCCCCCC 

(3    SPACES] (OFF) Bll    U3 

{RVS)SF3[0FF) " 

SD  1570  PRINT"BJ8{6  SPACES)BLg 
§HS{15  spaces)&*3[rvs) 
{3  spaces) {off) 

(11    SPACES) fcg" 
AD    1580    PRINT"Ejg(6    SPACES) 

[WHT)Bc3iv|B5g 

(16  SPACES ]B*3 {RVS) 

(OFF) (11  SPACES)BLg 
KB  1590  PRINT" BJ3E 25  SPACES) 

B*3{RVS)-(0FF} 

[11  SPACES) EL3" 
HK  1600  PRINT"Bj3(26  SPACES) 

(RVS)- {off) (11  SPACES) 

|L3" 
AE  1610  PRINT" (RVS} (16  SPACES) 

[off)§f3[22  spaces )BLg 

M 

eq  1620  print" {rvs) (17  spaces) 
(off)Bf3{i5  spaces) 

[RVS}- (OFF) (5    SPACES) 

Bl3" 

XF    1630   PRINT" {BLK)B6   E3+E6   £3 
+g2   E3i53[RVS) 
T3    SPACESJ{0FF)BF3 
(12    SPACES)BD3[RVS) 
(OFF) (5    SPACES ]BL3" 

HA    1640    PRINT"iJ3(5    SPACES] 
(WHT)(RVS)Bl3[0FF) 
{6    SPACES){RVS)gl3 
{off) {2    SPACES)653 
[RVS){17    SPACES)BD3 
[off] (5    SPACES )Bl 3" 

MJ    1650    PRINT" BJ3[ 15    SPACES} 
(rvs) [3    SPACES) [OFF] 
{WHT]-H-+BW3{9    SPACES) 
BS3{RVS)gF3ica(OFFj 

(5  spaces]Bl3" 
XA   1660   PRlNT"BJa{15   SPACES) 

{WHT)E3  t3  Iw3iz3 

{10   SPACES)B53[RVS)fV3 

(off) [whtjui 
{3  spaces)B5IBl3" 

GQ   1670    PRINT"BJ3[4    SPACES) 
{RED)B9    @3B53 
(18   spaces) (RVS)     (OFF) 
[BLU)gD3(RVSj     (OFF) 
{WHT)-(3    SPACES)B53gL3 

Bj3(4  SPACES) 833 (rvs) 

(9  SPACES) (OFF) (WHT) 
E031l7  SPACES) 85 3 (RVS) 
(3  SPACES) (OFF) (WHT) - 

85353  sPACES)8L3iJ3 
{4  SPACES )E3 3 (RVS)  Beg 
8v38c3lvgBcgEvg8c38v3 
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tOFFj[21    SPACES) {WHT}- 
g53{3    SPACES) ELa" 
KJ    1680    PRINT"?jg{S    SPACES) 
[RVSj     fOFF)E7a-g5a 
IrVS)     ioFF) i5   SPACES) 

833(rvsJ   c  c  (off) 

{WHT)Eug(r5  SPACES }- 
(3  SPACES) §53iL3" 

DX  1690  PRINT"6J3[S  SPACES) 
[RVS)  [0FF)E73-E53 
[RVS)  {0FF){S  SPACES) 
ERVSJU4  SPACES)B*3 
(0FF5f6  SPACES) [WHT)^ 
t3  SPACES)&53ELg" 

SK  1700  PRINT"6ja[5  SPACES) 
(RVS)  {OFF)g73-B5a 
[RVS)  [OFF) {18  SPACES) 
S*3ERVS)  §*g{OFF} 
[5  SPACES) [WHTj- 
(3  SPACESJgSigL'i" 

SJ  1710  PRINT"EJ3i5  SPACES) 
(RVS)  [OFF] 673-65  3 
(RVS)  (OFF) (19  SPACES) 
g*l(RVS]  §*3{0FF) 
[4  SPACES) {WHT)- 
(3  SPACES) E53ElTEj3 
(5  spaces) (rvs}  ^73 
b53  (off) (20  spaces) 
S*I(rvs}  (off) 
(4  spaces) [wht) - 

(3  spaces) E5 3 §Ll" 
KM  1720  PRINT" 1J3£S  SPACES) 
(RVS)  (OFF)  {RVS 3 
(off) (21  SPACES) (RVS) 
(space) (off) {4  SPACES} 
{BLK)EU3{3  SPACES)B53 

BL3" 

BG    1730    PRINT"EJ3{5    SPACES) 

{RVS}BF3(2    SPACES }gC3 
(off) (20   SPACES) (RVS} 
(SPACE) {0FF){8   SPACES) 
|L3" 

FK    1740    PRINT"BJ3(6    SPACES) 
(RVSJ6f3(2    SPACES) 
§11    P3    (OFF) {8    SPACES) 

(rvs)    (off) (8  spaces) 
ElS" 

XO    1750    PRINT"8J3(29    SPACES) 

(RVS)     (OFF) (8   SPACES) 

EL3" 
CP    J  760    PRINT' 

(RVS) 

gL3" 
PX    1770    PRINT" (RVS)    B29   U3 

(9    SPACES) (OFF)"; ! POKE 

2023, 224iPOKE56295,12 
CA    1780    RETURN 
AQ   1B00    1=3456 
JS    1810    READ   A: IF    A=256    THEN    R 

ETURNE7    SPACES) 
JB    1820   POKE    I,AjI=I+l!GOT0181 

0 
HP    1830    DATA000, 000, 000, 000,00 

0,000,000,000 
KK    1840    DATA000,004,000,000,00 

9,000,000,040 
OX    1850    DATA000, 000, 106, 000,00 

0,018,128,016 
KE    1860   DATA000, 162,020,000,04 

3,133,000,011 
P8   1870   DATA225, 000,010, 232,00 

0,018,163,000 
EA   1880   DATA02  0, 160,000,005, 12 

8,000,001,000 
PS    1890   DATA000,000,000,000,00 

0,000,000,000 
EX    1900    DATA000,000,000,000,00 

0,000,000,000 
OS    1910    DATA000, 000, 000,000, 00 

0,000,000,000 
SB    1920    DATA000,000,000,000,00 

0,000,000,000 


■EJa{29   SPACES) 
(OFF) (8    SPACES) 


AA    1930    DATA000,000,000,000,08 

4,000,000,084 
MC    1940   DATA064,000,016,064,01 

0,168,170,171 
MS    1950    DATA232, 170, 171, 232,06 

4,010,168,064 
GP   1960    DATA000,016,000,000,08 

4,000,000,084 
BF    1970    DATA000, 000,000, 000,00 

0,000,000, 000 
OE    1980    DATA000,000, 000, 000,00 

0,000,000,000 
PH    1990    DATA000, 000,000, 000, 00 

0,000,000,000 
KP    2000    L>ATA000,  000,  000,000,  00 

0,000,000,000 
AM    2010    DATA 000, 000, 000, 00 1,00 

0,000,005,128 
JB    2020    DATA000,020,160,000,01 

8, 232,000,011 
ED    2030    DATA 232, 000, 011, 161,00 

0,042,13  3,000 
QD    2040   DATA162, 020,018,128,01 

6, 106,000,000 
XB    2050    DATA040,000,000,009,00 

0,000,004,000 
EK    2060    DATA000 , 000 , 000 , 000 , 00 

0,000,000,000 
BJ    2070    DATA000, 000,000, 000, 00 

0,000,000,000 
CP    2080    DATA000, 000, 000,000, 00 

0,000,000,000 
OP    2090   DATA000,000,004,16B,06 

4,005,169,064 
XG    2100   DATA005,169,064,004,ie 

4,064,000,184 
FH    2110    DATA000, 000, 184,000,00 

0,168,000,000 
CG    2120    DATA16B, 000,000, 032, 00 

0,000,032,000 
XP    2130   DATA000,032,000,000,03 

2,000,001,033 
XX    2140    DATA000, 001, 169,000,00 

1,033,000,000 
RX    2150    DATA000, 000, 000,000, 00 

0,000,000,000 
SS    2160    DATA000,000,000,000,00 

0,000, 000,000 
DD    2170    DATA000, 000, 000, 064,00 

0,002,0B0,000 
XJ    2180    DATA010,020,000,043,13 

2,000,043,224 
JH    2190    DATA000,074,224,000,08 

2,168,000,020 
EB    2200    DATR138, 000,004, 002, 13 

2,000,000,169 
FD    2210    DATA000,000,040,000,00 

0,096,000,000 
JG    2220    DATA016,000,000,000,00 

0,000,000,000 
KC    2230   DATA000, 000,000, 000, 00 

0, 000,000,000 
MF    2240    DATA000, 000,000,000, 00 

0,000,000,000 
EQ   2250    DATA000,000,021,000,00 

0,021,000,000 
CC    2260    DATA004,000,001,042, 16 

0,001,043,234 
DJ    2270    DATA170, 043, 234, 170,04 

2,160,001,004 
SA    2280    DATA000,001,021,000,00 

0,021,000,000 
MK   22  90    DATA000,000,000,000,00 

0, 000,000, 000 
JG    2300    DATA000,000,000,000,00 

0,000,000,000 
PG    2310    DATA000,000,000,000,00 

0,000,000,000 
RC    2320    DA'rA000,000,000,0i6,00 

0,000,096,000 
SD   2330   DATA000,040, 000,000, 16 

9,004,002,132 


CJ   2340   DA TA020, 138,000,082, 16 

8,000,075,224 
HF    2350    DATA00O, 04  7, 160,000,04 

2,132,000,010 
XB    2360    DATA020, 000,002, 080,00 

0,000,064,000 
GR    2370    DATA000,000,000,000,00 

0,000,000,000 
BO   2380    DATA000,000,000,000,00 

0,000,000,000 
GD    2390    DATA000,000,000,001,03 

3,000,001,169 
CX    2400    DATA000,001,033,000,00 

0,032,000,000 
KC    2410   DATA032,000,000,032,00 

0,000,032,000 
f!M    2420   DATA000,032,000,000,  16 

8,000,000, 184 
QR    2430   DATA000, 000, 184,000,00 

4,184,064,005 
HD   2440   DATA169,064,005,169,06 

4,004,168,064 
CA   2450    DATA000,000,000,000,00 

0,000,000,000 
RD   2460    DATA000, 000, 000, 000,00 

0,000,000,000 
JC    2470    DATA000,000,000,000,00 

0,000,000,000 
HG    2480    DATA000, 000,000, 000,00 

0,020, 000, 000 
SP   2490    DATA085, 000, 001,085,06 

4,005,085,080 
OS    2500   DATA021, 063,084,085, 08 

5,085,106,150 
JB    2510   DATA169, 101, 150,089,10 

1,150,089,106 
AB    2520   DATA150,169,106,150,  16 

9,106, 150,169 
BA   2530   DATA106,150,169,106,15 

0,169,106,150 
JQ   2540   DATA169, 106, 150,169,10 

6,150,169,000 
RB    2550    DATA000,000,000,000,00 

1,000,064,007 
ED   2560    DATA064,064,007,064,00 

0,049,000,004 
JB    2570    DATA000,010,032,000.01 

4,000,128,000 
PJ    25B0   DATA002,136,192,066,04 

2,131,000,168 
MS    2590    DATA000,048,043,032,00 

2,168,012,016 
BM    2600    DATA032, 128, 000,000,04 

0,003,000,064 
BH    2610    DATA048,000,000,000,01 

6,016,131,000 
QX    2620    DATA] 16, 160,000, 116,00 

0,000,016,000,256 

Program  2:  Miami  Ice 
For  Commodore  64 

Version  by  Kevin  Mykytyn,  Editorial 
Programmer 
Please  reier  to  the  ' 
before  entenng  the 

0801 :0C   08  0A 

0809:36    32  00 

0811:20    BC  0D 

Q819sA2    08  99 

0821  I  20   C4  08 

0829:  DC    29  10 

0B31 tl0    IB  20 


0839 
0B41 
0849 
0851 


0B  20  IB 
00  20  CO 
!A9  00  95 
52  0A  20 
0859:00  FD  CA 
0861 :AD  IE  D0 
0S69:D0  £8  A9 
0671141  80  04 
0879i4B   09   CE 


MLX"  rati 
lollowing 

00  9E 

00  00 

A9  00 

00  04 

20  75 
F0  F9 
F0  FF 
AB  Ae 
BD  A9 
F9  20 
95  0E 
D0  FA 
AD  01 
40  BD 
D4  20 

21  13 


cle  in  this  issue 

listing. 

20  32  30  64 

20  E0  0E  11 


A0 
66 


18  B9  09 
10  F7  90 


0A  AD  01  A5 
A2  00  A0  FD 
A9  E2  A0  6F 
B4  E8  A9  08 
C8  8S  F8  63 
06  0D  20 


A2 
AD  IF 


15 
64  88  B6 
D0  55 
DC  29  10  A2 
04  D4  A9  25 
ID  09  2  0  FA 
D0  09  AD  77 
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0861 1  22 
08a9iCE 
0891:80 
0899 1 0D 
0BA1108 

0BB110A 
08B9iFl 
aBCl.  iD2 
0BC9:C4 
eSDlsBD 
08D9:eE 
0aEI:07 
aaE9:EC 

eapitiB 

08F9t  20 
0901 t0A 
0909 :B4 
0911iF0 
a919i4A 
0921 tA9 
0929 !F0 
0931 :F8 
0939il8 
0941 tF8 
0949i23 
0951101 
0959149 
0961 1 8D 
0969 tD0 
0971 (0A 
0979t0C 
0981i8D 
0989:A9 
099Lt20 
0999120 
09Alil3 
09A9iD0 
09BliF0 
09B9i40 
09CliA5 
0909:38 
0901:00 
09O9:C3 
09EliEG 
09E9t40 
09FltD4 
09F9iA9 
0A01i64 
0A09tD4 
0A11I00 
0A19!l8 
0A21t20 
0A29IA2 
0A31i29 
0A39S0S 
0A41:0D 
0A49:S5 
0AS1:60 
0A59:A0 
0A61:A5 
0A69s26 
0A71S00 
0A79iFF 
0Aai]8O 
0AB9i20 
0A91ilE 
0A99 ! 04 
0AAliO8 
0AA9t00 
0AB1:FC 
0AB9i00 
0ACltFB 
0AC91FD 
0ADl!A5 
0AD9iia 
0AE1:00 
0AE9i85 
0AFliB0 
0AF9 I 0D 
0B01i6D 
0B09rBl 
0Bllt02 
0B19iC8 
0Q21iD0 


13  8D 
25  13 
25  13 
A0  00 
00  05 
IE  00 
00  00 
4F  20 
FF  60 
A9  00 
A9  93 
21  D0 
A0  0B 
AS  0B 
69  31 
45  0A 
A5  B4 
10  E3 
DC  C6 
B0  03 
C8  85 
IC  A5 
A5  F9 
A0  07 
A5  F9 

13  10 
65  02 
FF  18 
00  04 

14  AD 
C9  0A 
C9  0C 
04  04 
81  80 
13  A9 
13  C9 
4C  93 
A9  64 
5A  68 
8D  04 
F8  05 
E9  01 
85  F9 
00  02 

02  A5 
80  04 
C6  03 
40  80 
20  45 
4C  24 
8D  15 
20  F0 
IE  AB 
00  20 
10  D0 
18  20 
4C  IE 
A2  AS 
A9  9F 

17  18 
C4  20 

18  20 
4C  CD 
A9  01 
20  00 
F0  FF 
AB  A0 
99  98 
99  96 
85  FB 
A9  D8 
A  9  A0 
A9  04 
A5  FB 
FG  69 
69  28 
65  FE 
FB  A9 
07  90 
0A  AA 
PC  0C 

03  D0 
00  80 
Bl  03 
60  01 


21  13  20 
D0  0C  AD 
20  16  0E 

68  D0  FD 
00  01  00 
00  00  89 
00  2B  00 
CD  BD  A9 
A9  00  85 
85  B4  A9 
20  D2  FF 
£8  8E  20 
18  20  F0 
20  IE  AB 
80  A7  05 
AD  01  DC 
C9  06  F0 
4A  B0  08 
B4  10  08 
60  C6  F7 
F7  A5  Fa 
F8  38  E9 
E9  00  85 
la  20  F0 
20  BB  06 
05  49  FF 
AD  24  13 

69  01  18 
AD  IF  D0 
IE  00  65 
F0  09  AS 
F0  3A  60 
A9  80  60 
12  04  A9 
05  20  45 
00  F0  06 

09  A9  07 
20  45  0A 
66  4C  4D 
D4  A9  00 
F9  F0  32 
85  F8  a5 
A5  B4  85 
E6  C4  20 
02  8D  01 
D4  A9  41 

10  E2  4C 

04  D4  E6 
0A  A9  05 

05  20  52 
00  A2  0C 
FF  A9  9E 
A2  0B  20 
36  0A  AD 
F9  4C  21 
F0  FF  A9 
AB  85  02 
A2  C5  02 
20  D2  FF 
20  F0  FF 
BB  08  A2 
F0  FF  A6 
BD  A9  93 
80  21  D0 
A2  18  A0 
A9  71  A0 
2  7  A9  A0 
07  A9  04 
OB  88  10 
85  FD  A9 
85  FE  A2 
91  FB  A0 
91  FD  A0 
18  69  28 
00  85  FC 
85  FD  A5 
CA  D0  Dl 
04  85  FC 
02  A2  06 
BD  FB  0C 
85  04  A0 
J. 9  C8  Bl 

04  D0  ao 

SD  03  00 
00  60  84 


6D 
81 


95  0E  70 

26  13  30 
20  4F  BE 
4C  75 

19  F0 
00  00  67 
00  05  25 

20  20  6C 
C3  85  05 
03  85  D6 
A2  03  7E 

00  A2  5B 
FF  A9  EE 
A5  B4  9B 
A9  0A  16 
4A  B0  48 
e7  E6  SF 
A5  B4  40 
4A  4A  B9 
D0  26  DA 

05  F9  7F 

01  85  EF 
F9  A2  B3 
FF  A6  40 
60  AO  E6 
18  69  E7 
10  05  F2 
65  02  DE 
29  08  46 

02  29  4A 

02  29  57 
A9  40  7B 
12  04  C3 
08  8D  6E 
0A  AD  D5 
EE  20  28 
6D  IS.  EC 
C6  BO  BA 

06  A9  B7 
85  02  77 
A5  F6  B9 
F9  E9  27 

03  E6  B7 
52  0A  06 

04  A9  80 
60  04  BE 
CI  09  56 
B4  A9  3  8 
80  01  16 
0A  A9  A7 
A0  05  C3 
A0  0B  73 
38  0A  BF 

01  DC  3F 
08  A0  2F 
CI  A0  B3 
A9  00  F3 
00  FA  7A 
A2  18  E9 
A6  C3  21 
18  A0  04 
BO  A9  69 
20  02  DC 
A9  03  93 
00  18  04 
0B  20  C8 
99  00  29 
99  00  2A 
EO  A9  63 
04  35 
18  A0 

27  91  A7 
00  91  OB 
85  FB  3A 
A5  FD  SE 
FE  69  9F 
A9  00  05 
A6  B4  57 
BD  09  IC 
85  03  66 
FF  C8  7A 
03  60  05 
00  D0  OB 
80  05  B4 

02  48  91 


IS 
75 


0B29i4e 

0B31t4A 

0B39:68 

0B41tA5 

0B49iA5 

0B51I00 

0B59tA5 

0B61tD4 

0869102 

0B71il2 

0B79i20 

0B81i20 

0889:20 

0891:20 

0B99:20 

0BA1 1 92 

0BA9!45 

0BB1 1  53 

0BB9i55 

0BCJil2 

0BC9i20 

0BDI:20 

0BD9:20 

0BE1:00 

0BE914E 

0BFli20 

0BF9l20 

0C0] tJ ) 

0C09i9D 

0C1) :52 

0C 1 9 : 1 J 

0C2) ! 90 

0029:53 

0C31:55 

0C39:FF 

0C41i8e 

0C49:E6 

0CS11CS 

0CS9i45 

0C615CO 

0C69:2D 

0C71i63 

0C79:A1 

0C81:C3 

0C89i83 

0C91ia3 

0C99:A2 

0CAlt4S 

0CA9 ! EA 

0CB1106 

0CB9:A6 

0CCl!Al 

0CC9:C3 

0CDliDC 

0CD9:C1 

0CEllC9 

0CE9!F2 

0CF1SA2 

0CF9i2D 

0001:68 

0009:00 

0011:27 

0O19t 13 

0D21:8O 

0D29!F0 

0D31iF0 

0D39t  3E 

0D41:F0 

0D49i4E 

0D51il3 

0DS9:C9 

0D61:BD 

0O69:7F 

0D71i90 

0D79iFF 

0D81fFF 

0D89i8O 

0D91iD0 

0D99 : IC 

0DA1:AD 

0OA9S07 

0OBl!DC 

0DB9:4C 

0OC1:A9 

0OC9il4 


29  IF  6D 
4A  4A  29 
10  02  A0 
FB  18  7D 
FC  70  38 
AD  29  13 
FB  85  FD 
85  FE  A9 
CE  28  13 
9F  54  49 
20  20  20 
20  53  43 
20  20  20 
20  43  41 
90  94  20 
47  41  4D 
52  20  2D 
20  46 
54  4F 


53 
54 


9F  20  20 
20  20  20 
20  20  20 
20  20  20 
9C  12  53 
20  00  92 
41  20  4D 
49  20  43 
90  90  90 
9D  90  9D 
45  43  4E 
9D  9D  90 
90  90  90 

53  20  46 

54  54  4F 
FF  28  00 
CD  00  37 
66  C6  90 
E3  CC  A3 
EC  47  25 
AA  C2  02 
C8  68  C3 
E4  83  C3 
04  83  47 

45  E5  AB 
C6  83  AA 
00  FA  8C 
C8  El  27 
24  El  63 

81  CI  E5 
E4  Al  C2 
C2  82  A4 
EI  81  68 
EA  CI  81 

46  65  03 
EE  8E  A2 
EB  64  EC 

82  El  C2 
C4  AC  C2 
C8  3F  0C 
0C  95  0C 
06  01  05 
13  00  39 
CE  2A  13 
2A  13  AD 
03  EE  26 
0B  10  06 
00  CE  23 
0B  10  06 
0D  CE  24 
AD  23  13 
46  90  04 
23  13  AO 
00  C9  46 
03  80  24 
FF  FF  00 
00  01  01 
J  9  00  AD 
AD  IE  13 
13  0A  0A 
20  13  18 
A9  FA  80 
29  01  F0 
BC  FE  A9 
7F  6D  00 
03  A9  00 


28  13 
06  AA 
A0  6C 
37  0C 
0C  85 
F0  11 
A5  FC 

04  91 
D0  D2 
40  45 
20  20 
4F  52 
20  20 
52  53 

00  12 
45  20 
20  50 
49  52 
4E  )2 
20  20 
20  20 
20  20 
20  20 
43  52 
9C  4D 
20  49 
20  45 
90  90 
90  IF 
20  31 
90  90 
9D  50 
49  52 
4£  00 

01  00 
B4  6A 
A3  E6 
E6  00 
EE  8B 
S4  45 

45  A7 
E6  C3 
E6  S3 
83  C6 

83  C6 
66  C6 
E2  Al 

05  EA 

46  81 
62  AO 

84  El 

05  C3 
E2  06 
E9  64 
24  AA 

00  73 
EC  C5 
Al  62 
46  0C 
D3  0C 

02  04 
A9  07 
D0  0F 
26  13 
13  AO 
EE  23 
13  AD 
EE  24 
13  60 
IS  7D 
C9  B9 
24  13 
90  04 
13  60 

01  01 
01  00 
IB  J  3 
SD  0  7 
0A  80 

6  9  04 
12  00 

03  4C 
IB  8D 
DC  A9 
80  IS 


68  4A  13 

A0  00  F6 
29  13  6E 
65  FB  F4 
FC  A0  B5 
91  FB  14 
18  69  8C 
FD  A4  C4 
FB  97  B5 
52  3A  F5 
20  20  8F 
45  3A  D6 
20  20  9F 
3A  20  B0 
9F  20  63 
4F  56  6F 

52  45  F9 
45  42  0F 
20  00  0A 
20  20  B0 
20  23  OF 
20  2  0  E7 
20  20  EF 
45  45  C9 
20  49  FB 
20  20  C7 
11  1]  F3 
90  90  02 

53  43  38 
11  11  2A 
90  90  EA 
52  45  IS 
45  42  88 
06  FF  AC 
4B  FF  F4 
01  A3  lA 
65  86  5A 
FB  42  8A 
6A  43  48 
65  00  09 
EB  C3  F7 
83  E2  61 
C3  E3  F8 
83  AA  2D 
45  65  57 
Al  E3  0C 
65  C4  11 
C2  82  B3 
05  E3  54 
81  CI  F5 
Al  82  El 
Al  El  36 
CI  00  81 
E2  81  7B 
24  A4  43 

89  46  9B 
B2  CI  BA 
Bl  00  C8 
59  0C  A4 
Ea  0C  F3 
03  CE  0A 
8D  27  DC 
A9  4B  48 
C9  0  7  El 

23  13  65 
13  4C  5F 

24  13  6C 
13  4C  73 
AE  20  61 
77  00  A8 

90  03  95 
18  7D  63 
C9  sg  06 
01  00  A4 
FF  FF  9F 
A9  01  28 
an  06  EB 
00  AO  4C 

10  00  DF 
80  FB  34 
AD  00  26 
31  EA  4A 

11  00  A5 
87  80  30 
03  A9  25 


0DD1 1  Bl 

0DD9!lC 

0DEliA9 

0DE9:1E 

0DF1:A2 

0DF9:15 

0E01t22 

0E09:26 

0Elli37 

0E19iAD 

0E21:13 

0E29;00 

0E31:00 

0E39:FF 

0E41:3a 

0E49:13 

0E51:I3 

0E59il3 

0E61ilD 

0E69:1E 

0E71:1F 

0E79ia5 

0E81:8D 

0E89:8D 

0E91raD 

0E99!4A 

0EAli20 

0EA9S0S 

0EB1:0D 

0EB9I05 

0EClll0 

0EC9!CE 

0ED1:13 

0EO9:A9 

0EE1:00 

0EE9:5A 

0EF1j99 

0EF9i38 

0F01iE0 

0F09:3g 

0F11:99 

0F19:F7 

0F21:88 

0F29:5C 

0F31iF9 

0F39iF6 

0F41i27 

0F49:1C 

0F51t07 

0F59:02 

0F61:00 

0F69:00 

0F71:84 

0F79:E0 

0F81I0A 

0F89:00 

0F91t00 

0F99t00 

0FAl!A9 

0FA9:00 

0FB1;00 

0FB9!B8 

0FC1;05 

0FC9:40 

0FO1;00 

0FD9i00 

0FE1:00 

0FE9i28 

0FF1:10 

0FF9:0B 

1001:00 

1009:00 

1011:00 

1019:00 

1021:00 

102  9:00 

10311 54 

1039tAB 

1041:40 

1049:54 

1051:00 

1059:00 

1061:00 

1069:00 

1071:80 


QD  lA 
13  BD 
26  6D 
13  A9 
C5  A2 
00  A9 
13  A9 
13  A9 
6D  2A 
23  13 

80  )A 
8D  IB 
8D  IC 
69  01 
E5  02 
E9  00 
E9  00 
30  18 
13  AO 
13  AD 
13  60 
02  AD 
ID  13 
IE  13 
IF  13 
4A  B0 

13  AE 
A2  00 
20  D3 
A2  07 
AD  26 
26  13 
60  48 

81  80 
B9  SA 
10  99 
00  37 
A9  00 
A0  3F 
66  10 
00  39 
A0  36 
8a  88 

39  8D 
07  E6 
07  A0 
00  68 
D0  A9 
80  26 
00  00 
00  00 
00  28 

14  8A 
00  2F 
14  00 
00  00 
00  00 
00  00 
00  01 
20  00 
00  20 
00  00 
A9  40 
00  00 
00  00 
00  00 
00  04 
00  00 
00  A2 
El  00 
14  AS 
00  00 
00  00 
00  00 
00  00 
00  00 

40  00 
E8  AA 
00  10 
00  00 
00  00 
00  00 
00  00 
00  00 
00  14 


D0  60 
23  13 

IB  13 
07  80 
F0  FC 
64  8D 
07  80 
07  80 
13  60 
30  lA 
13  AO 
13  AO 
13  4C 
85  02 
6D  lA 
80  IB 
80  IC 
18  60 
IE  13 
IF  13 
49  FF 
10  13 
AD  IE 
AD  IF 
60  AD 

12  20 

20  13 
8E  20 
0E  CE 
8E  20 

13  C9 
AD  26 
A9  80 
0B  04 
0F  99 
00  36 
B9  5A 
99  00 
B9  DA 
F7  A0 
99  3C 
A9  80 
10  F8 
62  39 
8E  PA 
03  B9 
10  F7 
00  8D 
00  60 
00  00 
00  10 
00  00 
00  52 
A0  00 
02  50 
00  00 
00  00 
00  01 

21  00 
00  20 
00  0  0 
B8  00 
0  5  A9 
00  00 
00  00 
00  00 
00  00 
6A  00 

14  00 
0A  E8 
00  05 
00  00 
00  00 
00  00 
00  00 
00  00 
10  40 

AB  Ea 

00  00 
00  00 
00  00 
00  00 
00  00 
00  01 
A0  00 


A9  00 

80  24 
A9  3C 

20  13 
A9  0F 

21  13 
25  13 
27  13 
20  10 
18  60 
IB  13 
IC  13 
57  0E 
AD  lA 
13  AD 
13  AD 
13  AD 
10  13 
69  00 
69  00 
18  69 

38  E5 
13  E9 
13  E9 

01  DC 

03  0E 
E0  08 
13  4A 

20  13 
13  4A 

02  F0 
13  80 
80  0B 
68  60 
00  35 
B9  5A 
12  99 

39  88 
12  99 
02  A9 

39  66 
99  03 
A9  0C 
A2  E4 
07  EB 
56  0F 
A9  08 
25  00 
02  00 
00  00 
00  00 
A9  04 
Aa  00 
2A  84 
00  00 
00  00 
00  00 

21  00 
00  20 
00  00 
A8  00 

04  B8 

40  04 
00  00 
00  00 
00  00 
09  00 
00  12 
2B  65 
00  12 
80  00 
00  00 
00  00 
00  00 
00  00 
54  00 
0A  A8 
40  0A 
54  00 
00  00 
00  00 
00  00 
00  00 
00  00 
12  EB 


80  97 
13  04 
80  03 
A5  36 
80  6C 
8D  F2 
8D  4D 
A9  7B 

00  53 
lA  60 
69  06 
69  AA 
49  SA 
13  36 
IB  9F 
].C  DE 

24  F6 
BD  23 
80  34 
80  CC 

01  B& 

02  A7 
00  F9 
00  4A 
4A  lA 
EE  FF 
D0  67 
B0  6C 

10  E4 
B0  50 

09  86 

25  Dl 
D4  58 
A0  37 
B9  99 

11  C8 
0  0  AB 
00  FC 
80  0E 
FF  C7 

10  A4 
39  66 
80  CB 
8E  48 
8E  68 
99  B8 
80  3D 
A9  2B 
02  35 
00  78 
60  60 
02  3D 
4B  A8 


00 

A9 

40 

8C 

00 

A7 

00 

AF 

01 

45 

00 

07 

20 

F0 

00 

76 

40 

81 

.A6 

24 

00 

08 

00 

EF 

00 

F7 

00 

A4 

80 

67 

00 

65 

Aa 

CA 

01 

65 

00 

29 

00 

31 

00 

39 

00 

41 

00 

9A 

AA 

32 

A8 

7E 

00 

04 

00 

93 

00 

71 

00 

79 

00 

81 

05 

96 

00 

78 
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1079 

I0B 

E8 

00 

0B 

Al 

00 

2A 

85 

F0 

1081 

100 

A2 

14 

12 

80 

10 

6A 

00 

07 

1089 

[00 

26 

00 

00 

09 

00 

00 

04 

FF 

1091 

00 

00 

00 

00 

00 

00 

00 

00 

Bl 

1099 

00 

00 

00 

00 

00 

00 

00 

00 

B9 

10A1 

00 

00 

00 

00 

00 

00 

00 

00 

CI 

10A9 

00 

00 

00 

04 

A8 

40 

05 

A9 

04 

10B1 

40 

05 

A9 

40 

04 

B8 

40 

00 

EF 

10B9 

QB 

00 

00 

B8 

00 

00 

A8 

00 

13 

10C1 

00 

he 

00 

00 

20 

00 

00 

20 

2D 

10C9 

00 

00 

20 

00 

00 

20 

00 

01 

6F 

10D1 

21 

00 

01 

A9 

00 

01 

21 

00 

83 

10D9 

00 

00 

00 

00 

00 

00 

00 

00 

F9 

10E1 

00 

00 

00 

00 

00 

00 

00 

00 

02 

10E9 

00 

00 

00 

00 

40 

00 

02 

50 

60 

10F1 

00 

0A 

14 

00 

2B 

B4 

00 

2B 

AD 

10F9 

E0 

00 

4A 

E0 

00 

52 

A8 

00 

7C 

1101 

14 

8A 

00 

04 

02 

84 

00 

00 

32 

1109 

A9 

00 

00 

28 

00 

00 

60 

00 

43 

1111 

00 

10 

00 

00 

00 

00 

00 

00 

37 

1119 

00 

00 

00 

00 

00 

00 

00 

00 

3B 

1121 

00 

00 

00 

00 

00 

00 

00 

00 

43 

1129 

00 

00 

00 

15 

00 

00 

15 

00 

C6 

11311 

00 

04 

00 

01 

2A 

A0 

01 

2B 

65 

1139 

EA 

AA 

2B 

EA 

AA 

2A 

A0 

01 

CF 

1141i 

04 

00 

01 

15 

00 

00 

15 

00 

01 

1149 

00 

00 

00 

00 

00 

00 

00 

00 

6B 

1151 

00 

00 

00 

00 

00 

00 

00 

00 

73 

1159 

00 

00 

00 

00 

00 

00 

20 

00 

7B 

11611 

01 

00 

00 

07 

40 

10 

07 

40 

05 

1169 

10 

01 

00 

01 

30 

28 

08 

80 

96 

1171 

38 

02 

80 

C0 

04 

A2 

03 

00 

FC 

1179 

98 

01 

0C 

AB 

01 

02 

A8 

80 

46 

llBl) 

04 

22 

B0 

03 

00 

60 

0C 

10 

IE 

1189 

00 

28 

C0 

40 

20 

01 

D0 

C0 

39 

1191 

01 

D0 

00 

00 

40 

00 

00 

00 

6A 

1199 

00 

00 

00 

00 

00 

01 

00 

40 

FF 

llAl 

07 

40 

40 

07 

40 

00 

31 

00 

34 

11A9 

04 

00 

0A 

20 

00 

0E 

00 

60 

C9 

llBl 

00 

02 

88 

C0 

42 

2A 

83 

00 

33 

11B9 

A8 

00 

30 

2B 

20 

02 

A8 

0C 

4F 

llCl 

10 

20 

80 

00 

00 

28 

03 

00 

AA 

11C9 

40 

30 

00 

00 

00 

10 

10 

83 

FB 

llDl 

00 

74 

A0 

00 

74 

00 

00 

10 

DB 

11D9 

00 

00 

07 

40 

40 

01 

00 

00 

E6 

llEl 

00 

00 

04 

30 

00 

00 

00 

00 

87 

11E9 

B0 

00 

00 

02 

80 

00 

00 

8A 

FA 

llPl 

B0 

00 

2A 

0C 

42 

08 

03 

02 

94 

11F9 

6D 

00 

C0 

20 

E0 

CA 

28 

03 

81 

1201 

D0 

AS 

00 

02 

00 

28 

30 

20 

F8 

1209 

02 

0C 

00 

40 

C0 

00 

00 

00 

3B 

1211 

10 

01 

03 

00 

07 

80 

00 

07 

IF 

1219 

00 

00 

01 

00 

10 

30 

00 

00 

9E 

1221 

00 

00 

00 

00 

00 

02 

88 

00 

SE 

1229 

02 

20 

00 

00 

32 

A0 

00 

0A 

74 

1231 

03 

00 

00 

80 

00 

82 

00 

02 

EA 

1239 

AS 

00 

30 

06 

E0 

3A 

00 

00 

26 

1241 

28 

02 

08 

40 

02 

02 

00 

20 

37 

1249 

00 

00 

00 

00 

30 

00 

10 

00 

0F 

1251 

00 

00 

00 

10 

00 

03 

00 

01 

83 

1259 

00 

40 

30 

00 

00 

00 

00 

08 

9B 

1261 

00 

00 

0A 

00 

00 

00 

08 

00 

D6 

1269 

100 

30 

2A 

00 

00 

A0 

00 

00 

61 

1271 

100 

0A 

00 

20 

02 

00 

80 

00 

2B 

1279 

t0B 

A0 

20 

00 

BB 

CC 

00 

00 

C6 

1281 

t2B 

00 

00 

20 

00 

02 

00 

02 

C5 

12B9 

100 

00 

22 

00 

00 

00 

00 

C0 

B2 

1291 

,00 

00 

00 

00 

01 

00 

10 

00 

DD 

1299 

100 

08 

30 

00 

28 

00 

00 

00 

07 

12A1 

:00 

00 

00 

02 

00 

00 

0C 

00 

FD 

12A9 

[00 

00 

0A 

A0 

00 

00 

80 

00 

lA 

12B1 

100 

00 

00 

02 

00 

00 

08 

00 

06 

12B9 

(00 

0A 

80 

00 

0B 

30 

00 

20 

A9 

12C1 

100 

00 

00 

00 

00 

00 

00 

00 

E5 

12C9 

.00 

00 

00 

00 

00 

00 

00 

00 

ED 

12D] 

:00 

00 

08 

02 

01 

00 

12 

00 

43 

12D9 

:00 

00 

00 

00 

3F 

FF 

FC 

5F 

51 

12EJ 

IFF 

FA 

SF 

FF 

FA 

6F 

FF 

F6 

3D 

12E9 

i6F 

FF 

F6 

77 

FF 

EE 

77 

FF 

C6 

12F1 

tEE 

7B 

FF 

DE 

7B 

F3 

DE 

7C 

40 

12F9 

100 

3E 

7B 

F3 

DE 

7B 

FF 

DE 

20 

1301 

■  77 

FF 

EE 

77 

FF 

EE 

6F 

FF 

D2 

1309 

!F6 

6F 

FF 

F6 

5F 

FF 

FA 

5F 

46 

1311 

IFF 

FA 

3F 

FF 

FC 

00 

00 

00 

CS 

1319 

tFF 

00 

00 

00 

00 

00 

00 

00 

3F 

BEFORE  TYPING  .  .  . 

Before  typing  in  programs,  please 
refer  to  "How  to  Type  In 
COMPUTE! 's  GAZETTE  Programs," 
elsewhere  in  this  issue. 


Euchre 

Article  on  page  16. 

SK  10  GOSUB1100tGOSUB1000!GOSU 
B2700iGOSUB1300tGOSUB100 
00 
SG  25  GOSU62000 
MS  30  IFTPO4THEN70 
OJ  35  POKE)t,12:POKEY,30:SYSPLT 
!PRINT"lBLK]N0i2  SPACES j 
BIDS"; 
XQ  40  POKEX,13!P0KEY, 23SSYSPLT 
1  PRINT "HAND 1 2  SPACES  J  CUM 
PED"; 
XG  50  GOSUBi400iFORI»0TO4!POKE 
X, 19 1  POKEY, 1*5+2 iSYSPLTi 
PRINTECS; iNEXT 
XP  51  DL-FNNP ( DL) I POKEX , 7 i POKE 
Y, 12 tSYSPLTj PRINTECS; 
DH  55  GOSUB1900:GOTO25 
FR  70  POKEX, 12 : POKEY, 30 iSYSPLT 
iPRINT'MBLKjTRUHP!  "C0$  ( 
TP)SS(TP); 
JJ  75  POKEX, 13iPOKEY,29iSYSPLT 
iPRINT"lBLKjBIDDERt"; sIF 
BD«"0THENPRINT"YOU"f  iGOTO 
90 
EF  80  PRINT"  P"RIGHT5(STR?(BD) 

.1); 
ES  90  PRINT"lBLOj"f !lFKU=0THEN 

135 
AX  100  IPDL>0THEm25 
KM  115  POKEX, IS  I  POKEY, 26  I SYSPL 
TiPRINT"lBLKJPICK  DISCA 
RD"; 
FD  121  GOSUB2200tPOKEX,15:POKE 
Y,28:SYSPLTiPRINT"lBLU} 
112  SPACES}"; tGOTO130 
XM  125  GOSUB2300 
JK  130  C(DL,F)=KC!S(DL,F}=KS!G 

OSUB1220 
QJ  135  POKEX,7fPOKEY,12iSYSPLT 

iPRINTEC?; 
MK  140  GOSUB2500!GOSUB3000:IF( 
PW{0)>9)OR(PW(1)>9)THEN 
300 
GS  150  POKEX, 21 t POKEY, 31: SYSPL 

TiN=0!GOSUB1465 
MP  151  POKEX, 21: POKEY, 35: SYSPL 

TiN=0jGOSUB1465 
AG  200  POKEX, 7; POKEY, 31 iSYSPLT 

iH=PMt0) (GOSUB14e5 
BS  205  POKEX, 7: POKEY, 35 tSYSPLT 

iN=PW(l) :G0SUB1465 
CD  210  DL-FNNP(DL) sGOSUB13SSsG 

OT025 
MP  300  WT=0:IFPW{1)>-10THENWT= 

1 
PE  305  POKEX, 7!POKEY,29+WT*6!S 

YSPLTiN=l!GOSUB1465 
EQ  310  POKEX, 7:POKEY,31+VJT*6iS 
YSPLT  i  N«PW( WT ) - 10 1 GOSUB 
1465 
KM  315  FQRDE=lTO2000tHEXT 
EM  320  GOSUB14S0! POKEX, 13: POKE 
Y, 30 ;S YSPLT SPRINT "I  RED} 
YOU"; 
DE  321  IFWT=0THENPRINT"  WINl"; 
PQ  322  IFWT=1THENPRINT"  LOSE"; 
PJ  325  POKEX,15!POKEY,11 iSYSPL 
TiPRINT"lRVSj IBLUjPLAY 


( SPACE  j  AGAIN  7 [ OFF } " ; 
BA  330  LO=ll!HI=12!XP-15jYP=23 

!GOSUB1910 
RG  340  IFAK=11THENRUS 
AB  350  PRINT" ICLRj"; 
GG  999  END 
JH  1000  POKE532Bl,15iPOKE532a0 

,6>REM  SETSCR 
AR  1005  PHINT"lCLR} IBLUJ"; 
CE  1010  FORI=lT024:PRINT"lRVS} 

128  SPACES} LOFFJ 

112  SPACES)"; sNEXT 
PB  1015  PRINT" IRVsi 128  SPACES} 

lOFF}lHOME}"f 
AC  1020  PRINTSPC(28)"lBLU}§AaC 

CCCCCCCCCgSj"; 
SO  1025  PRI NTS  PC ( 28 ) " B ( RED } 

[2    SPACES} EUCHRE 

(2  SPACES} lBLU}B"; 

{32  SPACES! 
DD  1030  PRINTSPC(28)"g2acCCCCC 

CCCCBXj"; 
XF  1031  PRINTSPC(28)"tRVSt 

{12  SPACES}"; 
XB  1032  PRINTSPC{2e)" 

[3  SPACES] POINTS 

(3  SPACES j  iOFF}"; 
CD  1035  PRINTSPC(2a)"{RED)  YOU 
{ BLU  i  tm §g| ( RED]COMP 

t SPACE}"; 
SB  1040  PRINTSPC(28)"lBLU] 

E5  Y3POE5  Y3"; 
GR  1045  F0RI=lTO4:PRINTSPC(28) 

"15  SPACES} gM3|Ga 

i 5  SPACES } " ; I  NEXT 
KQ  10S0  PRINTSPC(26)"E12  YS 

tS  DOWN}"; 
AJ  1051  PRINTSPC(2e)"il2  @3"; 
CP  1055  PRINTSPCC28)" IRVS] 

[3  SPACES }TRICKS 

13  SPACES} lOFFi"; 

AC  1060  PRINTSPC(28)"IRED}  YOU 
[BLU}EM3iG3lRED}COMP 

} SPACE } " ; 
KE  1065  PRINTSPC{28)"tBLU} 

§5  Y3POE5  Yg"; 
HR  1070  FORI-lT03:PRINTSPCC2a) 

"15  SPACESJlMigGa 

i 5  SPACES } " ; : NEXT 
DM  1075  PRI NTS PC (28)" 

[5  SPACES}iM3iG8 

14  SPACES]"; 

ER  1080  POKE2023,32:POKE56295, 

6 
XS  1081  POKEX, 7iPOKEY,31:SYSPL 

TtGOSUB1465:POKEX,7!PO 

KEY, 35 iSYSPLT I GOSUB146 

5 
SB  1082  POKEX, 21 ! POKEY, 31; SYSP 

LT:GOSUB1465! POKEX, 21: 

POKEY, 35 :SYSPLT!G0SUB1 

46  5 
QE  1090  RETURN 
SS  1100  DIM  C1$(7),C2$<7),ES(3 

),DC(23),DS(23),C(3,4) 

,S{3,4),COS(3),CX(3),C 

Y(3) 
MS  1101  DIM  OB(6),0U{6},PU(6), 

MS(6,3),GA<6),ME?(15), 

PX(3),PY(3),NM5{9,2),N 

F(6) 

SS  1102  DIM  CLC7,3) 

OS  1108  X-RND(-TI) 

GO  1109  FORI=0TO3!READSS(I),CO 

S ( I )  I  NEXT 
EF  1110  DATA"Z","tRED]","X"," 

IBLK]"",  "S"  ,  "  ]  RED]™",  "A" 

,"IBLK}" 
PE  1111  FORI=0TO6!READNF{I);NE 

XT ! DATA4 ,0,1,2,3,4,0 
JH  1115  FORI'=0TO7tREADCl$(I),C 

25(1) iNEXT 
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GQ  1120  DATA" 9  ","  9","10","10 
","J  ", "  J","Q  ", "  Q", 

XJ  112S  DATa''J  ","  J",  "J  ","  J 

II 

JS  1130  PORI=2SlT02S4iREADQtPO 

KEI.QiNEXT 
RK  1135  DATA24, 76, 240,255 
EM  1140  PLT=251iX-781iY=782!SX 

=53248iBL5=" 

112  SPACES)" 
GQ  1145  EC5="14  SPACES  J  I  DOWN) 

14  LEFT]"5EC5-"IRVSJ"+ 

EC$+EC5+EC$+EC5+EC5+" 

iOFFj" 
KS  1150  FORJ-0TO3!FORIs0TO5 
AP  1155  DC(J*6+I)-I:DStJ*6+l)= 

J 
RP  1160  NEXTIfNEXTJ 
EK  1161  F0RI=eiT03jREADPX(I),Py 

(1)1  NEXT ! DATA13 ,12,7,7 

,1,12,7.17 
PD  1165  FORI=0TO3!READCX(I),Cy 

(I) iNEXT 
CP  1170  DATA17,li,i0,4,3,ll,10 

,21 

SQ  1171  FORI»0TO2:FORJ-0TO9:RE 
ADNM$(J,I) iNEXT iNEXT 

BR  1172  DATA"(RVSi  EF3","iRVSJ 
gK3tOFP}EK3","lRVSJEl3 
","iRVSJEI3  •',"|2  Ki" 
,"tRVSJ  gir',"lRVSJ 

Bl3","lRVSJgl3  "," 

iRVSi  iF3","lRVSj|D3  " 
BX  1173  DATA"  |Ka","lRVSJgK3 
lOFFllKi","  i?l3","gl3 
I SPACE  J", "iRVS|g2  Ca", 
"il8  ","  iF3","tOFPj 
{RVSJ  ","  6Fg","iC3  " 

DH  1174  DATA"  tRVSj gVi" , " I RVS } 
6K3[OFFJEK3","  lOFFj 
El3","lOFF]II3fRVS)  ", 
"[OPFj  gK3", "tOFF}gI3 
iRVS)  ","  §Va","{0FF3 
ISPACEjlRVS]  ","  iV3", 
"tOPPjil3[RVSj  " 

EA  1175  DEP  PSNP(X)a((X+l)/4-I 
NT((X+l)/4})*4 

HH  1176  FORI=0TO5;READCP{I) :NE 
XTiDATAl, 1,8, 1,2,-1 

QA  1177  PORI=0TO13:READHES(I) t 
NEXT 

XX  1178  DATA"PASS{4  SPACES}"." 
ORDER  UP", "PASS 
[3  SPACES]", "PICK  UP", 
"12  SPACES J  PASS 
14  SPACES}" 

EM  1179  DATA"Z  DIAMONDS", "X  CL 
UBS {3  SPACES  1 ", "S  HEAR 
TS I  2  SPACES  i " , "A  SPADE 
Si  2  SPACES}", "NORMAL 
[4  SPACES}" 

HH  1180  DATA"AGGRESSIVE","YES" 
, "NO  ","YES" 

JD  lias  F0RI=lTO3!READMX(I),Hy 
( I ) 1  NEXT ! DATA7 , 2,1,10, 
7,19 

BQ  1186  PORI=0TO6!READOB(I),OU 
(I),PU(I) ,MS(I,0},MS(I 
,1),MS{I,2),MS(I,3),GA 
(1) iNEXT 

FF  1187  DATA99,99,99,99,99,99, 
99,99 

AP  1188  DATA99,99,99,99,99,99, 
99,99 

JX  1189  DATA99,99,14,14,14,13, 
13,99 

PQ  1190  DATA20, 12,08,08, 08,08, 
07,19 

CK  1191  DATA14,00,00,00,00,00, 
00,16 

ES  1192  DATA00,00,00,00,00,00, 


00,14 

JB 

1455 

PRINT" 112  SPACES } " ) iHE 

AK 

1193 

DATA00 , 00 , 00 , 00 , 00 , 00 , 

XT 

00,00 

QR 

1460 

RETURN 

XX 

1199 

RETURN 

AS 

1465 

PRINT " I  RED ) " ; : FORI s0TO 

ER 

1200 

IF { S=TP ) AND ( C-6 )THENS" 
S+2iS=(S/4-rNT(S/4>)*4 

2  t  PHINTNM? ( N , I ) " ( DOWN ) 
12  LEFT)"; : NEXT  SPRINT" 

CH 

1205 

PRINTC05(S)C15(C)" 

lOFFj [BLU)"; 

12  SPACES H DOWN] 

DO 

1470 

RETURN 

(4  LEFT)"S5(S)" 

KE 

1500 

FORI-0TO3tSP[P,I)-FC{P 

13  SPACES H DOWN  J 

AND253) !NS(P, I )=0iNEXT 

14  LEFT}i4  SPACES) 

HM 

1505 

FOR1=0TO4 ! S=S I P , I ) i  C=C 

iD0WNJl4  LEFT) 

[P,I):SP{P,S)=SP(P,S)+ 

13  SPACES)"S5(S)" 

CP(C) :NS(P,S)=NS(P,S)+ 

)D0WN))4  LEFT) 

1 

{2  SPACES )"C2$(C), • 

JH 

1510 

IFC=2THENS=S+2 : S= ( S/4- 

XQ 

1207 

PRINT" [BLU)"; 

INT(S/4) )*4!SP(P,S)=SP 

JM 

12)0 

RETURN 

( P , S ) +6 : NS ( P , S )=NS ( P , S 

AK 

1220 

F0RU=eTO4  t  POKEX ,19: POK 

)+l 

EY,U*5+2jSYSPLT 

XA 

1515 

IFC».5THENFORJ=0TO3  !  SP  ( 

AB 

1225 

C=C(0,U) iS=S(0,U) iGOSU 

P,J}=SP(P, J)+4:NEXTJ 

B1200:NEXTU 

OJ 

1520 

NEXTI 

CQ 

1230 

RETURN 

SE 

1525 

SS=0:FORI=0TO4iIFNS(P, 

XH 

1250 

FORI=0TO23.-J«INT(RND{1 
)*24) 

I j-aTHENSP ( P , I )=0 ! SS=S 
S+1 

HA 

1255 

T=DC(I)iDC{I)-DC{J)!DC 
(J>-T 

BJ 

1530 

NEXT:FORI=0TO3!SP(P,I) 
=SP(P,I)+SS!NEXT 

FH 

160 

r-DS(I)iDS(I)=DS(J) jDS( 

EC 

1535 

IFPODLTHEN1550 

J)=T 

PX 

1540 

IFKC>«5THENSP(P,KS  )=SP( 

HC 

1265 

NEXT 

P,KS)+4 

DE 

1270 

FORJ=0TO3tFORI=0TO4 

PP 

1545 

SP{P,KS}-SP{P,KS)+CPlK 

AG 

1275 

C{J,I)=DC(J*5+I):StJ,I 

C)  :NS(P,KS)=NS(P,KS)+1 

)=DS(J*5+I)!NEXT;NEXT: 

ED 

1550 

RETURN 

KC=DC(20):KS=DS(20) 

BM 

1600 

LO="0  1  HI  =1  i  XP=13  :  YP=10  t 

CA 

1280 

RETURN 

GOSUB1910 

SD 

1300 

GOSUB1450tPOKEX,12iPOK 

RX 

1605 

IF  AN=1THENTP=KS 

EY,2B!SYSPLT 

CE 

1610 

RETURN 

DP 

1305 

PRINT" I BLK) FIRST 
12  SPACES)BLACK"; 

AB 

1615 

POKEX, 1 3 ! POKEY, 10 ! SYSP 
LTsPRINT" 1RVS)L0NEHAND 

EX 

1310 

POKEX, 13  I  POKEY, 29 1 SYSP 

7 1  OFF ] " ! 

LT 

PJ 

1616 

LO=12:HI=13;XP=13tYP=2 

GB 

1315 

PRINT"JACK  DEALS"? 

0!GOSU019i0:LH=0 

XD 

1320 

GOSUB1250:DL=€!CC=0 

SA 

1618 

IFAN=13THENLH=1 : POKEX, 

SD 

1325 

POKEX, CX(DL) « POKEY, CY( 
DL) iSYSPLT 

MX(BD)+2!P0KEY,MY(BD) : 
SYSPLTj PRINT "IRVS) LONE 

EP 

1330 

C=DC(CC) !S=DS{CC)iGOSU 

HANDlOFF)"; 

B1200 

CB 

1619 

POKEX, 13 1  POKEY, 10 [SYSP 

PQ 

1331 

PORDE=lTO500iNEXT 

LTsPRINT" I RVS) 

MH 

1335 

IP(DC{CC)=2)AND((DS{CC 

19  SPACES)) OFF)"; 

)AND253)=l)THENGOT013S 

HH 

1620 

RETURN 

5 

SP 

1625 

LH=0!IFSP(P,TP)>GA(NS( 

JC 

1336 

POKEX , CX ( DL ) : POKEY, CY ( 

P,TP))THENLH='l 

DL) tSYSPLT 

JH 

1630 

RETURN 

RC 

1337 

FORDE=1TO100 :NEXT 

EX 

1650 

IFFNNP ( FNNP ( P ) ) =DLTHEN 

MS 

1340 

PRINTEC5 ! ;CC"CC+1 tDL-F 
NNP(DL):GOT01325 

G0SUB1625:F=LH:G0TO168 

5 

JK 

1355 

GOStJB1450t  PRINT  "IBLK)" 

GE 

1654 

F=0  t IFKC=2THENGOTO1660 

r iPOKEX,12!POKEY,29:SY 

HF 

1655 

IFSP(P,KS)>OU(NS(P,KS) 

SPLT 

)THENF=1 

RM 

1356 

IFDL=0THEN1370 

HS 

1660 

IFSP(P,KS)>OB(NS(P,KS) 

HH 

1360 

PRINT"  P LAYER" DL; 

)THENF=1 

RE 

1362 

POKEX, 13 . POKEY, 31 iSYSP 
LT 

AP 

1665 

IF(F=0)ORtP<>FNNP(DL)) 
THEN1685 

AG 

1365 

PRINT"DEALS" ? 1GOT01375 

XJ 

1670 

SB-CP (KC ) t IFKC-STHENSB 

KX 

1370 

PRINT"Y0URl2  SPACES }DE 

=3 

AL"j 

CX 

1675 

FORI=0TO3 : IFI OKSTHENI 

PR 

1375 

GOSUB1400 

FSP(P,I)>=(SP(P,KS)-SB 

EB 

1376 

POKEX, CX ( DL )! POKEY, CY( 

)THENF=0 

DL) :SYSPLT!PRIKTEC5; 

BR 

1680 

NEXT 

JG 

1380 

RETURN 

DX 

1685 

IFF=1THENTP=KS 

JM 

1400 

POKEX,15iPOKEY,28!SYSP 

XX 

1699 

RETURN 

LT 

SA 

1700 

L0=2 :HI=3 :XP=13:YP=11 i 

EE 

1405 

GOSUB6000  t  PRINT " 1 BLK ) 

GOSUB1910 

iRVSj  HIT  BUTTON  (OFF) 

QH 

1705 

IF  AN=3THENTP-KS 

"j iPOKE19S,0 

QM 

1710 

RETURN 

RR 

1410 

GETWTS  .  IF(WT5  OCHR?  1 13 
))AND(PEEK(56320)<>111 

GG 

1750 

IFSP(P,KS)>-PU(NS(P,KS) 
)THENTP=KS 

)THEN14i0 

AB 

1755 

RETURN 

DA 

1415 

PRINT "lBLU)";iGOSUB145 
0 

KE 

1800 

L0=4 !HI=8 :XP=13 :YP=9  tG 
OSUB1910 

HP 

1430 

RETURN 

AS 

1801 

IFAN-S=KSTHEN1800 

EM 

1450 

F0RR=12T016 ! POKEX, R: PO 

AQ 

1B05 

IFAN>4THENTP-AN-5 

KEY,28!SYSPLT 

HD 

1810 

RETURN 
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KA   J.850   DF">0iFORI=0TO3jIFI-KST 

HEN186S 
GQ  ieS5  IFSP(P,I)-MS(KS(P,IKP 

S)<DFTHENia65 
CS  1860  DP=SPtP,I)-MS(NS(P,I}, 

PS) iTP=I 
RK  1865  NEXT 
KH  1870  ElETURN 
QH  1900  FORI'=lTO3iFORJ«0TO2iPO 

KEX, MX { I ) +J ! POKEY , MY ( I 

) iSYSPLTi PRINT" IRVSJ 

18    SPACES j"; 
PC    1905    NEXT: NEXT: PRINT" I OFF}" 

PJ    1907    RETURN 

ED   1910    POKE  1 98 , 0 ! AN=LO 

BD   1915    Xl=XPiyi=YP:FORI=LOT0H 

I:PRINT"lRVS] I BLU ) " ; 
BJ    1920    IFIOANTHEN1925 
JC    1921    IF(AN=L0)0R(HI-L0=1)TH 

ENPRINT" IREDJ " f !GOTOi9 

25 
JM    1922    PRItJTC05(I-L0-l}f 
HJ    1925    P0KEX,X1: POKEY, yl:SySP 

LT!PRINTME5(I)  ;  !X1-'X1  + 

liNEXT 
BH  1930  GETR5iDR=PEEK(563  20) !l 

FNOT^RS-^'MUPJ  ")OR<DR= 

126))THENGOTO1940 
RH  1935  AN=AN-1 I IFAN<LOTHENAN= 

HI 
PJ  1940  IFNOT((R5="IDOWN]")OR( 

DR=125))THENGOTO1950 
GX  1945  AN=AN+1:IFAN>HITHENAN= 

LO 
SB  1950  IFNOT({R5=CHR$!13)}OR( 

DR=111) }THENGOT01915 
SG    1955    Xl=XPiyl=YP! PRINT" 

I RVS ) I BLU } " ; : FORI=LOTO 

HI 
HG    3,960    PO KEX,  XI:  POKEY,  YlsSYSP 

LT:PRINTLEFT5(BL?,LEN( 

ME?  (LO) )  )  f  :X1=XH-1  sNEX 

T 
JK    1965    PfiINT"lOFFj"r iRETURN 
FQ    2000    GOSUB1250!GOSUD1220:P= 

FNNP(DL) :TP=4:BD=0sKU= 

0 
MK   2005    POKEX, 7:POKEY,12:SySPL 

T :  C=KC : S=KS : GOSUBl 200 
HX    2007    IFDL<>0THENPOKEX,MX(DL 

): POKEY, MY (DL)+1:SYSPL 

T I  PRINT " i  RVS  j  DEALER " 
BA  2010  GOSUB1500 
XS  2015  IFP=aTHENGOBUB 16001  GOT 

02040 
BH  2016  IFABS(P-DL}<>2THEN2020 
BS  2017  G0SUB1625:IFLH=1THENTP 

=KS:GOTO2025 
RG  2020  GOSUB16S0 
XA  2025  POKEX,MX(Pj:POKEy,My(P 

) : S YS  PLT : PRINT " J  RVS  J " ; 
RH  2030  IFTP=4THENPRINT" 

12  SPACESjPASS"iGOTO20 

40 
FD  203  5  BD=P: PRINT "ORDER  UP"r 
AF  2040  P=FNNP(P) !lF(P<>DL)AND 

(TP=4)THEN2010 
KM  2045  P=DL:GOSUB1500tIFTP<>4 

THEN2105 
RM  2050  IFDL=0THENGOSUBl?00tGO 

TO2070 
PS  2055  GOSUBl 750: POKEX, MX (DL) 
!POKEY,MY(DL)lSySPLT:P 

RINT"tRVSJ IBLUJ"; 
CQ  2060  IFTP-4THENPRINT"  TURNE 

D  { DOWN  j  I  5  LEFT  J  DOVW  "  ;  : 

GOTO2070 
AJ  2065  BD=P: PRINT"  PICKED 
I  DOWN  J U  LEFT ] UP"; 
HM  2070  FORDE-1TO2000:NEXT 
HR  2071  IFCBD=0)AND(TP<>4)THES 
2105 
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QE  2072  POKEX, 7 1  POKEY, 12 sSYSPL 

TiPRINTECSr  IIFTP0  4THE 

N2105 
QC  2073  GOSUB1900!PS=0 
HX  207S  P=FNNP(P) 
JS  2080  IFP»0THENGOSUB1800:GOT 

02090 
PK  2085  GOSUai8S0!POKEX,MX(P)i 

POKEY, MY(P)!SYSPLT:PRI 

NT  "  {  RVS  )  "  ; 
RS  2066  FORDE=lTO600tNEXT 
FC  208B  IFTP=4THENPRINT" 

12  SPACES  J  PASS "; !G0TO2 

090 
RS  2089  BD=P!PRINTRIGHTS(ME5(T 

P+5),e)r 

HD  2090  IF(P<>DL)AND(TP-4)THEM 

PS=PS+lsGOTO2075 
PK  2100  GOTO2109 
KK  2105  raj-l:IF(BD=0}AND(DL=2) 

THENLH=1:GOTO2120 
DR  2109  IFTP=4THEN2140 
RA  2110  IF(LH=1)AND(BD<>0)THEM 

2120 
DP  2111  IFBD=0THENGOSUB1615[GO 

TO 2 140 
RS  2112  GOSUB1625 
MA  23,15  IFLH=0THEN2140 
EX  2120  POKEX, MX(BD)+2: POKEY, M 

Y(aD) :SYSPLT: PRINT" 

lRVSjLONEHAND"f 
CF  2140  PRINT"{OFFi"; >F0RDE=1T 

02000 :NEXT 
DX  2145  GOSUB1900 
PG  2150  RETURN 
DF  2200  POKE198,0iF— 1 
GE  2205  F=F+ltIFC(0,F)"-lTHEN2 

205 
PQ  2210  G=F:POKESX-t-l,  214:  POKES 

X, (F*5+3)*8+22:P0KE532 

69,1 
AG  2215  POKESX+1,214jPOKESX, (F 

*5+3)*8+22 
QS  2220  GETR$:DR=PEEK(56320) ;I 

F( RS="" )AND(DR=127 )THE 

N2220 
ES  222  5  G=F:IFNOT((R$="lLEF"r' 

)0R( DR=123 } )THEN225a 
XF    2230    F=NF(F)  :IFC(0,F)<e'THEN 

2230 

CA  2245  G0T0221S 

BP  2250  IFNOT((R$="lRIGHTi")0R 

(DR-119) )THEN2275 
DA  2255  FaNF(F+2) iIFC(0,F)<0TH 

EK2255 
QD  2270  GOT02215 
FH  2275  IFNOT((R5=CHRStl3))OR( 

DR=111) )THEN2215 
KB  2280  RETURN 
DG  2300  FORI=0TO4:IF(S(P,I)=TP 

) AND( C ( P , I ) =2 ) THENC ( P , 

I)=7:GOTO2310 
HK  2305  IF((S(P,I)AND253)-[TPA 

ND253))AND(C(P,I)=2)TH 

ENC(P,I  )<-6!S(P,I)-TP 
SA  2  310  NEXT 
AH  2315  FORI=0TO4:FORJ«0TO3!lF 

StP,J)>S(P,J+l)THENGOT 

02331 
QE  2320  IFS(P,J)=S(P,J+1)THENI 

FC ( P , J ) >C ( P , J+1 ) THENGO 

T02331 
GC  2325  TsC(P,J>iC(P,J)=»C(P,J  + 

1)  iC(P, J+1)=T 
KP  2330  T=S(P,J) iS<P,J)=S(P,J+ 

1  )  :S(P, J+1  )=T 
XC  2331  NEXT 
SX  2335  FORI=0TO4:PT(l)=0lIPSt 

P,I )=TPTHENPT(I )=C(P,I 

)+10:GOTO23S0 
SF  2340  IFC(P,I  )»5THENPT(I)  =  9: 

GOTO2350 


QC  2345  IF(S(P,I)<>S(P,NF(I) )) 

AND {  S  ( P ,  I )  <> S  ( P ,  NF  ( I +2 

) ) )THENPT(I )=-l 
CE  2350  NEXT 
XM  235  5  Ls99iFORI=0TO4:IFPT(I) 

<LTHENF-I:L=PT(I) 
SQ  2360  NEXT: RETURN 
MJ  2500  FORI=0TO3:FORJ="0TO3!NS 

(I,J)=0:NEXT:FORJ=0TO4 

!IFC{I, J)<>2THEN2515 
QH  2505  IFStI,J)=TPTHENC(I,J)= 

7:GOT02515 
RD  2510  IFABS(S(I, J)-TP)=2THEN 

C(I,J)=6:SII,J)"TP 
GQ  2515  NS(I,S(I,J))=NS(I,S(I, 

J) )+lt NEXT: NEXT 
RX  2520  RETURN 
KJ  2700  PRINT"  (HOME)  12  IX)WN] 

12  RIGHT) t RVS} PARTNER? 

[OFF)";  sLO=9:HI=.10:XP= 

2tyP=12:GOSUB1910 
PK    2705    FC(0)=0iIFAN=10THENFC( 

0  )=2 
XM    2710    PRINT" IHOME) 12    DOWN) 

12    RIGHT)! RVS) OPPONENT 

SJtOFF)";  :LO'=9!l!I=10:X 

P=2:YP=14t GOSUBl 910 
EG  2715  FCll)=0iIFAN=10THENFC( 

1)»2 
GG  2720  PRINT" I HOME) i 2  DOWN) 

{2  RIGHTJIRVSJ 

(10  SPACES} (OFF) "r :RET 

URN 
FS    3000    FORI=0TQ7:FORJ=0TO3iCL 

( I , J ) =0 :NEXT : NEXT  I CL{ 2 

,TPAND253)=) 
FP    3001    FORI=0TO3:SL(I)-0:NEXT 
XX    3002    LD-FNNP(DL) :DM=4;TR(0) 

=0!TR(l)=0iIFLH=0THEN3 

015 
QR    3005    IFBD=2THENFORI=0TO4!PO 

KEX, 19: POKEY, 1*5+2 r SYS 

PLT:PRINTEC$; sNEXT 
JE    3010    DM=FNNP(FNNP(BD) ) 
BB    3011    IFLH=lTl!ENIFLD=DM'mENL 

D=FNNP(LD) 
EJ    3015    FORTK=0TO4:P=LDtPS=0:T 

L=0 I IFDM=PTHENP=FNNP ( P 

) 
SP    3020    GOSUB3500:WP=P-.IFLH=1T 

HENPS=PS+1 
DX    3021    SL(S(P,PC(P)) J=l 
PP    3025    IFS(P,PCtP) j^TPTHENTL- 

1 
PH    3030   F0RI-lT03;P"FNNP{P)lIF 

PaDMTHEN3060 
RS    3035    PSt'PS+l:GOSUB3500!lFTL 

=0THEN3050 

XF  3040  IFS(P,PC{P))=TPTHENIFC 
(P,PC(P))>C(WP,PC<WP) ) 
THENWP=P 

JD  3045  GOTO3060 

GS  3050  IFS(P,PC(P))=TPTHEMWP" 
PjTL=1:GOTO3060 

CK  3055  IFS(P,PC(P))=S(WP,PC(W 
P))THENIFC(P,PC(P) )>C( 
WP,PC(WP))THENWP=P 

DF    3060    NEXT :FORDE=1TO400: NEXT 

KQ  3065  POKESX+3, (PX{WP)+1)*8+ 
52:POKESX+2. (PY(WP}+1) 
*8+19:P0KE53269,2 

GX  3071  FORDE=1TO3000:NEXT!LD= 
WP!MT=WPAND2  53 !TRCWT)= 
TR(WT)+1 

HG  3072  POKEX, 21: POKEY, 31+4 *WT 
:SYSPLT:N=TR{WT):GOSUB 
1465:POKE53269,0 

QF  3075  FORI=0TO3:POKEX,PX(I): 
POKEY, Py(I)!SYSPLT:PRI 
NTECSt :C(I,PC(I) )=-l :N 
EXT : NEXT 

KJ    3078    POKEX, MX (BD) +2: POKEY, M 


Y(BD) iSySPLTt PRINT" 
iRVSji9  SPACES} I  OFF J"; 
DR  3080  BT=BDAND25  3:POKEX,15!P 

OKEY,28!SYSPLT 
XA  3085  PRINT'MBLKJ"; :IFTR(BT) 

<3THEN3i0S 
JP  3086  IFTR(BT)<5THEN3097 
AB  30B7  PW(BT)=PW(BT)+2+LH*2 
CP  3090  IFBT-BTHENPRINT" 
U  SPACES) YOU 
12  SPACES iwom DOWN} 
19  LEFTJALL  TRICKS"; :G 
OTO3200 
RB  3095  IPBT'=>1THENPRINT"C0MPUT 
ER  WON {DOWN J  111  LEFTjA 
LL  TRICKS"; 1GOTO3200 
FQ  3097  PW(BT)=PW{BT)+1 
EA  3100  IPTR(0)>2THENPRINT"YOU 

WOK  HAND"nGOTO3200 
FP  3105  IFTR(1)>2THENPRINT" 
12  SPACESJCOMPUTER 
f DOWN} 13  LEFT) WON  HAND 
"ltGOTO3200 
SR  3108  PW(l-BT)'=PW(l-BT)+2 
GE  3110  IFTR(0)<3THENPRINT"YOU 
'VEl2  SPACES) BEEN 

[DOWNH10  left}euchred 
!":GOTO3200 
QM  3115  IFTR(1)<3THENPRINT" 
{2  SPACESJCOMPUTER 
{DOWN) [8  LEFT)EUCHRED1 

GH  3119  FORDE=1TO4000jNEXT 

EG  3200  FORDE=1TO4000iNEXT!PRI 

NT"{BLU}"; 
GJ  3205  RETURN 
JJ  3500  IFP>0THEN3S09 
EG  3501  P0KEX,15i POKEY, 28 iSYSP 

LT 
GK  3502  PRINT"IBLK}IRVS}  YOUR 

(2  SPACES} PLAY  [OFF} 

EBLU)"; tGOSUB2200 
MA  3503  LS=S<LD, PC(LD) ) :IF(PS= 

0)OR(S(P,F)-LS)OR(NS{P 

,LS)=0)THEN3507 
QM    3504   GOSUB2215iGOTO3503 
AF    3505    POKE53269,0iPOKEX,19:P 

OKEY, F*  S+2 ! SYSPLT i PRIN 

TEC$; !GDTO3530 
PE   3507    POKEX,15:POKEY, 2S!SYSP 

LT I  PRINT"}} 2    SPACES}" 
BG    3508    POKE53269,0jPOKEX,19:P 

OKEY,F*5+2  5SYSPLTiPRIN 

TEC5; 1GOTO3530 
FJ  35ef9  IFTK<5THEN351S 
ER    3510    FORK=0TO4iIFCtP, J)>-1T 

HENF=>I 
RH    3512    NEXT!GOTO3530 
MH    3515    OM(PS+1)GOSUB4000,4100 

,4200,4200 
OF    3530    PC(P)=FiP0KEX,PX(P}:PO 

KEY, PY(P) 1 SYSPLT :C=C(P 

,F) !S=S(P,F):GOSUB1200 
RG    3535    NS(P,S(P,F))-NS{P,S(P, 

F))-i:CL{C(P,F),S{P,F) 

)  =  1 
MX    3540    RETURN 
SH    4000    IFK0T(NS(P,TP)=5-TK)TH 

EN4015 
GR    4005    SP=TPiGOSUB5200!lFF=lT 

HENGOTO5150 
MQ   4010   GOTO 5 160 
BA    4015    IFN0T((LE1=1)AND(BD>=<P)) 

THENGOTO4030 
SF    4020    IFNS(P,TP)>0THENSP-TPt 

GOTO5150 
RR  4025  GOTO5050 
QF   4030   GOSUB5000:IF(F"1)AND(A 

BS(BD-P)=2)THBMSP=TP!G 

OTO5150 
CH  4035  GOSOB52  50!lFNOT((F-l)A 

ND ( P -BD } ) THENGOTO  5050 


CF  4040 

FQ  404 S 

JC  4050 
HE  4100 

RJ  4105 

DH  4110 
XR  4115 

SB  4120 
PD  4125 

QC  4130 

XM  4135 

EB  4140 
SA  4200 

MJ  4201 
KH  4205 

R5  4210 
PR  4215 

GS  4220 
JK  4225 

DX  4230 
BH  4235 

XG  4245 

XA  4250 
RQ  4255 

MR  4260 
BS  4270 

KA  4275 
HO  4280 

XP  4285 

HG  42  90 

PD  4300 

FQ  4305 
GE  4310 

BP  4315 

MQ  43  20 
BQ  5000 

BA  5005 
OR  5050 


BO  5055 
CS  5060 


SB  5065 
BQ  5070 
GK  5100 
SD  5105 
HH  5110 


EJ  5115 
PH  5120 
FX  5125 
DG  5126 
XP  5130 

FH    5131 


GOSUB52001 IFF-ITHENSP" 

TPiGOTO5150 

IFNS(P,TP)>2THENSP=TPt 

GOTO5160 

GOTO 50 50 

IFNS(P,S{LD,PC(LD>))=0 

THEN4115 

GOSUB5300 : SP=S ( LD ,  PC ( L 

D) ) tIFF"lTHEN5]S0 

GOTO5160 

IFNS  !P,TP)'=5-TKTHENSP» 

TPiGOTO5160 

IFNS {P, TP)=0THEN5100 

IFCCLD,PC(LD) )=5THENSP 

=TPiGOTO5160 

IPBD<>PTHENSP=TPiG0TO5 

160 

GOSUB52  50 : IFF=1THENSP- 

TP|GOTO5160 

GOTO 5 100 

IFNS{P,S{LD,PC(LD))  )=.0 

THEN4235 

SP=S ( LD , PC ( LD ) ) 

IF(SP<>TP)AND(TL=1 )TBE 

N5160 

IFABS(WP-P)<>2THEN4225 

GOSUB5300 ! IFF=1THENG0S 

UB5350i  IFF=^THEfJ5150 

GOTOS160 

GOSUB5300 : IFF-1THEN515 

0 

GOTO 5 160 

IFNS(P,TP)<5-TKTHEN42  7 

0 

SP"TPtlFABS(WP-P)=2THE 

N5160 

IPTL-0THEN5160 

GOSUB5300 : IFF=1THENG0T 

05400 

GOTO5160 

IFNS I P,TP)=0 THENGOTO 51 

00 

IFABS(WP-P)<>2THEN4310 

IF(TL-l)OR(PS=3)THEN51 

00 

IFC(WP,PCCWP))!-5THEN51 

00 

IFC  <  WP , PC ( WP } } <  4THENSP 

=TP:GOTO5150 

GOSIIB5250 :  IFF=1THENSP= 

TP!GOTO5160 

GOTO 5 100 

IFTL»0THENSP"TP:GOTO51 

60 

GOSUBS300 : IFF=1THENSP" 

TPiGOTO5400 

GOTO5100 

F=0!FORA=0TO4iIFC(P,A) 

>5THENF=1 

NEXT: RETURN 

F= -1  :  POHA='0TO4 : 1 F  ( SL  { S 

CP,A)>=0)AND(S{P,A)<>T 

P ) THENIFC ( P , A  }  =5THENF= 

A 

NEXT!lFF>-lTHEN5070 

LC=— 1 1  FORA=0TO4  1 1 PS ( P , 

A)<>TFTHENIFC(P,A)>LCT 

HENLC=C(P,A):F=A 

NEXT 

RETURN 

IFNStP,TP)>0THEN512  5 

SP--1:PORA"0TO4 

IFS(P,A)<>TPTHENIFCC(P 

, A ) -5 ) AND ( NS ( P , S ( P , A ) ) 

>1)THENSP=S(P,A) 

NEXT:IFSP>-1THEN5160 

GOTO  51 80 

V=4!F=-l!FORA=0TO4 

1PS(P,A)=TPTHEN513S 

IF(NS(P,StP,A))<>l)OR( 

SL{S(P,A))-1)THEN5135 

IF(C(P,A)>=0)AND{C(P,A 


)<V)THENV=CIP,A):F=A 
HJ    5135    NEXTiIFF— 1THEN5180 
FA    5140    RETURN 
BJ    5150    IFPS=3THENS400 
MQ   5151   V=-liFORA=0TO4:IFS(P,A 

)=»SPTHEN1FC(P,A)>VTHEN 

V=C(P,A) iP=A 
MS  5155  NEXTiRETURN 
SJ  5160  V-101FORA-0TO4 
EH  5161  IFS(P,A)=SPTHENIP(C(P, 

A)>=0)AND(CtP,A)<V}THE 

NV=C(P,A) :F=A 
RR  5165  NEXT: RETURN 
SM  5180  V=10!FORA=0TO4:IFS(P,A 

)<>TPTHENIPC(P,A)>-1TH 

ENIFC{P,A><VTKENV=C(P, 

A)iF-A 
QD  5185  NEXTiRETURN 
XJ  5200  HT=8tF=0 
QM  5205  HT=HT-llIFHT>0THENIFCL 

(HT,TP)«1THEN5205 
GJ  5210  IFHT<0THEN5240 
QS  5215  FORA-0TO4:IFS(P,A)=TPT 

HENIFC { P , A )"HTTHENF=1 
BG  5  220  NEXT 
DM  5240  RETURN 
XG  5250  F=liFORA-0TO4iIFC(P,A) 

>-lTHENIF(S{P,A}<>TP)A 

ND ( C ( P , A ) <  S )THENF=0 
PH  5255  NEXTiRETURN 
DD  5300  F=0iFORA=0TO4!lFS(P,A) 

=S[WP,PC(WP) ) THENIFC CP 

, A ) >  C ( WP , PC ( WP ) ) THENF= 

1 
AF  5305  NEXTiRETURN 
ES  5350  P=0iFORA"i0TO4iIPS(P,A) 

-S ( WP , PC ( WP ) ) THENI PC ( P 

,A)-C(WP,PCtWP) )=1THEN 

F=l 
BK  5355  NEXTiRETURN 
PH  5400  D=10!FORA=0TO4 
BC  5405  IFS(P,A)=S(WP, PC(WP>)T 

HENE=C(P,A)-C(WP,PC(WP 

>) !lF(E<D)AND(E>0)THEN 

D=EsP=A 
MX    5410    NEXTiRETURN 
QE   6000    FOHR=54272TOS4296!POKE 

R,  0  I  NEXT: POKE54275 , 1 
QC   6010    POKE54277,2l!POKE54278 

,135iPOKE54273,150:POK 

£54276,17 
HX   6020   FORR=1STO0STEP-.2!POKE 

54296, RjNEXT 
PR   6030    POKES4276,16iPOKE54296 

,0iRETURN 
QG  10000  POKE532BS,13!POKES328 
7,lliPOKES32B8,5:POKE 
53276, 2iPOKE2040,13tP 
OKE2041,14 
SX  10010  SA=«832:FORJ=0TOltSA=S 
A+J*64:FORI=0TO63:REA 
DA: POKESA+I , A  s  NEXT : NE 
XT: RETURN 

PJ    10050   DATA   0,96,0,6,108,0,6 

,108 
SX   10051    DATA    0,6,109,128,3,10 

9,128,3 
DF    10052   DATA    253,128,27,255,0 

,13,255,0 
PP    10053    DATA    15,255,0,7,254,0 

, 3,254 
AX    10054    DATA    0,1,252,0,0,252, 

0,0 
GF    10055    DATA    252,0,0,0,0,0,0, 

0 
HS  10056  DATA  0,0,0,0,0,0,0,0 
RH  10057  DATA  0,0,0,0,0,0,0,19 

0 
PP  10060  DATA  10,170,168,10,14 

9,168,10,85 
SR  10061  DATA  104,9,89,88,9,10 

6,152,9 
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MF    5    PRINT    CHRStl44) iVOL    IS 
RM    10    SCNCLRiPRINT"l9    DOWN} 

IRVSJU4  RIGHTjMOZART  MA 
GIC" 
GH  20  TEMPOaiPLAY"04CX;iCCCC.CS 
FQCR03SI3I5B5B5B?BS04C03? 
BA?BIARB0BIBBBBO4.CSDQES 
RE.PSDQC03B04C" 
DB    30    DIMMS(7,]1 ) ,M15(8,11),M2 

5(2),R(7),RH8) 
RK    40    FORI=1T07:FORJ=1T011:REA 

DHSd,  JJiNEXTjNEXT 
EH    50    F0RI=-lT08tF0RJ  =  lT011:REA 

DMlSUi  J):NEXTtNEXT 
PR    60   M2?(l H"V204QOV3GV101IGO 
2SGFE0M"!MZ?(2)="V2O4QDV 
3GV101IG02SBG#FEM" 
GG    70    SCNCLR:F0RV=1T03 
CB    80    PRINT*'lHOMEJ  iDOVftl)    CHOOS 
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ME    100    PRINT" IDOWN]     I RVS } 1 

lOFFj    ACCORDION 
EF    110    PRINT" tOOWNj     IRVSJ2 

lOFFJ    CALLIOPE 
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lOFFi    DRUM 
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I  OFF)    FLUTE 
FR    140    PRINT" {DOWN}     [RVS J 5 

lOFF}    GUITAR 
EB    150    PRINT" I  DOWN}     I RVS] 6 

I  OFF}    HARPSICHORD 
DB    160    PRINT"} DOWN}     I RVS j 7 

I  OFF }    ORGAN 
CD    170    PRINT" {DOWN}     iRVSiS 

I  OFF}    TRUMPET 
FE    180    PRINT"  I  DOWN)     UVSj9 
lOFFi    XYLOPHONE 


RD    190   GETKEYI5:IFI$<"0"ORI5>" 

9 "THEN 190 
BE    200    INS=VAL(I5) 
KM    210    IFV=1THENPLAY"V1 
CX    220    IFV=2THENPLAY"V2 
PR    230    IPV=3THENPLAY"V3 
FS    240    IFINS=0THENPIAY"T0 
KD    250    IFINS"1THENP1AY"T1 
SA    260    IFINS=2THENPLAY"T2 
OG    270    IFINS=3THENPLAY"T3 
JP    290    IFINS=4THENPLAY"T4 
RJ   290    IFINS=STHENP1JVY"T5 
FX    300    IFINS=6THENPLAY"T6 
MQ    310    IFINS=7THENPLAY"T7 
AG    320    IFINS=8THENPLAY"T8 
PA    330    IFINS=9THENPLAY"T9 
EJ    340    NEXT:SCNCLR 
RQ    350    Nb8:00 
AR    360    PRINT" I  HOME )} DOWN]    TEMP 

Ol4    RIGHT) {3    SPACES} 

[4    LEFT] "N 

PRINT" I  DOWN  J 

(OFF  J  ASTER 

PRINT"}DOWN} 

t OFF] LOWER 

PRINT"lDOWN} 

}OFF)XIT 

GETKEYTS 

IFTS="F"THENN=N+1 

25  5THENN=2S5 

IFT5="S"THENN=N-1:IFN=< 

0THENN=l 

IFT5=»"E"THENEXIT 

LOOPiTEMPON 

F0RI=1T07iR(I)=.INT(RND( 

1)*11+1 }tNEXT 

F0RI=1T08: R1(I )=INT(RND 

(1)*11+1) :NEXT!SCNCLR 

F0RK=1T02 : F0RI=1T07 : PLA 

YM${I,R(I) ):NEXT!PLAYM2 

$(K)!NEXT 

F0RK=1T02: FORI =1T08: PLA 

YM15(I,R1(I)) ! NEXT: NEXT 

GOTO 70 


IRVSJP 
}RVS)S 
}RVS}E 


iIFN=> 


DC  370 

PF  380 

AQ  390 

JF  400 
XS  410 

JO  420 

00  430 
FF  440 
MF  450 

JR  460 

MP  470 

KF  480 

RF  490 

AP  500  REM  FIRST  THROW 

BX  S10  DATA  V102QCV304IEC03GM, 
V102QCV2EV303IG04CEM, VI 
02QCV2EV304IGECM,V102QC 
V2EV304SC03B04CE03G04CM 
, V1O2QCV2EV305SC04B05CO 
4GECM,VlO2QCV304SEDEGO5 
C04GM 

BC  520  DATA  V1O2QCV2EV304IGSFE 
DCM, V102QCV2EV304SECGEO 
5CO4GM,V3041CV]02SCV2EG 
MV3O3IGV102SCV2EGMV3O4I 
EV102SCV2EGM 

XS  530  DATA  V102QCV2EV3O4IGCEM 
,V102ICV2O3EV304CVlO2CV 
2O3EV304CV102CV203EV304 
CM 

GX  540  REM  SECOND  THROW 

MM  S50  DATA  V102QCV304IEC03GM, 
V1O2QCV2EV303IG04CEM,  VI 
O2QCV2EV304IGECM,V102QE 
V2GV3O4SCO3GO4CEO3G04CM 

XP  560  DATA  V1O2QCV2EV30SSC04B 
05C04GECM,V102QCV304SED 
EG05C04GM, V1O2QCV2EV304 
IGSFEDCM, V102QCV2EV304S 
C03G04ECGEM 

SK  570  DATA  V1O20CV2EV3O4ICO3G 
04EM, V102QCV2EV304IGCMV 
lO2CV2GV304EM,VJO2ICV20 
3EV304CV1O2CV2O3EV304CV 
102CV203EV304CM 

BG  580  REM  THIRD  THROVE 

RH  590  DATA  V1O10BV2O2GV3O4SDE 
FDMV101IGV304C03BM, VlOl 
QGV303IB04DGM,VI.OlQGV30 
3IB04SD03BAGM, V102QGV2B 
V304IFD03BM 
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SJ  600  DATA  VI01QBV20  2DV3O4SG# 
FGD03BGM, V102QGV2BV304S 
FEFDC03BM,V101QGV202GV3 
03SB04CDEMV1OIIBV2O2GV3 
04SFDM 

CC  610  DATA  V).02IGV2O3BV304DV] 
O2GV2O3BV3O4DVJ02GV2O3Q 
V304DM, VIO) OGV303SB04CD 
03BAGM, VIO1QBV3O4ID03BG 
M,VI0  2QGV303SBAB04CD03B 
M 

QH    620    REM    FOURTH   THKOW 

JS  630  DATA  V102QCV2EV304SC03B 
04CE03IGM, V102QCV304SEC 
O3B04C03IGH, V1O20EV2GV3 
04IC03GEM, V1O20EV2GV304 
ICE03GM 

PC  640  DATA  V).0  2QEV2GV304SCO3B 
04C03GECM, VJ02QCV2EV304 
ICSCDIEM,  VJ.02QCV204ICV3 
EV2SCV3EV2DV3FV2IEV3GM 

XP  650  DATA  V102QEV2GV304ICSEC 
O3IGM,V102QEV2GV3O4SCO3 
GD4ECIGM, V102QEV2GV304I 
CSECIGM,V10ZQEV2GV304SC 
ECO 3G I EM 

KE    660    REM    FIFTH   THROW 

HS  670  DATA  VlO2QCV304I#PSA#FD 
#FM,V102ICV203#FV304DV1 
02CV2O4DV3#FV102CV204#F 
V3AM, V102QCV3O4SDO3A04i 
FDA#FM 

HB  680  DATA  V102ICV203#FV304DV 
102CV2O3#PV304DVJ.02CV2O 
3IFV304DM,V102QCV304IDO 
3SABA04I #FM, V1O2QCV304S 
D#CDIFA#FM 

fM  690  DATA  VlO20CV2AV3O4I#FAM 
V102CV2AV304DM, VX02ICV2 
#FV303AV102CV2#FV3O3SAO 
4DMV10  2ICV2AV304#FM 

QX  700  DATA  V102ICV204DV3#FV10 
2CV204DV3  #FV102CV204DV3 
#FM,V102ICV2DV3O4#FV102 
CV2DV304S#FDMV102ICV2DV 
304AM, V102QCV2AV304S*FD 
03A04A#FDM 

EW    710    REM    SIXTH    THROW 

QH  720  DATA  V102IBV202DV304SG# 
FHV101IBV20  2DV304SGBMV1 
O1IBV2O2DV304DM, VIOIQBV 
202DV3O4IGSBGDO3BM,V101 
aBV202DV304IGBDM 

FR  730  DATA  V101QBV2O2GV3O3IAS 
#FGB04GM,  V101QIJV202DV30 
4SG#FGDMV101IBV2O2GV303 
SBGM, V101QBV304IGSBGDGM 
,V101QBV20  2GV304IDSGD03 
BD4DM, V101QBV2O2GV304ID 
SDGIBM 

AA  740  DATA  V1O1IBV202DV304SAG 
MV101IBV202DV304S#FGMV1 
01IBV20  2GV304DM,VlOlQBV 
202DV3O4IGSGDIBM,VlOlQB 
V202DV304SGBGD0  3IBM 

EQ    750    REM    SEVENTH   THROW 

XQ  760  DATA  V102 ICV304SECMV102 
IDV303SBAMV101IDV303SG# 
FM,V102ICV303SA04EMVlO2 
IDV2O3SBV3O4DV203AV304C 
MV101IDV2O3SGV38V2#FV3A 
M 

BR  770  DATA  V102ICV203SBV304DV 
■203AV3O4CMVJ.O2IDV2O3AV3 
04CV203GV3BMV1O1IDV2O3S 
GV3BV2#FV3AM,V102ICV304 
SEGMV102IDV304SDCMV101I 
DV303SBAM 

AJ  7S0  DATA  V102ICV303SA04EMV1 
O2IDV3O4SDGMV101IDV304S 
IFAM,V102ICV304SEAMV102 
IDV3O4SGBMV101IDV304S#F 
AM,VlO2ICV304SCEMVlO2ID 
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V304SGDMV101IDV303SA04# 
FM 

RP  790  DATA  VlO2rCV3O4SEGMV102 
IDV304SDGMV101IDV303SBO 
4#FM,V102ICV304SECMV102 
IDV3O3SBGMV101IDV303SA# 
FM,V102ICV304SE05CMV102 
IDV304SBGMV101IDV3O4SA# 
FM 

DO  800  DATA  V102ICV3O3AV10  2DV3 
04SDCMV101IDV303SBAM 

HX  810  REM  PART  TWO  FIRST  THRO 
W 

XG  820  DATA  V102QDV304I#FSA»FM 
V102ICV304SD#FM,V102QDV 
2#FV304SD03A04D#FA#FM,V 
102IDV2AV304iFV102DV2#F 
V304AVlO2CV2DV3O4#FM 

DG  B30  DATA  V102QCV2AV304SltFAO 
5D04AMVlO2ICV2AV304*FAM 
,VlO2QDV303SD#FA04DMV10 
2ICV304S#FAM 

PP  840  DATA  V2O4IDV3#FV101SDO2 
DMV304Q#FV102S#CDCDM,V1 
Q2QDV2#FV304IA#FMV102CV 
2#FV3DM, V102QDV2#FV305I 
D04SA#FMV102ICV2#FV304S 
D03AM 

GC  850  DATA  V10  2QDV2#PV304SD03 
A04ID#FM, V1O2QCV2AV304S 
#FD03IAMV102CV2AV304*FM 
, V102QDV2#FV303IA04DMV1 
02CV2AV304#FM 

PD  860  REM  PART  TWO  SECOND  TllR 
OW 

AG  870  DATA  V1O1QBV20  2GV3O4IGS 
BGIDM, V304IGV101SQ02DMV 
303IGV102SGDMV303IGV101 
SBGM,V1010BV304SGBGBIDM 

CC  880  DATA  V101QBV2O2DV3O4SAG 
BGMV1O1IBV2O2DV304SDGM, 
V101QBV202DV304IGSD03BM 
V101IBV202DV30  3GM 

JK  890  DATA  V1O1QBV202DV3O4SGB 
05D04BMV101IBV202DV304G 
M,  V101QBV202DV304SGHGDO 
3BGM,V101QBV202DV304SGD 
GBMV1O1IBV2O2DV304SGDM 

DP  900  DATA  V101QBV202DV304SGB 
IGMVIO1IBV2O2GV304DM,  V3 
04IGV101SGBMV304QDV1Q2I 
GOIBM, V101QBV304IGSB05D 
04 1  DM 

AF  910  REM  PART  TWO  THIRD  THRO 
W 

XJ  920  DATA  V204ICV3EV1O2SCEMV 
204ICV3EV1O2SGEMV2O4ICV 
3EV103SCO2CM, V102QEV304 
SCO  3G04C  EMV 10  2EV  30  4GV 10 
2CV204CV3EM, V102QCV2GV3 
04IESGEMV102ICV2DV304CM 

XE  930  DATA  V1O20CV2GV304SECEG 
05CO4GM, V102QCV2GV304SE 
GO5CO4GMV102ICV2GV3O4SE 
CM, V2O4ICV3EV102SC01DMV 
304QEV102SCDE#FM 

PH  940  DATA  V3O4IEV102SCV2EGMV 
304ICV102SCV2EGMV303IBV 
102SCV2EGM,V102QCV2GV30 
4IESCEMV102CV2EV304G05C 
M 

RF  950  DATA  V1O2QCV2GV304SECIE 
MV102CV2EV304GM,V102QCV 
2GV3O4SEC03IGMV102CV2GV 
304  EM, V 1 0  2  QCV  2GV  304 1 EGM 
V102CV2EV305CM 

FR  960  REM  PART  TWO  FOURTH  THR 
OW 

EP  970  DATA  V102QGV204ICV3EV20 
3BV304DMV101GM,V101QGV2 
02GV304SDO3BIGHV1O2GM, V 
102IGV204CV3EMV101GV203 


SBV304DV203GV3BV2IGM 
JE    980    DATA   V1O20GV304SECDO3BI 
GM, V102IGV304SGEMV101IG 
V3O4SD03BIGM,VlO2QGV303 
SB04DGDMV101IGV303BM,V1 
02IGV304SECMV101IGV3O3S 
B04DIGM 
RF    990    DATA   V10  2QGV2BV3O4SDBGD 
03IBM, V1O1QBV202GV3O4SD 
03BIGMV101BV20  2DV304GM, 
V304IDV102SG#FMV303QBV1 
02SGD01BGM 
GA    1000    DATA    V102QGV203IBV304D 

SGBMV102IGV304DM 
MK   1010    REM    PART   TWO   FIFTH   THR 

OW 
MJ    1020    DATA   V304IEV102SCV2EGM 
V3O4ICV1O2SCV2EGMV303I 
GV102SCV2EGM, V303IGV10 
2SCV2EGMV3O4ICV102SCV2 
EGMV3O4IEV102SCV2EGM 
AK    1030    DATA    V3O4IGV102SCV2EGM 
V304EV1O2SCV2EGMV3O4IC 
V102SCV2EGM, V102QCV2EV 
304SCO3BO4CO4EMV102IEV 
2GV303SG04CM 
PX   1040   DATA   V102QCV2EV3O5SC04 
BO5C04GMV102ICV2GV3O4S 
ECM,V102QCV2GV304SEDEG 
MV102ICV2EV3O5SCO4GM, V 
1O2QCV2EV304IGSFEDCM 
SQ    1050    DATA   V102QCV2EV304SC03 
G04ECGEM, V304ICV102SCV 
2EGMV303IGV102SCV2EGMV 
304IEV102SCV2EGM 
XQ   1060   DATA   V304IGV102SCV2EGM 
V304ICV102SCV2EGMV304I 
EV102SCV2EGM, V102ICV20 
3EV304CV102CV303EV304C 
V102CV203EV3O4CM 
1070    REM    PART    TWO    SIXTH    THR 

OW 
1080  DATA  V304IEV102SCV2EGM 
V304ICV1O2SCV2EGMV3O3I 
GV102SCV2EGM, V1O20CV2E 
V303IBO4CMV102CV2GV304 
EM,V304IGV3.02SCV2EGMV3 
04IEV102SCV2EGHV304ICV 
102SCV2EGM 
1090  DATA  V102QCV2EV304SC03 
B04EMV1O2ICV2EV30  3SGO4 
CM,V102QGV2EV30  5SCO4BO 
SC04GECM, V1O2QCV2GV304 
SEDECMV102ICV2EV305SCO 
4GM 
OH  1100  DATA  V1O20CV2EV304IGSF 
EMV102IEV2GV3O4SDCM,  VI 
0  2QCV2EV3O4SCO3G04ECGE 
M, V3O4ICV1O2SCV2EGMV30 
3IGV102SCV2EGMV304IEV1 
02SCV2EGH 
1110  DATA  V304IGV102SCV2EGM 
V304ICV102SCV2EGMV304I 
EV102SCV2EGM,V102ICV20 
3EV304CV102CV203EV304C 
V102CV203EV304CM 
1120  REM  PART  TWO  SEVENTH  T 
HROW 


GG 


RX 


BQ 


RX 


BM 


XK  1130  DATA  V1O2QFV2AV304SDFD 
FMV1O2IGV2O3DV3SB04DM, 
V102QFV304SDFAFMV102IG 
V304SD03BM, V102QDV304S 
DF03A04DMV1021G\;3O3SB0 
4DM 

BB  1140  DATA  V102QFV304SD#CDFM 
V102IGV3O3SGBM, V102IFV 
304FV1O2DV3O4DV1O2GV3O 
4GM, V1O2SFV304FV102EV3 
O4EV102DV304DV102EV304 
EV102FV304FV102GV302GM 

BQ  1150  DATA  V102SFV304FV1O2EV 
304EV102IDV3O4DV102GV3 


O4GM,V102QFV3O4SFEDCMV 
1O2IGV3O3SB04DM, V102QF 
V304SFD03IAMV10  2GV303B 
M 

PF  1160  DATA  V102QFV3O4SFA03IA 
MV 10  2GV  30  3SB04D  M ,  V 10  2Q 
FV3O3IAO4SFDMV1O2IGV30 
3SABM 

XB  1170  REM  SECOND  PART  EIGHTH 
THROW 

CG  1180  DATA  V3040CV1021CO1QCM 
, V304QCV1O2IC01GCM, V30 
4QCV102IC01GCM,V304QCV 
102IC01GCM, V304QCV1O2I 
COiGCM,V304aCVI02rC01G 
CM 

CG  1190  DATA  V3O4QCV102ICO1GCH 
,V3040CV102IC01GCM,V30 
4QCV102IC01GCM, V102QCV 
3O4ICO3CVlOlCM,V3O40CV 
1O2IC03GCM 


BEFORE  TYPING  .  .  . 

Before  typing  in  programs,  please 
refer  to  "How  to  Type  In 
COMPUTEl's  GAZETTE  Programs," 
elsewhere  in  this  issue. 


The  Construction 
Set 

Article  on  page  39. 
Program  1:  Main  Program 

DD  130  POKE53280, l!POKE5328) ,1 
CQ  110  PRINT"  iCLR J  11.0  DOWN} 

{9  SPACES  3  §20  @r' 
DJ  120  PRINT" 19  SPACESj UVSjTH 

E  CONSTRUCTION  SET" :AS= 

" 12  SPACES)  I  RED  J §8  @3 " 
HP  130  PRINT" 17  DOWNJ 

(12  SPACESJPLEASE  VWIT. 

JX  34(5  POKE55,0!POKE56,  64:CLR: 
BA=1 6384 :READA: FORI =1T0 
A: READX$ ! NEXT; FORI =1T03 
52 

HX  150  READX:S=S+XiNEXT!lFS<>3 
4546THENPRINT"ERR0R  IN 
t SPACE} DATA  STATEMENTS. 
" ! STOP 

XF  160  RESTORE :DI=8:READNS: REM 
SET  DI=1  FOR  TAPE 

PP  170  DATA  3, "HOUSE","CREATUR 
E", "SHAPES" 

PJ  160  PRINT" lUP} 114  SPACES )L0 
ADING...12  SPACES] "jFOR 
N^^TONS-l :CHSET=BA+6144 
+N*2048:READX5 

JE  190  GOSUB1200:NEXTiPRINT" 

ICLR) lRVS)tGRNJ":FORN=l 
TO40 ! PRINT "gY^"? ;NEXT 

GE  200  PRINTA5: PRINT" 

12  SPACES} I RVS I {RED] 

13  SPACES}Flt3  SPACES) 
}0FF}1BLU)(9  SPACES) FOR 

DIFFERENT  PICTURE"; 
QJ  210  PRINTA5 SPRINT" 

12  SPACES) I RVS) (RED) 
(3  SPACES jF7 {3  SPACES) 
10FFJ1BLUJ[9  SPACESjFOR 
INSTRUCTIONS" 
MK  220  PRINTA$: PRINT" 

[2  SPACES]  IRVSURED)+  A 
ND  -  (OFFJiBLUi 


19  SPACESjFOR  EXTRA  PIE 
CES" 
BR  230  PRINTA5:PRINT" 

i2  SPACES) I RVS) [RED J  CU 

RSOR  [BLUjlOFFj 

19  SPACESJSELECTS  PIECE 

tl 

KG  240  PRINT" I  2  SPACES U RED) 

(iia  @i"i  PRINT" 

12  SPACES)1RVS)1REDJ  JO 

YSTICK  IBLUltOFFJ 

17  SPACES) POSITIONS  PIE 

CE" 
AC  250  PRINT" 12  SPACES) I  RED  J 

E13  @|"i PRINT" 

12  SPACES) 1 RVS) I  RED  J  FI 

RE  BUTTON  I OFF] tBLU) 

14  SPACES] STAMPS  PIECE" 
HF  260  PRINT" 12  SPACES) 1  RED) 

gl0  @3"!PRINT" 

12  SPACES) I RVS) 1 RED J  IN 

ST  DEL  [OFF] tBLU] 

17  SPACES)ERASES  PIECE" 
AS  270  PRINT" 12  SPACES)) RED) 

S16  @3":PRINT" 

12  SPACES) iRVSj tREDJ  SH 

IFT  CLR  HOME  [OFF)lBLUj 
ERASES  SCREEN" 
GH  2B0  PRINT" 12  SPACES]) RED) 

g38  §i"; 
EK  2  90  PRINT" 12  SPACES) I RVS) 

1  RED) PUSH  ■<  AND  THEN  Fl 

,  F3,  FSU2  SPACES]" 
MA  300  PRINT" 12  SPACES) I BLU ]T0 
CHANGE  BORDER,  SCREEN, 
f,    PICTURE  15  SPACES)  COL 

OR.  F7  RESUMES  PROGRAM" 
BP  310  PRINT"iRVSJ 1GRN)"!F0RN= 

1TO40: PRINT" Ey^"r : NEXT 
HR  320  PRINT"gigl9  SPACES  J  USE 

Is PACE J  PORT  2  FOR  JOYST 

ICK."r 
ME  330  V='53248:SB=15360+BA:SC  = 

BA:HI=-33iCB=l  :MM  =  2B4!MN 

=-] 
MO    340    SE=a!FORSP=0TO2iFORN=0T 

063 ! READD:  POKESB+N+ (64* 

SP),Dt NEXT! NEXT 
BP    350   FORA=53088TO53247!READI 

! POKEA, I ! NEXT : SYS53088 : 

POKE17400, 241 ! POKEl 7401 

,240 
AB    360   POKE17402,242iPOKEV+39, 

liPOKEV+3,205!POKEV+2, 2 

4tPOKEV+40, 10!POKEV+28, 

1 
DS    370   POKEV+3  7,5!POKEV+38,l:P 

OKEV+28,PEEK(V+28}OR4:P 

OKEV+41, 1 
BA   380   DIMA?(80,3)tX=liFORC=).T 

020 
KD    390    CO=CO+1:FORR=1T03;A$(C, 

R)=STR5(X)!X=X+32:NEXT! 

X=X-93 ! IFCO=10THENCO=0  t 

X=X+66 
XX  400  NEXTCiCO=0!FORC-21TO50i 

C0=C0  +  1:AS<C,1  )=STR5[X) 

jA?(C,2}="256"iA5(C,3)= 

"256" 

QK  410  X=X+3!lFCO=>10THENCO=0!X 

=X+2 
SB    420    NEXT! POKE53265,PEEK( 532 

65)AND239:POKE5657B,PEE 

iC(56578)OR3 
GQ   430    POKE56575, (PEEK(56576)A 

ND2  52)OR2:A=4:SK=>-16:P0 

KE53270,PEEK(53270)OR16 

!PY=1 

RF  440  FORN=1TONS:COSUB690:POK 
E53281,15!PRINT"lCLRj"; 
POKE53281,0iNEXT!Py-0iA 
=4!SK=-16 


PR  450  POKE53282,2:POKE53283,1 
; GOSUB690 : POKEV+2 1 ,  3 ! PO 
KEV, 24:POKEV+1,50 

JA  460  POKEV+2 7,0! POKES 326 5,  PE 
EK( 5  326  5 )ORl 6 :X=24  jY^SB 

QE  470  J2=PEEK( 56320 ) :FR=J2AND 
VG:JV=1 5-IJ2AND1 5) :IFJV 
"VTHENY^y-SE: IPY<50THEN 
Y=50 

MC  400  IFJV=2THENY=Y+SE: IFY>] 9 
4THENY=194 

KQ  490  IFJV=4THENX=«X-SE:  IFX<24 
THENX=24 

SD  500  IFJV=8THENX=X+SE! IFX>3! 
2THENX=3]2 

HE    510    TR=(X>255)iPOKEV+J 6, (PE 

EK{V+16)AND{MM) )ORTR*(M 

N) i  POKEV+SP*2,X+{TR*255 

) 
XB    520    POKEV+(SP*2)+l,Y+2:IFFR 

=0THEN540 
GP    530   GETKH5!IFKH$=""THEN470 
XM    540    IFVAL(KH5)<4ANDVAL(KH5) 

>0THENSE=8*VAL(KHS):GOT 

0470 
BR    550    IFKH5'^"-"THENCB=CB-9:IF 

CB<0THENCB=37 
FF    560    IFKH5="+"THENCB=CB+9:IF 

CB>37THENCS=1 
FG    570    IFKH5="+"0RKHS="-"THENG 

OSUB73  0:GOTO5  30 
RB    580    IFKHS="IRIGHT] "ORKHS=" 

1LEFT)"THEN   GOSUB780iGO 

TO  4  70 
BD    590    IFASC(KHS)=j2OTHEN640 
JS    600    IFKHS="1CLR)"THENP0KE53 

28) , 15:PRINT"1CLR) "tPOK 

E53  281,0!GOSUB730;GOTO4 

70 
RR  610  IFKH5="lF] )"THENG0SUB69 

0 
XP  620  IFKHg="lF7J"THENGOSUB12 

60 
GR  630  GOTO4  70 
MF  640  XJ-(X-24)/8!Yi=( (Y-SO)/ 

8) *40:S=SC+X1+Y1 jF0RR=1 

TO3:FORC=0TO2 
FP  650  P=VAL(AS(CB+CX,R) }+C!lP 

KH5<>  ""THEN: IFASC(KH5)  = 

20THENP=32 
QM  660  IFP>25STHENP=32 
BQ  670  POKES+C+[R-1)*40,P!NEXT 

! IFVAL ( A? ( CS+CX, 1 ) ) +C> 1 

8STHENR=3 
KK  630  NEXT:FR=liGOTO470 
CK  690  A=A+2!SK»SK+16:IFA>120R 

{A-6)/2=NSTHENA=6:SK=0 
MR  700  SC=BA+1024*SK/16:POKE53 

272, (PEEK(53272)AND15)0 

RSK 
CR   710   POKE53272, (peek; 53272 )A 

ND240)ORAi POKE648, SC/25 

6 ! IFPY-ITHENRETURN 
KG    720    POKESC+1016,24l!POKESC+ 

1017,240:POKESC+1018,  24 

2;GOSUB7  30:RETURN 
MQ    730    VA=0;CO=0:FORC=1TO9:CO= 

C0+1:FORR=1T03:FORK=1TO 

3:P=VAL(A5{CB+C-] ,R))-1 

+N 
DS  740  IFP>255THENP»32 
JM  750  POKESC+880+VA+N+(C-l  )*4 

+(R-1 )*40, PiNEXTs IFVAL t 

AS(CB+C-1,R) )-l+N>18STH 

ENN'=3 
KS  760  NEXT:IFCO=9THENCO=0iVA3 

VA+120 
EX  770  NEXT :GOSUB800: RETURN 
SC  780  IFKH5="lLEFTJ"THEN  H1=H 

l-3  2:CX=CX-l! IFCX<0THEN 

CX=8jH1=288 
BB  790  IFKHS=" I  RIGHT) "THEN  HJ  = 
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HJ+3  2jCX=<:X+1 !lFCX>8THE 

KCX=0:H1=40 
XM    800    IFVAL(A5{CB+CX,1)  )+C>-ia 

5THENSP=2;SV=-16:POKEV+ 

2] ,6:MM=25) :MN=-4 
HQ   810    IFVAL(A?(CB+CX,  )  ))+C<].a 

9THENSP=0:SV=0:  POKEV+2:- 

,3iMM=254!MN=-3 
EM    820    TZ=(H1>255): POKEV+l  6,  (P 

EEK(V+)6)AND(253)}ORTZ* 

(-2) :P0KEV+2,H1+(T2*255 

) 
GP  830  kRTURN 
EH  840  DATA  3,252,0,7,254,0,3,5 

,2  54,0,3). 
EP  850  DATA  ) )  0,  0,  31  ,  24  7,  0,  29  , 

255,0,55,253 
DS  860  DATA  )28,6]  ,  19.1  ,  )2B,  59, 

223, 128,50,238, 1 28 
EB    870    DATA    J  J  5 , 1 87 , ) 2B, 99 , i 87 

,1.28,  3,185,0,3,  )44,0 
JK    880    DATA2, )28,0, 3, 328,0,3, 1 

28,0,2 
PD    890    DATA3 28,0, 1,0,0,0,0,0,0 

,0 
QA    900    DATA0,0, 85, 86,85, 127,25 

5,253,1)2,0 
RC    9J  0    DATA  3  3  ,  )  ]  2  ,  0 ,  ),  3  ,  V )  2  ,  0 ,  1 

3,112,0,13 
GE    920   DATAl] 2,0, 13, 13  2,0, 13,  3 

12,0,  13,  1.12 
SS    93  0    DATAO, 13, 312,0,13,112,0 

,13 
SG   940   DATA3  3  2,0, 13, 31  2,0, 13, 3 

12,0,33,112 
PK    950    DATAO, 13, 13 2,0, 13,  332,0 

,13,  U  2,0 
FII    9C0   DATA)  3,  127,255,253,85,8 

5,85,247,85,85 
EB    970    DATA85, 306, 170, 169,96,0 

,9,96,0,9 
JP    980    DATA   96,0,9,96,0,9,96,0 

,9,106 
DK   990    DATA) 70, 169,85,85,85,0, 

0,0,0,0 
FQ    1000    DATA0,0,0,0,0,0,0,O,O, 

0 
GR    1010    DATA    0,0,0,0,0,0,0,0,0 

,0 
DS    1020    DATA0,0,0, 0,0,0, 0,0,0, 

0 
DG    1030    DATA    0,0,120,173,40,3, 

141,248,207,173 
QA    1040    DA TA41, 3, 141,249, 207,  1 

73,250,207,141,40 
EM    1050   DATA3, 173,251,207,141, 

41, 3,88,96,16  5 
CM    1060    DATA145, 201,253,208, 11 

6,120,169,0,133,198 
XJ    1070    DATA32,159, 255, 32, 228, 

255,203,0,240,246 
XQ    1080    DATA20  3, 13  3,240,15, 201 

,134,240,23,201,135 
SK    1090    DATA240,31,201 , 135, 240 

,84,76,130,207,173 
AK    1100    DATA32, 208, 24, 3  05, 1, 14 

1, 32,208, 76,130 
RJ    1110    DATA    207,373,33,208,24 

,105,1,141,33,208 
BH    1120    DATA    76,130,207,165,24 

3,141,252,207,165,244 
PH    1130    DATA    141,253,207,169,0 

,133,243,169, 216,133 
RS    1140    DATA    244,373,134,2,24, 

105, 1,141, 134,2 
CF    1150    DATA   162,4,160,0,145,2 

43.136,208, 251,202 
GX    1160    DATA    240,5,230,244,76, 

216,207,173,252,207 
SP    )170    DATA    ) 33, 243,  173, 253,2 

07, )33, 244, 76, 130, 207 
CS    1180    DATA    88,108,248,207,2  3 

7,246,123,207,2,0 
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GK    1190    DATA    255,255 

AA    1200    FORI=1TOLENCX5)jPOKE67 

8+I,ASC{MID5(X5, I)):WE 

XT 
JM    1210    POKE 781, 167: POKE 782, 2: 

POKE780 , LEN (X5 ) : SYS654 

69 
CX    1220    POKE780,1iPOKE781,DIiP 

OKE782,0:SYS6  5466 
MK   1230   POKE780,0iPOKE781,0iPO 

KE782,CHSET/2  56:SYS654 

93 
MB    1240    IF(PEEK(783)ASD1)0R{19 

lANDST) THEN PRINT" LOAD 

{ SPACE } ERROR " : STOP 
RJ    1250   CLOSEl J  RETURN 
FG    1260    P0K£56578,PEEK(56578)O 

R3!P0KE    56576, (PEEK (56 

576}AND252}OR3 
FR   1270    POKE5327O,PEEK(53270)A 

ND239:POKE53272, (PEEK{ 

53272 )AND15)OR16 
EX    3280    POKE53272, (PEEKC53272) 

AND240)OR4:XX=PEEK(V+2 

1 ):POKEV+21,0!POKE53  2  8 

1,0 
EH    )290    GETK?!lFKS=""THEN1290 
JA    1300    POKE56576,PEEK(56578)0 

R3:POKE56576, tPEEK(565 

76)AND252}OR2 
XF    i310    POKE53270,PEEK(53270)O 

Ri6jPOKE53272, (PEEK(53 

272)AND15}ORSK 
BE    1320   POICE5  32  7  2,  (PEEK(53272) 

AMD240)ORA: POKE5328J , 0 

1 POKEV+2 1 , XX ! RETURN 

Program  2:  The  Construction 
Set — House  Character  Set 

See  instructions  in  article  on  page 
39  before  typing  in. 


i5) 

ii) 


7000:00 

7008;00 

70)0:3C 

7018:00 

7020:51 

7028;)4 

7030 

7038 

7040:45 

704B:13 

7050:5) 

7058:10 

7060:51 

7068:) 5 

7070:04 

7078:43 

7080:1) 

708B:5J 

7090:45 

7098:00 

70A0:O0 

7OA8:00 

70B0:28 

7068:00 

70C0t00 

70C8:00 

70D0:O0 

70D8:00 

70E0t54 

7DE8:55 

7OF0:45 

70F8:00 

7100:00 

7108:00 

7110:3C 

7118:00 

7120:55 

7128:44 

7130:55 

7138:60 


00  00  00 

00  00  03 

3C  3C  FF 

00  00  C0 

55  5)  45 

55  45  3.4 

45  51  45 

45  6A  60 

05  AA  28 

45  A9  09 

54  55  4  5 

55  15  55 

54  15  55 
14  55  51 

55  15  55 
55  14  55 

54  55  15 
5)  55  55 

44  55  5J 
00  00  00 
00  00  00 
00  00  00 
14  14  14 
00  00  00 
00  00  00 
00  00  00 
00  00  00 
00  00  00 

45  55  16 
61  A9  8A 

55  54  55 
00  00  00 
00  00  00 
00  00  00 
3C  3C  3C 
00  00  00 
51  55  45 
5)  15  54 
5)  45  55 
60  6A  55 


00  00  00 
03  00  00 
FF  3C  3C 
C0  00  00 
51  45  54 
55  15  51 
IX  55  45 
60  60  6A 
28  28  AA 
09  09  A9 
5  5  15  5A 
69  BE  EB 
11  55  AS 
55  15  5  5 
55  51  55 
55  14  55 
SA  18  58 
AA  28  28 
A5  2  5  2  5 
00  00  00 
00  00  00 
03  0F  33 
FF  FF  FF 
FF  3F  FF 
FF  3F  FF 
FO  3C  FF 
00  00  00 
00  00  00 
5A  5B  58 
CE  CF  00 
91  95  95 
00  00  00 
00  00  00 
00  01  06 
55  AA  33 
00  40  90 
51  54  45 
15  54  45 
11  55  45 
55  6A  60 


00  E0 
00  31 
3C  4B 
00  0B 
45  SB 
15  09 
11  03 
60  FF 
28  3C 
09  91 
5B  DC 
AA  57 
E5  06 
54  96 
45  80 
15  E) 
58  37 
28  D4 
24  15 
00  79 
00  B) 
FF  44 
3F  AD 
FF  96 
F3  92 
FF  22 
C0  7  2 
00  B9 
)B  55 
CF  30 
85  3D 
00  D9 
00  E2 
IB  )6 
CF  F6 
E4  02 
51  BB 

54  42 

55  CD 
60  7B 


7140:28 
7148:09 
7150:5B 
7158:FF 
7160;E5 
7168:15 
7170:55 
7)78:55 
7130:18 
7)88:28 
7190:25 


7198 

71A0 

71A8 

71B0:FC 

71S8:FC 

71C0IFC 

71C8:FC 

71D0;F0 

71D8:00 

71E0:5B 

71E8:CF 

71F0:95 

71F8:90 

7200:00 

7208 :5B 

7210!C3 

7218:E5 

7220:55 

7228:05 

7230:51 

7238:60 

7240:28 

7248:09 

7250S5B 

7258:FF 

7260:E5 

7268:38 

7270:28 

7278:25 

7280:50 

7288:54 

7290:55 

7298:56 

7  2A0:94 

72Aa:55 

72B0:55 

72B8:55 

72C0t55 

72Ca:55 

7  2D0:55 

7208:69 

72E0:59 

72E8:6S 

72F0:95 

72F8:00 

7300:00 

7308:00 

7310:00 

7318:02 

7320:80 

7328:00 

7330:00 

7338:00 

7340102 

7348:AA 

7350:AA 


7358 

7360 

7368 

7370 

7378:00 

7380:95 

7388:55 

7390:56 

7398:00 

7  3A0 : 00 

73A8:82 

7  3B0S00 

73B8:A8 

73C0:00 

73C8:15 

7  3D0:AA 

73D8:56 

73E0:A8 


28  AA 
09  A9 
SB  SB 
FF  F7 
25  E5 

54  55 
51  55 
44  5  5 
58  58 
28  28 
25  25 
00  00 
OF  3C 
CF  FC 
FF  F0 
FF  F3 
FF  F3 
FF  F3 
FC  F3 
00  00 
SB  59 
CF  65 
91  95 
00  00 
00  00 
SB  5B 
C3  00 
ES  E5 
51  45 
51  45 

55  11 
60  60 
28  28 
09  09 
5B  SB 
FF  FF 
25  E5 

58  58 
28  28 
25  25 
55  15 
55  15 
55  15 

55  55 
95  95 
51  55 
5)  55 
5)  55 
51  55 
51  55 
51  55 
65  65 

59  59 
65  65 
95  95 
00  00 
00  00 
00  00 

00  00 

01  09 
40  60 
00  00 
00  00 
00  00 
03  0B 
FF  FF 
FF  FF 
FF  FF 
FF  FF 
FF  FF 
CO  E0 
00  00 
95  95 
50  50 

56  55 
00  00 
00  00 
69  55 
00  00 
2F  2F 
00  CO 
56  SA 
AA  AA 
95  A5 
54  54 


55  55  AA 
55  55  A9 
5B  58  SB 
F7  37  37 
E5  E5  E5 
15  5A  18 
55  AA  28 
5)  A5  25 
IB  SA  55 
28  AA  55 
2  5  A4  55 
00  03  0F 
FF  3  3  FF 
FF  33  FF 
FF  FF  3F 
FF  CF  FF 
FF  CF  FF 
FF  CF  FF 
FF  CF  FF 
C0  30  FC 
49  59  59 
65  65  65 
95  94  95 
00  00  00 
00  00  00 
SB  58  5B 
00  00  F3 
E5  25  ES 
54  45  50 

54  45  55 

55  45  51 
60  60  60 
28  28  28 
09  09  09 
5B  59  5A 
FF  AA  AA 
ES  65  AS 
18  5A  55 
2B  AA  55 
25  A4  55 
55  55  SI 
55  55  5) 
55  55  51 
55  54  55 

94  95  95 
55  55  45 
55  55  45 
55  53  45 
55  55  45 
55  55  45 

55  55  45 
65  65  65 
59  SA  6A 
65  AA  AA 

95  95  AS 
00  00  00 
00  00  00 
00  00  00 
00  00  00 
0S  26  IB 
SO  98  E4 
00  00  00 
00  00  00 
00  00  00 
0F  2F  3F 
FF  FF  FF 
FF  FF  FF 
FF  FF  FF 
FF  FF  FF 
FF  FF  FF 
F0  F8  FC 
00  00  00 
95  95  95 
50  55  55 

56  56  56 
00  00  00 
00  00  00 
55  55  55 
00  00  00 
2F  20  20 
F0  FC  0F 
6A  SB  5b 
AA  FF  FF 
A9  E5  E5 
54  54  54 


28  2B  b9 
09  09  E8 
SB  5B  IB 
FF  FF  50 
E5  ES  13 
58  58  23 
28  28  C0 
25  24  07 
15  55  B9 
15  55  3B 

14  55  3E 
AA  56  7B 
AA  95  D4 
AA  55  El 
AA  45  C7 
AA  54  CO 
AA  54  C8 
AA  54  D0 
AA  54  12 
AA  69  FB 
lA  59  CS 
AA  65  26 
85  95  AA 
00  00  DB 
00  01  E5 
5A  55  CC 
AA  55  42 
A5  55  E5 
55  55  5D 
45  55  31 
51  55  Fl 
6A  55  26 
AA  55  57 
A9  55  BA 
6A  AA  8E 
AA  AA  3D 
A9  AA  SC 

15  55  A3 
15  55  25 
14  55  28 

55  45  BA 

56  45  C4 
55  45  4D 
55  55  F5 

9  5  EC 
55  4A 
54  55  52 
54  55  SA 
54  55  62 
54  55  6A 

54  55  72 
65  65  BF 

55  55  06 
55  55  DC 
55  55  55 
00  00  DD 
00  00  E6 
00  00  EE 
00  00  F6 
9B  56  DC 
E6  95  24 
00  00  0F 
00  00  17 
00  00  IF 
BE  F9  29 
BF  6F  73 
FF  FF  8C 
FA  ES  70 
FF  BF  5C 
FE  F9  9C 
BE  6F  9B 
00  00  5F 
95  95  67 

55  55  3D 

56  56  77 
00  00  7F 
00  00  87 
SS  55  2Q 
00  00  97 
20  20  7a 
03  00  F8 
5B  513  )C 
C3  C3  03 
E5  AS  D7 
54  54  Fl 
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73E8:02 
73F0:A8 
7  3F8:00 
7400! 00 
7408:00 
745.0!  02 
7418155 
74201 55 
7428 sSa 
7430:00 
7438:02 
7440 :F9 
7448:6F 
7450!FF 
7458:E5 
7460 iBF 
7468:F9 
7470!6F 
7478:80 
7480:95 
7488;0S 
7490:56 
7493:00 
74A0:00 
74A8!45 
74B0!00 
74B6:20 
74C0:00 
7408:58 
74D0:C3 
74D8:E5 
74E0:54 
74E8!01 
74F0:54 
74F8I00 
7500:00 
7508:02 
7510:58 
7518:6A 
7520!A9 
7528!E5 
7530:80 
7538:55 
7540:65 
7548:55 
7550:55 
7558:65 
7560:55 
7568:55 
7570:65 
7578:55 
7580:95 
7589:50 
7590:56 
7598:A0 
7SA0:A0 
75A8:51 
75B0:01 
75B8:55 
75C0:00 
75C8:5B 
75D0:FF 
75D8:E5 
75E0f44 
75E8:55 
75F0:14 
75F8:00 
7600100 
7608:88 
7610:88 
7618:88 
7620: EC 
7628:00 
7630:3E 
7638:AA 
7640 :AA 
7648:AA 
7650:55 
7658169 
7660:55 
7668 :AA 
7670 :AA 
7678:AA 
7680:02 
7668 iA0 


01  01  01 

54  54  54 
00  00  00 
00  00  00 

00  00  00 

01  09  01 

55  56  56 

55  95  95 
40  60  50 
00  00  00 
03  0E  0F 
F9  F9  FA 
6F  6F  AF 
FF  FF  FF 
E5  E5  EA 
BF  BF  8F 
F9  F9  FA 
ep  6F  AF 
C0  E0  F0 
95  95  95 
05  05  55 

56  56  56 
00  00  00 
00  '00  00 
45  45  55 
00  02  01 
20  22  A9 
00  00  00 
SB  SB  SB 
C3  C3  FF 
E5  E5  E5 
56  55  55 
A9  55  55 

54  54  54 
00  00  00 

00  00  00 

01  09  06 
6D  BO  FD 
68  68  60 
29  29  09 
79  7E  7F 
40  60  90 

55  56  59 
99  56  55 
55  55  95 
55  56  59 
99  S6  55 
55  55  95 
55  56  59 
99  56  55 

55  55  95 

95  95  95 
50  50  5  S 

56  56  56 
50  50  55 

50  50  55 

51  5)  55 
01  01  01 
5  5  55  55 
00  00  00 
5B  5B  5B 
FF  FF  FF 
A5  E5  E5 
45  45  45 
55  55  55 
14  14  14 
00  00  00 

00  00  00 
88  AA  80 
88  AA  88 
88  AA  88 
BF  8F  BF 
C3  EB  EB 
FE  FZ  FE 
BF  BF  BF 
EB  EB  E8 
FE  FE  22 
55  56  59 

96  55  7D 
55  95  65 
95  95  95 

55  41  00 

56  56  56 

01  01  A9 
SO  50  5A 


0]  0] 

54  54 
00  00 
00  00 
00  00 
25  IS 
SQ  6F 
E5  F9 

58  54 
00  00 
2F  3F 
EA  FF 
AB  FF 
FF  FF 
AA  FF 
AF  FF 
EA  FF 
AB  FF 
F8  FC 
95  95 

55  55 

56  56 
00  00 

00  00 
55  55 

01  01 
A9  65 
00  00 
SB  58 
FF  3F 
E5  E5 

54  54 

55  55 

54  54 
00  00 

00  00 
2B  AF 
FD  FF 
60  55 
09  5  5 
7F  FF 
E8  F8 
65  95 

55  55 
6S  59 
65  95 
55  55 
65  59 
65  95 
55  55 
65  59 

95  95 

55  55 

56  56 
5S  5S 
SS  55 
55  55 

01  01 
SS  55 
00  00 
5A  5A 

96  5  5 
A5  A5 
45  45 
5  5  55 

54  54 
00  00 
00  00 
88  AA 
88  AA 
88  AA 
BF  8F 
EB  00 
FE  FZ 
82  80 
28  28 

02  02 
65  95 
FF  7D 

59  56 
B4  9C 
00  00 
IE  35 

55  55 
55  55 


01  a:  50 

54  54  02 

03  00  DF 

00  00  Ee 

00  00  F0 
95  56  6A 
BF  D5  IF 

FE  57  81 
56  95  ca 
00  00  19 
BF  AA  D5 
FF  AA  95 
FF  AA  BS 

FF  AA  E3 

FF  AA  19 

FF  AA  35 

FF  AA  BD 

FF  AA  DD 

FE  AA  61 

95  95  69 

55  50  26 

56  56  79 
00  00  81 

00  00  89 
55  51  7F 

01  01  F8 
55  55  7B 
00  00  A9 
SB  5B  A5 
3F  FF  80 
E5  E5  CI 

54  54  7A 

55  55  BC 

54  14  99 
00  00  Bl 

00  00  EA 
AF  AA  D7 
FF  AA  36 
FF  AA  68 
FF  AA  28 
FF  AA  02 
FE  AA  54 

55  AA  SA 
5  5  AA  89 

56  AA  IF 
55  AA  72 

55  AA  01 

56  AA  37 
55  AA  8A 

55  AA  E9 

56  AA  4F 
95  95  68 

55  SS  0F 

56  56  7B 
55  55  47 
55  55  4F 
55  55  10 

01  01  9B 
55  55  A3 
00  00  AB 
69  A5  0E 
69  AA  43 
69  5A  2C 
5S  55  78 
55  55  D3 

54  54  9F 
00  00  E3 
00  00  EC 
88  88  CI 
88  88  C9 
88  88  DJ 
BF  8F  94 
EB  EB  65 
FE  FE  0B 
80  AA  20 
28  AA  66 

02  AA  13 
95  AA  F4 

55  AA  6D 

5  6  AA  Dl 
90  AA  FF 
00  AA  DA 

06  AA  01 
55  55  69 
55  55  89 


7690! 

7698: 

76A0: 

76Ae: 

7680  s 

7688: 

76C0: 

76C8! 

76O0J 

76D8 

76E0 

76EB 

76F01 

76FB 

7700 

7708 

77101 

7718: 

7720 

7728 

77301 

7738 

7740! 

7748: 

7750 

77581 

7760: 

7768: 

7770: 

7778 

7780 

7788 

7790 

7798: 

7  7A0 

77Aa: 

7780: 

7788: 

7  7C0! 

77C8: 

7  7D0: 

7708: 

7  7E0: 

77E8: 

77F0I 

77F8: 


2A  15 
55  15 
55  15 
55  15 
AA  AA 
AA  AA 
AA  2A 
FC  FF 
FF  FF 
FF  F3 
5  5  56 
A9  FE 

54  54 
00  00 
00  00 
00  00 
3C  FF 
00  00 
A0  A0 
00  00 
0A  0A 
A0  A0 
00  00 
0A  0A 
00  00 

55  55 
40  40 
AA  80 
AA  00 
AA  02 
00  00 
00  00 
0A  AA 
A0  AA 
00  00 
00  00 
00  00 
28  BE 
00  00 
02  00 
A0  8F 
00  00 
BF  BF 
FF  FF 
F8  F8 
00  00 


15  95 
55  54 
SS  54 
55  54 
A8  AA 
A8  AA 
A8  AA 
FF  FF 
FF  FF 
FF  FF 
SB  6F 
FF  FF 
94  E4 
00  00 
00  00 
03  0F 
FF  FF 
C0  F0 
AA  A5 
AA  69 
AA  5A 
A0  A0 
00  00 
0A  0A 
00  00 
55  55 
40  40 
80  80 
00  00 
02  02 
00  00 
0A  AA 
A5  5) 
5A  55 
A0  AA 
00  00 
00  02 
70  D7 
00  80 
00  00 
BD  BD 
F0  F0 
BF  6F 
FF  FF 
F8  E4 
00  00 


55  55 
55  15 
55  15 
55  15 
2A  a8 
2A  A8 
AA  AA 
3F  FF 
3F  FF 
3F  FF 
6F  BF 
FF  FF 
E4  F8 
00  00 
00  00 
3F  FF 
FF  FF 
FC  FF 
AS  A6 

82  00 
5A  9A 
A0  A0 
00  00 
0A  0A 
00  00 
55  55 
40  40 
80  80 

00  00 
02  02 
0A  AA 
AS  5S 
55  45 
15  51 
5A  5  5 
A0  AA 

01  0B 
FF  70 
40  E0 
00  00 

83  80 
F0  00 
6F  5B 
FF  FF 
E4  94 
00  00 


5  5  5  5  D3 
55  55  64 
55  55  6C 
55  55  74 
AA  AA  51 
AA  AA  59 
8A  AA  00 
FF  F3  22 
FF  F3  AS 
FF  F3  00 
BF  BF  2A 
FF  FF  6A 
FS  F8  F3 
00  00  E5 
00  00  EE 
AA  55  EC 
AA  55  C7 
AA  55  CO 
AS  A0  F0 
00  00  17 
2A  0A  3D 
A0  AO  27 
00  00  2F 
0A  0A  37 
00  00  3F 
55  55  47 
40  40  4F 
80  AA  96 
00  AA  5F 
02  AA  64 
A5  55  0B 
51  55  DD 

55  55  B8 
5  5  5  5  11 
35  55  F5 
5A  15  11 
2  7  80  FF 

07  FF  3E 

08  7E  60 
00  00  B8 
30  80  3  3 
00  00  7C 

56  55  79 
i-E  A9  7F 
54  54  7E 
00  00  E7 


Program  3:  The  Construction 
Set — Creature  Character  Set 

See  instruclions  in  article  on  page 
39  before  typing  in. 


7000:00 
7008:00 
7010:00 
7018:00 
7020:00 
7028:14 


7030 

7038 

7040 

7048 

705010C 

7OS8:00 

7060:30 

7068:35 

7070:FF 

7078:5c 

7080 :AA 

7088:AA 

7090 :AA 

7098:00 

70A0 : 2A 

70A3100 

70B0:00 

70B8:D5 

70C0155 

7008:00 

7000 :FF 

70D8:F0 

70E0:00 

70E8115 

70F0:00 

70F8:0O 


00  00  00 

00  00  03 

30  FC  FF 

00  00  00 

00  00  01 

55  55  69 

00  00  40 

03  OF  0F 

FF  FF  FF 

C0  F0  F0 

23  00  00 

00  07  69 

ca  00  00 

05  50  4A 

7D  55  3C 

57  05  A3 

80  80  83 

00  00  FF 

02  02  C2 
00  00  02 
AA  AA  AA 
80  80  A0 

03  0D  0D 
55  55  SS 
C9  7A  7A 
03  0F  3F 
FF  FF  FF 
FC  FF  FF 
00  01  05 
55  55  55 
40  50  54 
00  00  00 


00  00 
03  OF 
FF  FF 

00  C0 
05  3F 
55  FF 
50  FC 
3F  3E 
FF  FF 
FC  BC 

01  05 
S5  55 
40  50 
C8  CO 
3C  3C 
23  03 
8F  8F 
FF  FF 
F2  F2 

02  09 
AA  08 
A0  18 
0D  OA 
55  AA 
70  AO 
3F  30 
3F  3F 
CF  03 
15  55 
55  55 
54  SS 
00  00 


00  00  E0 
05  0A  8) 
55  AA  Fl 
40  80  FC 
55  0A  EA 
55  AA  A9 
5  5  AO  06 
2A  EA  DE 
BE  AA  49 
A8  AB  5E 

15  15  5B 
55  5S  CA 

54  54  CB 
F0  FF  33 
£A  EA  B2 
OF  FF  7B 
8F  8F  88 
FF  FF  BE 
F2  F2  EF 
09  09  E8 
08  59  20 

16  58  Bl 
OA  3F  AB 
AA  FF  84 
AO  FC  F9 
30  30  8B 
0C  0C  CC 
03  03  05 

55  14  EE 
S5  14  68 
55  14  E7 
00  00  09 


7100:00 
7108:0B 
7110:EF 
711S;C0 
7120:25 
7128:EB 
7130:58 
713e:E9 
7140 lAA 
7)48:6Q 
7150:15 
7158:55 
7160:54 
716e:FF 
7170:AA 
7173 :BF 
71S0:8F 
718a :FF 
7190IF2 
7198:02 


55 
70 
55 


71A0 

71Aa 

7180 

71 Q8 

7]C0:BC 

71C8i30 

71D0:0C 

7] 08:03 

7]E0:14 

71E8:D7 

71F0I14 


04 
50 


71F8 

7200 

7206 

7210!OF 

721B!C0 

7220:02 

722a:2A 

7230:20 

7238:0E 

7240:96 

7248:80 

7250:02 

7258:55 

7260:80 

7268:00 

7270!3C 

7278:00 

7280:00 

7288:28 

7290:00 

7298:00 

72A0:AA 

72A8:a0 

72B0!AB 

72BB:55 

72C01E8 

72CS:03 

7  2D01C0 

72D8:0C 

72E0:22 

72E8:55 

72F0:88 

72FB:00 

7300:00 

7308:F3 

7310! OF 

73)8iFF 

7320:55 

7328:55 

7330:55 

7338:FF 

7340 :FF 

7348:FF 

7350!7F 

735a!FF 

73601FD 

7368:B0 

7370 :FF 

7378:0E 

7330:3C 

73B8:AA 

7390I3C 

7398:00 

73A0108 


00  00  00 
0A  20  28 

FE  64  64 

ao  20  A0 

AA  A0  Al 

7D  28  69 

AA  0A  4A 

F9  FA  FB 

AA  BE  FF 

6F  AF  EF 

57  56 

D7  96 

D5  95 

FE  FE  FF 

AA  90  55 

AF  AF  7F 

8F  8F  8F 

FF  FF  FF 

F2  F2  F2 

02  00  00 

A2  A2  AA 

Al  80  80 
2A  FF  BF 

AF  AE  6E 

AC  BF  7E 

3C  0F  0F 

0F  0F  3F 

OF  0C  CC 

05  05  05 
55  51 
50  S0 

00  00  00 

00  00  00 

32  02  03 

56  AA  AB 

F0  00  00 

02  03  03 
80  AA  EA 
A0  B0  F0 

03  00  03 
AA  FF  FF 
C0  00  CO 
05  17  55 
96  69  D7 

50  D4  S5 
00  03  0F 
FF  FF  FF 
00  C0  F0 
00  00  00 
28  2S  28 
00  00  00 
08  22  20 
00  08  80 
28  22  B2 
2A  2A  2A 

07  FF  BE 
A8  AS  AS 
00  00  00 
FC  7F  IF 
30  F0  40 
22  21  22 
96  AA  AA 
88  48  8a 
00  00  00 
00  00  00 
F3  3C  3C 
FF  DF  FF 
CF  3C  3C 

51  SS  IS 
50  55  75 
55  45  45 
F3  F3  F0 
FF  FF  FF 
FF  CF  CF 
5F  17  05 
FF  FF  FF 
F5  D4  00 
A0  28  0A 
FF  FF  BE 
0A  28  A0 
3C  OF  03 
AA  AA  EB 
3C  F0  CO 

08  08  08 
A2  08  A2 


00  00 
2A  22 
9A  9A 
A0  20 
2A  2A 
AA  BE 
A8  A8 
FE  FF 
FF  9  6 
BF  FF 
15  17 
FF  00 

54  D0 
3D  3D 

55  69 
5C  SC 
83  80 
FF  82 
C2  02 
00  00 
80  2A 
80  00 
AD  AF 
7D  FF 
7A  FA 
OF  OF 
F0  FC 
FC  FC 
05  01 
51  96 
50  40 
00  00 
00  00 
03  0D 
EF  FO 
00  CO 
00  35 
FF  4C 
D0  5C 
3F  3F 
FF  FF 
FC  FC 
57  5F 

07  70 
05  F5 
3F  F3 
FF  FF 
FC  CF 
00  00 
28  EB 
00  00 
22  20 
2A  80 
22  62 
0A  0A 
AA  AA 
A0  AO 
00  02 
95  56 
80  00 
22  22 

69  69 

88  ae 

00  00 
00  00 
0F  0D 

70  DF 
F0  70 
J  7  OE 
SS  SO 
54  7C 
FC  3C 
FF  FF 
CF  3C 
02  00 
BF  3F 
A0  00 
82  A0 
AA  28 
82  0A 
00  00 
AF  BE 
00  00 
00  00 

08  A2 


00  00  E2 

03  0A  60 

98  FE  EC 

80  80  90 

OA  OA  86 

82  AA  FB 
AS  A6  BJ 
3E  3A  5C 
AA  A9  54 
BC  AC  DS 

05  01  C3 
FF  7D  04 
50  40  BJ 
35  J7  4B 
6A  AA  2C 

54  B4  C6 
88  AA  D3 
00  AA  20 

2  2  AA  44 
00  00  FC 
2A  08  0) 
00  00  E0 
AB  A9  E6 
D7  AA  6A 
FA  6A  2D 
0F  0F  37 
CF  03  71 
FC  3C  61 

03  0]  2F 
FF  55  B 2 
40  40  45 
00  00  DB 
00  00  E4 
3F  3F  7B 
57  FF  80 
FC  FC  93 

15  15  93 

55  75  97 

54  SS  68 
FF  FF  0C 
FF  FF  IB 
FF  FF  90 
7F  7F  66 
FF  FF  EC 
FD  FD  OA 
FB  EB  4C 
FF  FF  73 
EF  ED  77 
03  0F  7A 
EF  FF  E3 
CO  F0  E7 
20  20  87 
2A  60  OC 
20  82  22 

16  16  98 
AA  AA  2A 
90  94  21 
09  09  52 
53  58  46 
00  00  F5 
22  22  AS 

55  69  23 

83  88  CD 
00  00  00 
00  00  E6 
OF  02  FD 
FF  AB  F9 
FO  C0  2A 

06  0)  FF 
55  SS  33 
AO  40  2A 
3E  0E  00 
FF  FF  27 
BC  BO  BF 
00  03  IS 
7F  DS  OF 
40  FO  EJ 
A4  A6  FB 
00  82  BO 
)A  9A  03 
00  00  A6 
BA  AA  IC 
00  00  CE 
0A  0A  21 
88  00  3B 
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73A8t02 

82 

00 

82 

00 

80 

A8 

28 

04 

7650:00 

00 

00 

01 

01 

07 

55 

55 

71 

7008:00 

00 

40  66 

66 

66 

66 

66  08 

[ 

7380:55 

55 

55 

51 

51 

51 

51 

51 

IB 

7658:14 

55 

55 

55 

54 

55 

FF 

55 

Fl 

70C0102 

26 

66  66 

66 

66 

66 

66  5F 

73B8iAA 

69 

55 

55 

69 

55 

69 

55 

18 

7660:00 

00 

00 

40 

40 

00 

55 

55 

96 

70C8:O0 

00 

00  00 

00 

00 

00 

00  A9 

73C0!55 

S5 

55 

55 

45 

45 

45 

45 

B6 

7668:04 

05 

05 

05 

05 

05 

05 

05 

D4 

70D0104 

04 

04  0C 

0C 

0C 

0C 

0C  AA 

73Ce:25 

09 

09 

02 

02 

00 

00 

00 

D5 

7570143 

41 

41 

41 

41 

41 

41 

4J 

50 

70D8:0O 

00 

00  00 

00 

00 

00 

00  B9 

73D0:58 

58 

58 

5A 

56 

95 

95 

25 

04 

7678:10 

50 

50 

50 

50 

50 

50 

S0 

4S 

70E0100 

00 

00  00 

00 

00 

00 

00  CI 

73DB:00 

00 

00 

00 

80 

80 

80 

60 

27 

76a0:0F 

03 

03 

03 

03 

03 

03 

03 

73 

70E8il4 

14 

14  14 

14 

14 

14 

14  C9 

73E0:2] 

22 

22 

22 

22 

22 

22 

57 

7C 

7688 ;C0 

00 

00 

00 

00 

00 

00 

00 

DS 

70F0100 

00 

00  00 

00 

00 

00 

00  Dl 

73E8!69 

69 

59 

AA 

96 

AA 

AA 

AA 

16 

7690 :FC 

30 

30 

30 

30 

30 

30 

30 

E3 

70Fai00 

00 

00  00 

00 

00 

00 

00  D9 

73F0i4a 

88 

88 

88 

88 

88 

88 

C4 

F3 

7698 :A0 

F0 

F0 

E0 

F0 

FB 

FF 

CF 

85 

7100:00 

00 

00  00 

00 

00 

00 

00  E2 

73FB:00 

00 

00 

00 

00 

00 

00 

00 

OF 

76A0:O0 

00 

00 

00 

00 

00 

C3 

C3 

D8 

7108:A0 

A0 

A0  A0 

A0 

A0 

AO 

A0  EA 

7400:00 

00 

00 

00 

00 

00 

00 

00 

E8 

76A8:0A 

0F 

0F 

0B 

0F 

EF 

FF 

F3 

10 

7110:00 

00 

00  00 

00 

00 

00 

00  F2 

7408 :0F 

0F 

0F 

0F 

0F 

0F 

0F 

0F 

F0 

76B0:FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

90 

7 1 1  a : 0A 

0A 

0A  OA 

0A 

0A 

0A 

0A  FA 

7410JFE 

FF 

CF 

CF 

CF 

CF 

03 

03 

36 

76B8:FF 

FF 

F7 

FF 

FF 

F7 

FF 

FF 

84 

7120:AA 

AA 

AA  AA 

AA 

AA 

AA 

AA  03 

74]8:Aa 

F8 

F8 

F2 

C0 

C0 

00 

C0 

29 

76C01FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

AO 

7128:AA 

AA 

AA  AA 

AA 

AA 

AA 

AA  0B 

7420:01 

00 

05 

15 

35 

DS 

D5 

05 

FD 

76CS:55 

55 

55 

55 

SS 

SS 

SS 

55 

B5 

7130:AA 

AA 

AA  AA 

AA 

AA 

AA 

AA  13 

7428:55 

28 

55 

55 

55 

55 

55 

41 

Bl 

7600:59 

55 

55 

59 

55 

59 

55 

55 

10 

7138:55 

55 

55  55 

55 

55 

55 

55  IB 

7430:00 

00 

50 

54 

SC 

57 

57 

57 

hE 

7608:55 

55 

55 

55 

55 

SS 

55 

55 

C5 

7140:55 

55 

55  55 

55 

55 

55 

SS  23 

7438 :0E 

02 

03 

0F 

0F 

3F 

3F 

3F 

20 

76E0:AA 

80 

AA 

80 

AA 

B0 

AA 

AA 

F7 

7148:55 

55 

55  55 

SS 

55 

55 

SS  2B 

7440tBF 

FF 

FF 

FF 

FF 

FF 

C3 

03 

93 

76E8;AA 

00 

AA 

00 

AA 

00 

AA 

AA 

D5 

71 50  IFF 

FF 

FF  FF 

FF 

FF 

FF 

FF  3  3 

7448 :A0 

C0 

F0 

F0 

F0 

FC 

FC 

FC 

51 

76F0:AA 

02 

AA 

02 

AA 

02 

AA 

AA 

86 

71SaiFF 

FF 

FF  FF 

FF 

FF 

FF 

FF  3B 

7450 :0F 

3F 

0F 

0F 

03 

00 

00 

00 

7B 

76F8:00 

00 

00 

00 

00 

00 

00 

00 

E5 

7160:FF 

FF 

FF  FF 

FF 

FF 

FF 

FF  43 

7458:FF 

FF 

FF 

FF 

FF 

FF 

FF 

3F 

80 

7700:00 

00 

00 

00 

00 

00 

00 

00 

EE 

71681F0 

F0 

F0  FF 

F0 

FO 

F0 

F0  3C 

7460 sFC 

FF 

FC 

FC 

F0 

C0 

C0 

00 

43 

7708:00 

02 

02 

02 

02 

02 

02 

0A 

FD 

71701 3C 

3C 

3C  FF 

3C 

3C 

3C 

3C  8F 

746B:A6 

A6 

26 

06 

82 

A0 

A4 

A6 

F9 

7710:00 

AA 

99 

99 

99 

99 

99 

AA 

B7 

717810F 

0F 

0F  FF 

0F 

0F 

0F 

0F  6A 

7470 :A6 

A6 

A6 

A6 

A6 

24 

00 

82 

DD 

7718:00 

80 

80 

80 

80 

80 

80 

A0 

E6 

7180100 

03 

03  03 

OF 

03 

03 

03  42 

7478 :9A 

OA 

98 

90 

82 

0A 

lA 

9A 

7C 

7720182 

28 

0A 

22 

S2 

00 

00 

02 

D3 

71881FF 

FF 

FF  FF 

FF 

FF 

FF 

FF  6B 

7480:00 

0A 

09 

09 

0A 

09 

09 

09 

2D 

77  28:20 

08 

02 

20 

80 

82 

88 

A0 

2B 

7190: CO 

F0 

F0  F0 

FC 

F0 

F0 

FO  BB 

7488 sAA 

AA 

55 

55 

AA 

55 

55 

55 

IC 

7730:20 

80 

8B 

22 

AS 

00 

00 

00 

C7 

7198:09 

25 

96  5A 

69 

69 

69 

SA  DF 

7490:00 
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90 

7760:AA 

0A 

0A 

AA 

OA 

OA 

AA 

OA 

EA 

74C0I00 

00 

00 

00 

00 

00 

00 

00 

A9 

7768:80 

80 

20 

08 

02 

00 

00 

00 

4C 

74C8j2A 

2A 

AA 

AA 

AA 

55 

55 

15 

BB 

7770:00 

00 

00 

00 

00 

AA 

28 

00 

5A 

74D01A5 

A5 

A5 

A5 

AS 

SA 

5A 

5A 

AA 

7778:02 

02 

OB 

20 

80 

00 

00 

00 

EF 

74D8154 

54 

55 

55 

55 

AA 

AA 

AB 

54 

77801 55 

55 

57 

57 

57 

5C 

5C 

FC 

Bl 

74E0100 

00 

00 

00 

00 

00 

00 

00 

C9 

7788:7D 

C3 

00 

00 

00 

00 

00 

00 

27 

74E8:FF 

BE 

3C 

3C 

3C 

3C 

3C 

BE 

D6 

7790155 

55 

D5 

D5 

D5 

35 

35 

3P 

C4 

74F0:00 

00 

00 

00 

00 

00 

00 

00 

D9 

7798;FF 

C0 

CO 

C0 

CO 

C0 

CO 

FF 

66 

74Fai00 

00 

00 

00 

00 

00 

00 

00 

El 

77A0:FF 

00 

00 

00 

00 

00 

00 

FF 

8F 

7500:00 

00 

00 

00 

00 

00 

00 

00 

EA 

77A8:FF 

03 

03 

03 

03 

03 

03 

FF 

13 

7508155 

55 

00 

00 

55 

55 

00 

00 

F2 

77B0:AA 

BO 

80 

80 

80 

80 

80 

AA 

DE 

7510155 

55 

00 

00 

55 

55 

00 

00 

FA 

77B8:AA 

00 

00 

00 

00 

00 

00 

AA 

A7 

7S18155 

55 

00 

00 

55 

55 

00 

00 

03 

77C0:AA 

02 

02 

02 

02 

02 

02 

AA 

AC 

7520  IFF 

FF 

00 

00 

FF 

FF 

00 

00 

0B 

77C8s66 

99 

66 

99 

66 

99 

66 

99 

B7 

752BSFF 

FF 

00 

00 

FF 

FF 

00 

00 

13 

77D0:66 

99 

66 

99 

66 

99 

66 

99 

BF 

7530IFF 

FF 

00 

00 

FF 

FF 

00 

00 

IB 

77D8:66 

99 

66 

99 

66 

99 

66 

99 

C7 

753e:AA 

AA 

00 

00 

AA 

AA 

00 

00 

23 

77E0:0C 

0C 

FF 

0C 

0C 

FF 

0C 

0C 

IE 

7540 lAA 

AA 

00 

00 

AA 

AA 

00 

00 

2B 

77E8i30 

30 

FF 

30 

30 

FF 

30 

30 

11 

7548iAA 

AA 

00 

00 

AA 

AA 

00 

00 

33 

77F0:C3 

C3 

FF 

C3 

C3 

FF 

C3 

C3 

58 

7550:02 

00 

08 

00 

20 

00 

80 

00 

3F 

77F8100 

00 

00 

00 

00 

00 

00 

00 

E7 

7558100 

00 

00 

00 

00 

00 

00 

00 

43 

7560:80 

00 

20 

00 

08 

00 

02 

00 

D3 

128  1 

r\i 

"1< 

;  1 

AL 

r^A 

7568100 

00 

0A 

AA 

2A 

02 

00 

00 

98 

Di 

J: 

>  1 

m 

^d 

g( 

> 

75  70: 0A 

AA 

AS 

80 

A0 

AA 

2A 

02 

2E 

C7 

7578iAe 

80 

00 

00 

00 

00 

A0 

AA 

C3 

See  instructiom 

iji 

article 

OJl 

page 

7580IFC 

FC 

AA 

FF 

FF 

AA 

FF 

AA 

D3 

V*  T  Im  £^  ^ 

r    o 

7588iCC 

CC 

AA 

FF 

FF 

AA 

FF 

AA 

B7 

42  before  lypitjg  in 

7590:FP 

FP 

AA 

FF 

FF 

AA 

FF 

AA 

26 

1A00:AD 

04 

03 

AE 

05 

03 

BD 

ca 

6P 

7  5  90100 

01 

01 

05 

05 

15 

15 

55 

30 

1A0B:1A 

BE 

C9 

lA 

A9 

23 

A2 

lA 

01 

7  5A0I55 

55 

55 

55 

55 

55 

55 

55 

8B 

lAlOiSD 

04 

03 

8E 

05 

03 

60 

AD 

F7 

75Aaj55 

55 

55 

55 

55 

55 

55 

55 

93 

1A18:C8 

lA 

AE 

C9 

lA 

20 

10 

lA 

35 

75B0J55 

55 

55 

55 

55 

55 

55 

55 

9B 

1A20:4C 

37 

4D 

AD 

00 

02 

A0 

09 

IP 

75B8155 

55 

55 

55 

55 

55 

55 

55 

A3 

lA28tD9 

DE 

lA 

F0 

06 

B8 

10 

F8 

BE 

75C0t00 

40 

40 

50 

50 

54 

S4 

55 

9A 

1A30:6C 

C8 

lA 

98 

0A 

48 

20 

6D 

B8 

7SC8il5 

05 

05 

01 

01 

00 

00 

00 

38 

1A3B:1A 

68 

AS 

B9 

CB 

lA 

48 

B9 

55 

7  5D015A 

SA 

SA 

5A 

5A 

SA 

5A 

IB 

79 

1A40:CA 

lA 

48 

60 

BA 

F0 

20 

A2 

6A 

75d8iA8 

A0 

A0 

B0 

80 

00 

00 

00 

60 

lA48:a3 

A0 

0C 

20 

BD 

FF 

A2 

00 

DC 

75E0:00 

02 

03 

OB 

OF 

2F 

3F 

AA 

BB 

1A50:20 

68 

FF 

A9 

0F 

A2 

08 

A8 

05 

75E8:FF 

FF 

FF 

FF 

FF 

FF 

FF 

AA 

7E 

1A58:20 

BA 

FF 

20 

C0 

FF 

A9 

0F 

B5 

75F0100 

80 

CO 

EO 

FO 

F8 

FC 

AA 

32 

lA60:3a 

20 

C3 

FF 

4C 

37 

4D 

A2 

ftD 

75FBt00 

00 

00 

00 

00 

00 

00 

00 

E3 

lA6a:E8 

A0 

lA 

D0 

4F 

A2 

FF 

20 

ftE 

7600 1 00 

00 

00 

00 

00 

00 

00 

00 

EC 

1A7O180 

03 

F0 

11 

C9 

22 

F0 

04 

91 

:F0 

:20 


1A78:E8 

lA80:a4 

lA8a:9D 

1A90:60 

1A98 : 2A 

1AA0: 

1AA8: 

1AB0:A2 

lAB8iA2 

1AC0:A9 

1AC8;00 

1AD0 1 90 

1AD8:A1 

1AE0124 

1AE8:99 


9D  03 
C9  22 
03  0C 
8A  D0 
an  03 
2C  A0 
D0    07 

FE  aE 

00  A0 
22  80 
00  43 
lA  9E 
lA  AD 
2A  2F 
44  53 


OC  C8 
D0  F3 
8D  00 
08  8D 
0C  AO 
8A  2C 
A0  11 
00  0C 
0C  86 
02  0C 
lA  43 
lA  AA 
lA  16 
25  5F 
24  00 


Bl  3D 
Ea  A9 
FF  85 
04  0C 
EE  2C 
A0  EF 
2C  A0 
8C  01 
3D  84 
4C  DC 
lA  90 
lA  A4 
lA  40 
5E  3B 
00  00 


F0  22 
00  11 
7A  2C 
A9  70 
A0  20 
A2  7B 
14  9A 
0C  68 
3E  83 
4D  BC 
lA  C4 
lA  6A 
3E  93 
21  F5 
00  A7 


BEFORE  TYPING  .  .  . 

Before  typing  in  programs,  please 
refer  to  "How  to  Type  In 
COMPUTEI's  GAZETTE  Programs," 
elsewhere  in  this  issue. 


Vocab  Builder 

Article  on  page  23. 

HR  5  S'!ra65517iIFPEEK(781  )  =  40TH 

ENPRINT" [WHT] " iGOTOlO 
KB  6  PRINT" [BLK}" 
RX  10  PR1NTCHR$(14):DIMA*( )O0) 

,  WS  ( 1  00  ) ,  D$  (100  ) ,  IJB5  t  ]  00 

)tD=0 
PD    30    PRINT "ICLR)  17    DOWNJUVS] 

ENTER   YOUR    tJAME[OFP)  "  :  IN 

PUTNM5 : I FLEN ( NM$ ) -OTHENS 

0 
EK    35    IFLEN(NM5)>13THENNM$=LEF 

T5(NM5,13) 
PA    50    PRINT"lCLR)lRVS}"TAB(INT 

((22-LEN(NM5))/2)-l)NM$; 

"  'SlOFF}":PRIiJTTAD(3)" 

{RVSjyOCAUULARY   TEST 

[OFF)" 
PH  55  N$=""tA5="":B$a"",DA5="" 

:X%=0:I=.0:J=0iFORQ=lTO10 

0:A%(Q)=0:W5tQ)="":D9(Q) 

_ll  (I 

KF  60  WRS(Q)="":NEXT:PRIHTSPC( 
9);  "[2  DOVmi MENU": PRINTS 
PC (2), -"[2  DOWNjl)  ENTER 
{SPACE) NEW  WORDS" 

JD  80  PRINTSPC(2)T"[DOWN!2)  ST 
UDY  YOUR  WORDS" iPRINTSPC 
(2);'^(DOWNj3)  TAKE  A  TES 

QC  100  PRINTSPC(2}r  "{D0tm}4)  E 

ND": PRINT" {2  DOWNJIrVST 
PRESS  1-4  TO  CONTINUE 

{OFF}" 
DX  120  GETZ5!C5-Z?:V'>VAL{25)  :I 

PZS=""OR{V<10RV>4}THEN1 

20 
GF    130    IFV-4THEN190 
SR    140    INPUT" 12    DOWN)(RVSjD 

(OFF)ISK   OR    {RVSJT(oFF) 

APE";ZS:IFZ?<>"T"ANDZS< 

>"D"THENPRINT"[4  UPj":G 

OTO130 
QF  150  A9=" (LEFT) 122  SPACES )" i 

IFZ5-"D"THEND"). 
GQ  160  ONVGOTO230, 810,810 
FC  190  END 
CH  230  PRINT"[CLR) [6  D0WN)ENTE 

R  t  OF  NEW  WORDS  " 
KS  235  IKPUTX%:IFX%>100ORX%<1T 

HEN230 
MB  250  FORI=lTOX* 
BH  260  PRINT"[CLR) (3  D0WN)ENTE 

H  WORD"I:INPUTW5(I) 
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GP  26S  IFLEN(WS(I> )=0THENPRIHT 

"{6    UP)"sGOTO260 
CE  270  PRINT" iDOiralENTER  DEFIW 

ITION":INPUTDS(I) 
JS  275  1FLEN(D$(I))=0THENPRIMT 

"{3  UP)"!GOTO270 
SD  280  NEXT 

QA  300  PRINT" [CLR)"!F0RI=3T0X% 
GA  310  PRINT"  W0RD"1"ILEFT!  :•■; 

WSdl 
RB  320  PRINT" {DOWN}  DEFINITION 

:"D5(I) : PRINT" [DOWN}" 
RC  339  IF{I/3)=INT(I/3)ANDX%=3 

THEN350 
CF  332  IF(1/3)='INT(I/3)ANDXS<* 

ITHENGOSUB2000 
FG  340  NEXT 
PM  360  PRINT" [DOWN} I RVSj ANY  CO 

RRECTIOHS(Y/N)?  [OFF}"^ 
AR  380  GETZ5!lFa5=""OR(2?<>"Y" 

ANDZ5<>"N")THEN380 
PG  390  IFZ$="Y"THEN420 
FX  400  IFZ?="N"THEN520 
GR  420  1=0  I  INPUT" [CLR} [4  DOWN) 

WHICH  ENTRY"; I 
DH  435  IFI»0ORI>XSTHENPRINT" 

[4  UP}":GOTO420 
PX  440  PRINT" 12  DOWN} WORD" I" 

{LEFT} ! "rW5(l) 
PF  450  PRINT" [DOWN} DEFINITION! 

";D${1) 
HF  470  PRINT" 12  DOWN}ENTER  WOR 

D"l!lNPUTW? 
CG  480  W$(I )=W5 
CK  490  PRINT"  {D0V;N}  ENTER  DEFIN 

ITZON"!lNPUTD5 
CG  500  D$(I )=D5 
MB  5J0  G0T03fla 
CQ  520  INPUT"  {2  D01JN)T0DAY' S  D 

ATE  I  " ; DA? 
KM  540  PRIMT"{CLB){a  DOWN) 

{5  SPACES) [RVSj PLEASE  W 

AIT" 
KE  550  PRINT" {2  DOWN) { RVS } I ' H 

(SPACE) SAVING  YOUR  WORD 

s  {0FF)T2  down!" 

HP  560  N5='"TEST  '■  +  DA5 

PD  565  IFD=1THENNS="TEST  "+DAS 

+",S,W" 
CC  5  70  OPEN3  5,8, 15;OPENl+D,l+7 

*D,  1+D ,  N?  :  INPUT! ).5 ,  A? ,  B 

5 
PJ  572  IFAS="63"THENCLOSE(J.+D) 

: CLOSE 1 5;GOTO5  20 
PG  575  IFAS<>"O0"THENPRIMTH$!F 

ORl=]TO3000i NEXT: CLOSE ( 

)+D) !CLOSE15:GOTO50 
PG  580  PRINT* (]+D),X%tF0RI=lTO 

X% 
QJ  590  PRINT* (] +D) ,W?{I) :PRINT 

#<1+D),D5(I) 
AK  600  NEXTI  :  CLOSE  ( 1.+D)  :  CLOSE  1 

5: GOTO 50 

qp  83  0  print" i clr} {down]  [rvsj 
a  test  hade  just  for 
Toff ) " : printtab( int ( ( 22 

-LEN{NH5) )/2)-] )"[RVSj" 

NM5"l0FFj" 
BB  820  PRINT"[2  DOWNlENTER  THE 

TEST  DATE  " : INPUTDAS 
DQ  870  PRINT"TCLR) [5  DOWN} 

[5  S P ACES }{RVS) PLEASE  W 

AIT" 
JH  8B0  PRINT" [DOWN) 12  SPACES} 

(RVSj LOADING  THE  WORDS 

{ OFF  J " 
DO  893  NS="TEST  "+DA5 
JJ  S95  IFD=1THENNS="TEST  "+DAS 

+",S, R" 
AG  9m    OPEN! 5,8, 15:QFEN1+D. 1+7 

*D,2*D,N$iINPUT#l 5, A5,D 


QP  902  IFAS="62"THENCLOSEl+D:C 

LOSE! 5:GOTO810 
JC  505  IFAS<>"00"THENPRINTB$:F 
ORI  =  1 T03  000 : NEXT : CLOSE ( 
1+0) :CL0SE15!G0T050 
HA  910  INPUT* t 1+D) ,X%:F0RI=1 TO 
X% 

IHPUTl(l+D),WS(I> 
I FWS  (I  )  = " " THENGOTO  950 
GOTO960 
I=XI:GOTO970 
INPUT#(1+D),D5(I) 
NEXTI 
CLOSE(]+D) iCLOSElS 

FORI=rrOX% 

A%  =  X**RND  ( I  }  +  ).  :  IFI  =  ]  TH 

ENA%(I  )=A%:GOTOJ,070 

FORJ=)TOX* 

IFA%-'A%  (J  )THENJ=X%sNEX 

T: GOTO] 040 

NEXT 

A%(I)=A%:NEXT 

IFC?  =  "2"THENGOTO]5].0 

PRINT" (CLR) {DOWN] { RVS ] 
";NMS;  "'S  QUIZ  [OFF)" 

N%=0 

F0RI=1T0X% 

PRINT" [2  DOWN)" 

N=AI(I} 

print"definition!    " ; :p 
rintdsTm) 

mp  1j.80  print"  {down}  enter  the 
{  space  }  word"  :  inpljtwo?  : 
ifwo5=""then1i80 

ea  1190  ifw05='w?(n}thenprint" 
[down] correct  1"|f0r2= 
ito),500:  next  :got01 230 

rs  1200  print" [down} sorry,  the 

WORD  \«St":PRINTW5(N) 
!F0RZ=1 TO 1500; NEXT 


FJ 

920 

OF 

9  30 

CC 

940 

QK 

950 

MK 

960 

JD 

970 

MP 

980 

EK 

1030 

CM 

1.040 

CP 

1050 

CA 

1. 060 

CF 

1065 

QH 

1070 

DX 

1110 

BF 

1)20 

SS 

1130 

BS 

3140 

BX 

1  150 

Hii 

1)60 

DG 

1170 

FC 

1210 

M%=N|+1 

KK 

1220 

HR?{N)=W5(N) 

KH 

1230 

PRINT" ( CLR) "tNEXTI 

AG 

1250 

PRINT" [6  DOWN) YOU  GOT" 
N%"WRONG"jPRINT"OUT  OF 
"X%:GOSUB]900:IFN%=0Tn 
EN2100 

BA 

1260 

FORI=1TO3000:NEXT 

GQ 

1270 

PRINT" (CLR) [2  DOWN) THE 
WORD(S)  THAT  YOU":PRI 
NT "GOT  WRONG  ARE:" 

FF 

1280 

J  =  l 1 PQS0  tFORI  =  lTOXi 

EF 

1290 

IFWRS(I)=""THEN1310 

QB 

1300 

PQ=PQ+l:PRINT"[DOWN)"; 
WR5(I) 

XJ 

1305 

IFPQ<>5*JTHEN1310 

QP 

1306 

J=J  +  )  :  PRINT  "iDCVmJ 
[RVSj ANY  KEY  TO  CONTIN 
UE[OFF)"!POKE198,0' 

AD 

130  7 

GETZ5 : IFZ5=""THEN1307 

PF 

1308 

PRl NT " { CLR } " : NEXT  I : GOT 
050 

FP 

13]  0 

NEXTI tGOSUB200OtGOTO50 

RQ 

1510 

PRINT"  ICLRH  RVS)  HIT  T 
HE  IBOOKS  " 

RH 

1520 

N%=0 

JM 

1530 

F0RI=-1T0X% 

EQ 

1540 

PRINT" 12  DOWN j " : N=A* < I 
) 

PA 

1550 

J%=llJ)*=) 

QX 

1560 

PRINT "DEFINITION!  ";:P 
RINTDSTS) 

BC 

1570 

W05=  "  •'  J  PRI  NT  "  {  DOWN)  ENT 
ER  THE  W0RD":INPUTW0$ 

DQ 

1580 

IFWOS=W?{N)THENPRINT" 
[down] CORRECT  l":G0TOl 
790 

MP 

1590 

IFLEFT5 (W05, 2 )=LEFT$ (W 
5(N),2)THENGOTO1610 

DP 

1600 

GOTO 16 80 

RA 

1610 

IFJ11>1THENGOTO1750 

HJ 

1620 

PRINT "[DOWN [YOU'RE  CLO 

SE"i PRINT "TRY  AGAIN" 
PG  1630  J1%=J]%+) 
KP  1640  IFW5(N)=WR5(N) THENGOTO 

1670 
SF  3650  WR?(N)=W5(N) 
HJ  1670  PRINT" [2  DOWN ] " : GOTOl 5 

60 
OB  1680  IFJ%>2THENGOTO1750 
HR  )690  PRINT" [DOWNjSORRY,  ";N 

M5:PRlNT"YOU'^RE  NOT  EV 

EN  CLOSE" J  PRINT "[DOWN} 

TRY  AGAIN" 
CG  1691  FORZ=1TO2500;NEXT!PRIN 

T"lCLR}" 
XA  1700  PRINT" 12  DOWN]":J%=J%+ 

) 
RP  1710  IFW$(N)>=WR$<N)THENCOTO 

1740 
RK  )720  WRS(N)=WS(N) 
QD  1740  GOTOl 560 

FR  17  50  PRINT" 1  DOWN} SORRY,  THE 
WORD  WAS:" !PRINT" 

[down)  "W$(N) :FORZ=1TO 

3000 jNEXT: PRINT" (CLR)" 
CS  3  760  IFHS(N)=WRS(N)THENGOTO 

1790 
SR  )770  WRS{N)=WS(N) 
EJ  1700  N%=«N%+I 
BA  )790  FORTD")TO)SOO:NEXT:PRI 

NT" [CLR) " r NEXT I: GOTO  12 

50 
XJ  1900  IFNi=0THENPRINT" 

{2  DOWN] (RVS {GREAT  JOB 

": RETURN 
BD  1930  M=)fl-(N%/X?*10) 
PS  1920  IFN<6.5THENPRINT" 

{DOWN J  BETTER  STUDY  MOR 

E"s RETURN 
KG  1930  IFN<8THENPRINT"{D0WN}A 
LITTLE  MORE  STUDY": PR 

INT"NEEDED"!RETURH 
FC  1940  IFN<9Tm;NPRINT"{D0WN}N 

OT  BAD": RETURN 
ED  1950  IFN<9.5THENPR1NT" 

{DOWN {GOOD  JOB": RETURN 
HH  1960  IFN<10TliENPRINT"{DOWN) 

VERY  GOOD" RETURN 
DQ  1970  RETURN 
BC  2000  PR INT "{DOWN) {RVS]  ANY 

[SPACEJKEY  TO  CONTINUE 

(2  SPACES)" 
QA  2001  GETWr5tIFMT5''""THEN200 

1 
PX  2002  PRINT" 1CLR}":RETURN 
CG  2100  GOSUB20001GOTOS0 


BEFORE  TYPING  ,  .  . 

Before  typing  in  programs,  please 
refer  to  "How  to  Type  In 
COMPUTERS  GAZETTE  Programs," 
elsewhere  in  this  issue. 


64  Mode  Speed-Up 


Article  on  page  44. 


XB  10  PRINT" (CLR) I WHT} SPEED  UP 

-  64  MODE  ONLY" 
KQ  20  F0RI"49152TO492  5a:READX: 

C"C+X ; POKEI , X : NEXT 
BQ  30  IFC<>12470THENPRINT"DATA 

ERROR" 5  END 
ER  40  SYS  49152 
XA  50  DATA  120,17  3,105,192,141 

,18, 208, 173 
GX  60  DATA  17,208,4) , 127, 141, 1 

7,208,159 
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RK  70  DATA  129,141,26,208,169, 

192,160,3  2 
QM  80  DATA  14  1 , 2} , 3, 140, 20, 3 , 8 

8,96 
EP  90  DATA  )73, 25,208, 14J ,25, 2 

08,41,1 
SQ  100  DATA  208,3,76,49,234,17 

3, 18,208 
JA  13  0  DATA  205,106,192,176,14 

,172,106,192 
MX  120  DATA  ] 40, 1 8, 208, ) 69, 0,  1 

41,48,208 
XX  .130  DATA  76,78,192,172,105, 

192,140,  13 
HP  140  DATA  208, 169, 1,) 41 ,48,2 

08, 104, 168 
QD  150  DATA  104,170,1.04,64,120 

,169,234,141 
MB  160  DATA  21,3,169,49,141,20 

,3,169 
EP  170  DATA  0,141,48,208,141,2 

6, 208,88 
FS  180  DATA  96, 50, 250 

Printer  Wedge 

Article  on  page  54. 

Program  1:  Printer  Wedge- 
Main  Program 

ED  10  BS"135atS0=) 60:31=32 :D0= 
209:01=81  :M=1  !MF(0  )  =  1  : FO 
RJ=lT06sM=M*2:MF(J>=H:NE 
XT 

AQ    20    PRINTCliRS(147)CHRS{5}" 
[3    SPACES j PRINTER   WEDGE 
(SPACE) CHARACTER   DESIGNE 
R" 

HJ    30    PRINTCHRS(17)"M0VE    WITH 
I  SPACE) CURSOR    KEYS" 

JE  40  PRINT"PLACE  DOT  WITH  F7" 
SPRINT" ERASE    DOT   WITH    F8 


PR1NTCHR5() 7) "ASSIGN  CHA 
RACTER  WITH  Fl" 
FORI =1T0  5 ; PRINTCHRS (17): 
NEXT!PRINT"ASSIGN  CHARAC 
TER  STRING  WITH  F3" 
PRINT"ACTIVATE  WEDGE  WIT 
H    F2" 

CH=S0 : FORI =0TO9: FOR J=0TO 
6iGOSUmi0jAR(I,j)=0sNEX 
TJsNEXTI 

1=0;J=0:CH=S1:GOSUB110:G 
OTO140 
I=0:J=0:CH=SJ.  iGOSUBllB: 
GOTO 140 

X=BS+H-J*40  !  POKEX,  CH:  PO 
KEX+S4272, 1 : RETURN 
GETZ?iIFZ5=""THEN120 
RETURN 

aOSUB120!DC=0!REM   *CHAR 
ACTER    EDITOR* 
IFZ5=>CHRS  { 29  )THENDC=1 
1PZ$=CHRS(157)THENDC=2 
IFZ5=CHRS ( 17 )THENDC=3 
I FZ$  =CHR5 ( 145 ) THENDC=4 
IFDO0THENGOSUB  3  70  !  GOSU 
B380 

ONDCGOSUB290,310,330,  35 
0 

GOSUB370 ! 1FDC>OANDLC=S0 
THENCH=Sl!GOSUB110 
IFDC>0ANDLC=D0THEtJCH=Dl 
:GOSUB110 

IFZ5=CHRS ( 136 )THENAR{  I , 
J)=ltCH=Dl:GOSUB110 
IFZ5=CHR5(.140)THENAR(I, 
J  )  "0 !  CWS 1 1  GOSUBl  10 


XJ 

50 

EC 

60 

EK 

70 

FC 

80 

MQ 

90 

RS 

100 

CF 

110 

DO 

120 

SS 

130 

EQ 

140 

MR 

150 

EG 

160 

GS 

170 

KA 

180 

SG 

190 

AQ 

200 

JC 

2)0 

HS 

220 

SJ 

230 

CS 

240 

JE    250    IPZ5=CHRS(133)THEN4]0 
AA    260    IFZ5=CHRSU37}THENPRINT 

CHR? ( 1 47 ) CHR5 (17)" PLEAS 

E    WAIT":GOTO660 
SS    270    IF2$=CHR? (134}THEN550 
AE    280    GOTO140 
EH    290    1=1+] :IFI>9THENI=0 
HJ    300    RETURN 
OP    310    1=1-1 :IFI<0THENI=9 
XM    320    RETURN 
JF    330   J=J+1 :IFJ>6THENJ=0 
HP    340    RETURN 
GM    350    J=J-1:IFJ<0THENJ=6 
XR    360    RETURN 
CC    370    LC=PEEK(BS+I+J*40):RETU 

RN 
JB    380    IFLC=S1THENCH=S0 
BK    390    IFLC=D]THENCH=D0 
EA    400    GOSUB110: RETURN 
HA    410    FORI =0TO9: REM    *COHFUTE 

(space) CHARACTER* 
GR    420    CL(I)=128:FORJ=0TO6!CH 

I)=CL(I)+AR(I,J)*MF(J) : 

NEXTJ:NEXTI 
HR  430  PRINT"ASSIGN  CHARACTER 

(space) TO  WHICH  KEY?" 
BM  440  GOSUBl 20 : Z=ASC ( Z? ) !B=30 

00  +  Z*1.0jREM  *PRINT  DATA 
STATEMENTS* 
ER  450  PRINTCHR5(147)CHRS(n)C 

HR5 (17 )CHRS { 17)B"DATA"Z 

" (4  SPACES] "; 
AF  460  FORI=0TO9:IFCL(I )=] 28AN 

DCL(I+J.  )=123THEN480 
HC  470  PRINT","CL(I)CHR$(157); 

: NEXT I 
MP  480  PRINT:F0RDX=1T05!PRINT3 

000+Z*10+DX:NEXT 
OK  490  PRINT"RUN"CHH?(19}; jFOR 

J=1T03:PRINTCHR$(]7); :N 

EXT 
JP  500  FORJ=lTOJ4! PRINTCHRS (29 

)r :NEXT:PRINT","ICHRS(1 

9) 
EF    510    1F1>0THEN540 
JG    520    PRINTCHRS ( 19 ); !F0RJ=1T0 

3 : PRINTCHR5 (17); : NEXT 
SQ    530    FORJ=1TO20:PRINTC1!RS(32 

) r : NEXT 
CB    540    POKE198,9:FORI=0TO8!POK 

E6  31 +1 , 1 3 : NEXT : END 
RA    550    PRINTCHRS (147) "ENTER    CH 

ARACTER   STRING" iINPUTAS 

:L=LEN(A5) ! IFL<10RL>39T 

liEN550 

RK  560  PRINT"ASSIGN  TO  WHICH  K 

EY7" ! GOSUB120 !DX=0 : Z=AS 

C(Z?):I=l!B=3000+Z*10+D 

X 
ED  570  PRINTCHR?(147)CHR5(17}C 

HR?  ( 17  )  CHR5  ( 1.7  )  B"  DATA"Z 

" ( 4  S  PACES ) , 1 5 , 1 7 " ; : LX= 

2 
CM  580  PRINT", "ASC(M1DS(A?, I, 1 

))CHR?(157)  ;:LX  =  [,X+1  :I  = 

I+l 
RQ  590  IFLX>9ANDI<=LTHENLX=0:D 

X=DX+1 :B=3000+Z*10+DX!G 

OSU36S0 
MJ  600  IFI<=LTHEN580 
RX  610  PRINT !F0RDX=DX+)T05:PRI 

NT3000+Z*)O+DX)NEXT 
EA  620  PRINT"RUN"CHRS(19); tFOR 

J=]T03j PRINTCHRS (17); jN 

EXT 
CJ  630  F0RJ=1T014! PRINTCHRS (29 

); : NEXT: PRINT", "L+2 
RM  640  PRINTCHRS (J  9) I  POKE!  98,  9 

:FORI=0TO8;POKE631+I, 13 

: NEXT: END 
PJ  650  PRINTCHRS (13) n"DATA"ASC 

(mIDS(A$,I, 1)}CHK5(157) 


;:LX=LX+1 : 1=1+1 : RETURN 
JX  660  FORI=57344TOS7452:REM  P 

OKE  HI  CODE 
SA  670  RE A DA: POKE I, A: NEXT 
GC  680  PRINTCHRS (147)" 

(2  SPACESjWHERE  SHOULD 
(SPACE) PWEDGE  BE  LOCATE 

D7" 
AG  690  PRINTCHRS (17) "854 

(3  SPACES )=  CASSETTE  BU 

FFER" 
PE  700  PRINT"679(3  SPACES )=  UN 

USED  RAM  (MAYBE)" 
XD  710  PRINT"49J52  =  RESERVED 

(SPACE)FOR  ml  PROGRAMS" 
BK  720  PRINTCHRS (1 7) "LOCATION 
(3  SPACES }854"CHRS (157) 

CHRS(157)CHRS(157)CHR5( 

157)CHRS(157)f 
CR    730    INPUTBA:F0RI=BATOBA+59: 

READA:POKEI,A:NEXT 
FG    740    IFBA=8  54THEN83  0 
SP    750    P=BA+63:GOSUB990:POKEBA 

+10, L:P0KERA+1] , H:P0KEB 

A+49, L: POKEBA+50,H 
CR    760    P=BA+61 :GOSUB990:POKEBA 

+13, LiPOKEnA+14,H:POKEB 

A+5  2,LiPOKEBA+53,H 
JS    770   P«-BA+62:GOSUQ990:POKEBA 

+1 , Ll POKEBA+2 , H: POKEBA+ 

55,L:POKEBA+56,H 
RG    780    POKE57354,L:POKE57355,H 

:POKE57449,L:POKES74S0, 

H 
JK    790    P=BA+64:GOSUB990:POKEBA 

+39, L: POKEBA+40,H:POKE5 

7409,L!POKE574)a,H 
PQ    800    POKE57425, L:POKE57426,H 

:POKE57437, L: POKES7438, 

H 
RS    810    POKE57443,L:POKE57444,H 
MK    820    P=BA+25:GOSUB990:POKE57 

395,L!POKE57396,H 
BD    830    P=BA:GOSUB990!POKEe06,L 

!POKE807,H 
EH    840    REM    POKE    CHARACTER    DATA 
JF    850    1=57601 !CT=0:Z=I +256 
HJ    860    READC:IFC=0THENPOKEZ-25 

7,CT:POKEZ+255, 0:GOTO91 

0 
HR    870    READL:IF(L+I+3)>=ZTHEN8 

90 
KX    880    POKEI,C:POKEI+l,L:FORK= 

1TOL:READA:POKEI+1+K,A: 

NEXT:I  =  I+L+2:CT=CT+1  : GO 

TO860 
SG    890    POKEZ-257,CT!CT=l:l=2:2 

=1+256 :P0KEI,C!P0KEI+1, 

h 
CO   900    PORK=1TOL:READA:POKE1+1 

+K,A:NEXT:I=I+L+2:G0TO8 

60 
KM    910    PRINTCHRS (147) "PWEDGE    I 

S    NOW    INSTALLED." 
SD    920    PRINTCHRSC 7)"D0   YOU   WA 

NT    A    PRINTER   TEST?" 
DD    930    GOSU8120:IFZ?<>"y"THENS 

ND 
QC    940    0PEN4,4, 7!PRINT#4, "THE 

(space) QUICK    BROWN    FOX 

(SPACE) JUMPED    OVER    THE 

fSPACE)LAZY    DOG." 
GE    950    FORI=33T064:PRINT#4,CHR 

S{I)! : NEXT: PRINT #4 
AQ   960    F0RI=65TO96:PRINT*4,CHR 

${1 )r:NEXT:PRINT»4 
JP    970    F0RI=193T0218!PRINT#4,C 

HR?(I); ! NEXT: PRINT *4:CL 

0SE4 
GD  960  END 
BD  990  H=INT(P/256) :L=P-H*256: 

RETURN 
BD  ]000  REM  *HI  CODE* 
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BA  1010  DATA  172,0,225,192,0,2 

40,32,162,1,173 
DX  1020  DATA  148,3,221,0,225,2 

40,36,232,138,24 
EA  1030  DATA  125,0,225,170,232 

,  136,208, 237, 238,2 
RK  1040  DATA  224,238,14,224,23 

8, 22, 224, 206,217,  169 
GQ  1050  DATA  225,141,2,224,141 

, 14, 224, 141 , 22, 224 
GG  1060  DATA  76,111,3,173,2,22 

4, 141,70, 224, 141 
DO  1070  DATA  79,224,169,8,141, 

150,3,232, 189,0 
KM  1080  DATA  225,141,109,224,1 

60,1,232,189,0,225 
QR  1090  DATA  153,150,3,232,200 

,206, 109,224, 208,243 
PG    1100    DATA   169,128,153,150,3 

, 200, 169, 15, 153,  150 
GX   1110   DATA    3,200,169,17,141, 

148, 3, 208, 186 
QB  1200  REM  *LO  CODE* 
GQ    1210    DATA    141,148,3,165,154 

,201,4, 208,45,142 
RD   J  220    DATA    146,3,140,14  7,3,1 

20,165, 1,41,253 
KM    J230    DATA    133,1,76,0,224,16 

5,1,9,2,133 
PF  1240  DATA  ] , 88, 192 , 0, 240, 12 

, 162,0, 189,150 
PH  1250  DATA  3,32,202,241,232, 

136, 208,246, 174,. 146 
AJ  1260  DATA  3,172,147,3,173,1 

48,3,76,202,241 
RD  10000  DATA  0 

Program  2:  Character  Set  I 

mq  2999  rem  *noh  proportional 
EspaceJspaced-  G,    p  an 
d  0  modified* 

hB  3340  DATA  34,5,128,135,128, 
135,128,71,5,136, 212 

EP  3710  DATA  212,212,184,80,5, 
252,148, 148,148,  136 

PR  3800  DATA  81,5,184,196,212, 
164,216 

Program  3:  Character  Set  2 

SK  3000  REM  •PROPORTIONAL  SPAC 

ED  CHARACTERS  WITHOUT 

i SPACE ) DESCENDERS  * 
JK  3010  DATA34,4, 128, 135, 129,1 

35,39,3,  132,  130 
DQ  3020  DATA! 29,66,4,255,196,1 

96, 184,67,4,184 
GD  3030  DATA196, 196,196,68,4,1 

84,196, 196,255.69 
DD  3040  DATA4, 184,212, 212, 152, 

71,5,136,212,212 
PA  3050  DATA212, 184,72,4,255,1 

36,132,248,73,3 
BD  3060  DATA196,253,192,74,4,1 

60,192, 192, 189,75 
MJ  3070  DATA4, 255, 144, 168,196, 

76,3, 129,255, 192 
CM  3060  DATA7  7, 7, 252,132,132,1 

84,132, 132,248,79 
SJ  3090  DATA4,184,196,196,184, 

80,5,252,148, 148 
AE  3100  DATA148,136,81,5,184,1 

96,212, 164, 220,82 
QK  3110  DATA4,252,136,132,132, 

86,5,  156,  1.60,  192 
FC  3120  DATA160, 156,87,7, 188, 1 

92, 192,184,192, 192 
QS  3130  DATA252,89,4, 204, 208,2 

08,188,201,3,193 
MK  3140  DATA2  5  5,193,205,7, 255, 

130,132, 152,132, 130 
AQ  3150  DATA2S5, 215,7, 255, 160, 

144,140,144,160,255 
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Program  4;  Character  Set  3 

PR  3000  REM  *PROP0RTI0NAL  SPAC 

ED  CHARACTERS  WITH  DES 

GENDERS* 
HC  3010  DATA17, 5, 129,133,148,2 

08,192,33,1,175 
HM  3020  DATA34, 3, 13  5, 128,135,3 

7,6, 163,147,136 
FS  3030  DATA132,178,177,39,3,1 

32.130. 129.40.3 

PQ  3040  DATA140,146,161,41,3,1 

61,146, 140,44,2 
MD  3050  DATA192, 176,46, 2, 176,1 

76,47,6,160,144 
SQ  3060  DATA136, 132, 130, 129,48 

,4,  158, 169,165, 158 
KH  3070  DATA49, 3, 162,191, 160,5 

0,4,162,177,169 
MH  3080  DATA165,51, 4,146, 161,1 

65,154,52,4,140 
PF  3090  DATA13B,I37,191,53,4,1 

67,165,165,153,54 
FQ  3100  DATA4,158,169,169,I44, 

55,4,177,137,133 
SJ  3110  DATA131,56,4,154,165,1 

65, 154,57,4, 134 
AC  3120  DATA169,169,158,58, 1,1 

48,59,2,192, 180 
XC  3130  DATA60,4,136, 148, 162,1 

62,61,4,148,148 
XO  3140  DATA14B,14a,62,4,162,l 

62, 146,136,63,5 
KG  3150  DATA130,129,217,133,13 

0,65, 5,152,164, 164 
PH  3160  DATA156, 160, 66,4, 191,1 

64.164. 152.67.4 

KX  3170  DATA1S2,164,164,164,68 

,4,152,164,164,191 
EM  3180  DATA69,S,152,172,172,1 

72,136,70,4,190 
PB  3190  DATA137,129,130,71,4,1 

36,212,212, 184,72 
CF  3200  DATA4, 191, 132, 132,184, 

73,2,189,160,74 
RS  3210  DATA4,160,192,192,189, 

75,4,191,136, 148 
QC  3220  DATA160,76,3,129,191,1 

60,77, 7,188,132 
SJ  3230  DATA132,184,132,132,18 

4,76,5,132,184,132 
EE  3240  DATA132,184,79,S,152,1 

64, 164,164,152,80 
FK  3250  DATA4, 252,148, 148, 136, 

81, 5,136,148,148 
HB  3260  DATA248, 192, 62,4, 188,1 

36,132, 132,83,4 
HF  3270  DATA200,212,212,160,B4 

,3,132, 190,164,85 
SJ  3280  DATA5,156,160,160,156, 

160,86,5, 140,144 
JC  3290  DATA160,144,140,87,7,1 

68,160,160,156, 160 
SK  3  300  DATA160,156,88,5,164,1 

48,136, 148,164,89 
EX  3310  DATR4, 140,208, 208,188, 

90,4,164, 180,172 
RC  3320  DATA164, 193, 5,156, 162, 

161,159,160, 194,4 
HK  3330  DATA191, 165, 165,186,19 

5,4, 156,162,161,161 
EP  3340  DATA196,5,191,161,161, 

162,156,197,4,191 
CG  3350  DATA165, 165, 161, 198,4, 

191,133,133, 129,199 
KB  3  360  DATA5,156,16  2,169,169, 

144,200,4,191,132 
CS  3370  DATA132,191,201,3,161, 

191,161,202,4,144 
ME  3380  DATA160, 161,159,203,4, 

191,132, 138, 17  7,204 
KG  3390  DATA4, 191, 160,160,160, 


205,7,191, 129,129 
XD  3400  DATA142, 129, 129,190, 20 

6,5,129,190, 129,129 
AC  3410  DATA190,207,4,158,161, 

161 , 158,208,4,191 
QF  3420  DATA137,137,134,209,5, 

156,162,169,145,174 
RG  3430  DATA210, 5, 191,  137,137, 

150,160,211,4, 162 
EX  3440  DATA16S, 165,  152,212,5, 

129,129,191,129,129 
FC  3450  nATA213, 5, 159, 160,160, 

159, 160,214, 5, 143 
GC  3460  DATA144,160,144,14  3,21 

5,7,159, 160, 160,  156 
PF  3470  DATA160,160,191,216,5, 

177,138,132,138,177 
PH  3480  DATA217, 5,129, 130,188, 

130, 129, 218,5,161 
CB  3490  DATA177,169,165, 163 

Program  5:  Graphics  To  Text 
Conversion 

CE  3000  REM  'CHARACTER  STRINGS 
FOR  CONVERTING  GRAPHI 

CS  SYMBOLS  TO  TEXT* 
BB  3010  REM  *WHEN  PRINTING  A  L 

ISTED  FILE* 
RX  3020  DATA5,7,15,17,91,a7,72 

,84,93,17 
CQ  3030  DATA8,15,17,91,68,79,8 

7,78,93, 18 
KG  3040  DATA7, ] 5,17,91 ,82,86,8 

3,93,19,8 
DE  3050  DATA15,17,91,7  2,79,77, 

69,93,28,7 
PP  3060  DATA15, 17,91,82,69,68, 

93,29,9,15 
PD  3070  DATA17,91,82,73,71,72, 

84,93,30,7 
MC    3080    DATAl 5, 17,91  ,71,82,78, 

93,31,7,15 
PE    3090    DATAl 7, 91, 66, 76, 85, 93, 

129,7,1 5,17 
XB    3100    DATA91,60,49, 62,93, 133 

,6,15,17,91 
BP   3110   DATA70,49,93, 134,6, 15, 

17,91,70,51 
GR    3120    DATA93,13  5,6,15,17,91, 

70,53,93,136 
HB    3130    DATA6,15, 17,91 ,70,55,9 

3,137,6,15 
XF  3140  DATAl 7, 91  ,70,50,93, J  38 

,6,15,17,91 
KE  3150  DATA70, 52,93,139,6, 15, 

17,91,70,54 
HS  3160  DATA93, 140,6, 15,17, 91 , 

70,56,93,144 
SJ  3170  DATA7,15, 17, 91,66, 76,7 

5,93,145,6 
KQ  3180  DATA15, 17,91,85,80, 93, 

146,7,15,17 
CD  3190  DATA91,79,70,70,93,14  7 

,7,15,17,91 
FD  3200  DATA67,76,82,93, 149,7, 

15,17,91,60 
FK  3210  DATA50,62,93,150,7,15, 

17, 91,60,51 
XX  3220  DATA62,93,151,7,15,17, 

9! ,60,52,62 
AM  3230  DATA93, 152,7,15,17,91, 

60,53,62,93 
JC  3240  DATA! 53, 7, IS, 17,91,60, 

54,62,93,154 
BB  3250  DATA7,1S, 17,91,60, 55,6 

2,93,155,7 
FA  3260  DATAl.5,17,91,60,56,62, 

93,156,7,15 
MR  32  70  DATA17,91,80,85,82,93, 

157,8,15, 17 
HD  3280  DATA91,76,69,70,B4,93, 


156,7,15,1.7 
SQ    3290    DATA91,89,69,76,93,]59 

,7  15,1.7,9) 
RH    3300    DATA67,89,78,93 


BEFORE  TYPING  .  .  . 

Before  typing  in  programs,  please 
refer  to  "How  to  Type  tn 
COMPUTEI's  GAZFTTE  Programs," 
elsewhere  in  this  issue. 


Hi-Res  Print 

See  instructlom  in  article  on  page 
24  before  typing  in. 

Program  1:  hrprint 


C000:20 
C008:C0 
C010tCE 

ceiajBD 
c0a0!20 

C028:8D 
C030:02 
C038:00 
C040:51 
C048:03 
C050SF3 
C05a:20 
C060JDD 
C068:00 
C0  70:64 
0078:64 
C080:C8 
C08B:FB 
C090;F6 
C098!Ffl 
C0A0!AD 
C0A8:FC 
C0B0!34 
C0BaiFD 
C0C0:FB 
C0ca!FC 
C0D0:60 
C0D8:85 
C0E0103 
C0E8tFD 
C0F0IAD 
C0F8I03 
C100!FB 
C10S:ia 
C1101FC 
CllS:aD 
C120:FA 
C12e:6D 
C130:03 
C).38!  38 
C140:00 
0148:40 
C).S0t09 
CL58!60 
CI 60! AD 
C168:FC 
C17056D 
C178t03 
CI80SFF 
C188!F8 
€1.90103 
C198;85 
C1A0:03 
ClAStSS 
C1B0:D0 
C1Q8:85 
C1.C0!C0 
ClC8:eD 
C1D0I8D 


Fl  B7 
20  FD 
Bl.  A5 
FA  02 
09  C0 
FD  02 
A5  64 
A9  00 
D0  F8 
20  Fl 
B7  8E 
9E  AD 
BD  A0 
F0  26 
C0  2  0 
85  02 
Bl  64 
99  A7 
A9  A7 
AD  1  3 
34  03 
20  B5 
03  4C 
03  811 
90  03 
03  CA 
AD  35 
FC  20 
6D  FC 
03  6D 
FC  03 
BD  FF 
A9  08 
AD  FC 
03  AD 
FD  03 

02  BD 
FB  02 
8D  37 

03  A0 
D0  01 
90  1  5 

3  8  E9 
CI  38 
39  03 
20  BS 
FC  02 
6D  FD 
ac  F9 
02  18 
85  FD 

FE  la 

85  FB 
FC  Bl 

04  AC 
FB  A9 
18  AD 
FC  03 
FD  03 


BE  13  03 
AE  20  9 E 
65  60  20 
A5  64  8D 
8D  FC  02 
20  09  C0 
8D  FF  02 
99  A7  02 


20 


Fl  B7 
36 


B7  8E 
35  03  20 
A5  0D  00 
00  B9  00 
99  A7  02 
A3  B6  A0 
C8  Bl  64 
85  FC  A0 

02  CB  C4 
85  F9  A9 

03  C9  01 
8  5  FB  A9 
C0  AD  FC 
Dl  C0  A9 
FC  03  A2 
18  65  FC 
D0  F2  8D 
03  85  FB 
B5  C0  18 
03  aD  FC 
FD  03  8D 
BD  FE  03 
03  AD  36 
85  FC  20 
03  60  FE 
FD  03  60 
18  AD  FC 
FC  03  AD 
8D  FD  03 
03  AD  FD 
FF  C8  Ql 

60  ao  39 

C9  60  F0 
40  80  39 

E9  80  ao 

85  FB  A9 
C0  18  AD 
BD  3A  03 
02  ao  3B 
02  A0  00 
AD  F8  02 
A9  00  6D 
AD  P8  02 
A9  00  6D 
FB  91  FO 
F9  02  AD 
28  BS  FC 
FC  03  6D 
AD  FD  03 
18  AD  FC 


4C 

15 

40 

AD 

20 

93 

09 

C0 

C6 

FB 

02 

0D 

AS 

64 

34 

BD 

FE 

97 

60 

A0 

EA 

CB 

C0 

55 

BE 

34 

7F 

03 

20 

80 

FD 

AE 

21 

13 

20 

93 

01 

C9 

ED 

C8 

4C 

A7 

00 

Bl 

7C 

85 

FB 

80 

00 

Bl 

D3 

02 

D0 

Bl 

02 

85 

45 

D0 

12 

9B 

10 

85 

EA 

03 

8D 

68 

00 

8D 

ED 

08 

46 

74 

6A 

6E 

AB 

FD 

03 

EC 

A9 

A0 

D4 

AD 

FC 

7A 

03 

AD 

23 

FD 

03 

05 

AD 

FD 

IF 

03 

85 

61 

B5 

C0 

D9 

03 

8D 

CD 

FF 

03 

39 

03 

6D 

98 

FD 

03 

F0 

AD 

FC 

CE 

03 

BD 

Aa 

F9 

C9 

77 

03 

C9 

3F 

an 

B0 

DC 

03 

4C 

4B 

39 

03 

Dl 

08 

85 

DD 

FC 

03 

A9 

AD 

FD 

3A 

03 

A2 

BA 

E8 

8E 

EB 

60 

37 

C8 

38 

03 

7A 

60 

3A 

61 

3B 

03 

50 

E0 

07 

71 

35 

03 

3B 

20 

B5 

CB 

36 

03 

6D 

69 

00 

5C 

03 

60 

51 

ClDSiFE  02  85  FB  AD  FD  03  6D  A5 

C1E01FF  02  85  FC  AO  13  03  C9  EE 

C1E8:01  00  08  AO  34  03  11  FB  C8 

C1F0:4C  F6  CI  AD  34  03  91  FB  38 

ClF8:ie  A9  08  60  37  03  8D  37  E2 

C200:03  A9  00  6D  38  03  8D  38  69 

C208:03  4C  3C  CI  00  00  00  00  C5 

Program  2:  CHARSETMAKER 

JS  100  REM  CREATE  CHARACTER  SE 

T  FOR 
BG  110  REM  'HI-RES  PRINT'  ML  R 

OUTINE 
MG  120  PRIHT  CHRS(142)!REM  USE 
CHR$(14)  FOR  I  2  SPACES] 

LOWERCASE 
AS  130  PRINT  CHRS{8):REM  DISAB 

LE  CASE  CHANGE  FROM  KEY 

BOARD 
QD  140  INPUT  "LOCATION  OF  CHAR 

ACTER  SET"rN 
RB  150  A=N-lNT(N/256)*256:  B=I 

NT(N/256) 
XC  160  INPUT  "FILENAME" ;FS 
EC  170  IF  LEN(F5)=0  THEN  160 
DA  180  PRINT  "WORKING..." 
JE  190  REM  COPY  FIRST  64  CilARA 

CTERS  FROM  ROM  CHARACTE 

R   SET 
SS  200  POKE  56334,  PEEK(56334) 

AND  254 
AP  210  POKE  1,  PEEKd  )  AND  251 
KK  220  FOR  J=0  TO  511 
CK  230  POKE  J+N,  PEEK{53248+J) 
OF  240  NEXT  J 

FG  250  POKE  1,  PEEK(l)  OR  4 
PF  260  POKE  56334,  PEEK(56334) 

OR  1 
HF  270  CLOSE  15:0PEN  15,  8, 

,  "10" 
FA  280  GOSUB  410 
KD  290  OPEN  2,  8,  2, 

W" 
JA  300  GOSUB  410 
HO  330  PRINT#2,  CHR5(A}; :PRINT 

#2,  CHR5(B); 
AC  320  GOSUB  410 
SS  330  FOR  J=0  TO  511 
PH  340  PRINT*2,  CHR$( PEEK (J+N) 

)? 
DQ  350  NEXT  J 
Air  360  GOSUB  410 
XD  370  CLOSE  2:CL0SE 
BJ  380  PRINT  CUR? (9) 

E  CASE  CHANGE  FROM  KEYB 

OARO 
PS  390  END 
DO  400  REM  CHECK  DISK  DRIVE  ER 

ROR  STATUS 
QR  410  INPUT*] 5,EX,EX$,TR,SE 
BE  420  IF  EX=:0  THEN  RETURN 
RF  430  PRINT  CHR5(iaJ  "DISK  ER 

ROR" 
SB  440  PRINT  EXrEX5;TR;GE 
AB  450  GOTO  370 


15 


",P, 


15 
iREM  ENABL 


Program  3:  Demo 


KB  100  REM  'HRPRINT'  DEMO 

EQ  110  IF  A=0  THEN  A=liLOAD  "H 

RPRINT",  8,  1 
DP  120  IF  A=l  THEN  A=2:L0AD  "H 

RCHARSET",  8,  1 
HD  130  TOKE  53280,15 
HC  140  REM  SET  SYS  ADDRESSES 
SA  150  1N=49152:  PR=49207 
JG  160  REM  Bl  ARRAY  IS  USED  TO 

DRAW  CURVE 
RK  170  FOR  J-0    TO  7:BI{J)=2rJl 

NEXT 


KF    180    REM    BITMAP    AT    8192 

MP    190    BASE=ai92 

JB    200    POKE    53272, PEEK<53272) 

[SPACE j OR   8 
XF    21  0    REM    HI-RES 
00    220    POKE    53265,    PEEK(53265) 

OR    32 
BM    230    REM    INITIALIZE    MULTI/RV 

S (2), BITMAP   AT    8192,CHA 

RSET    AT    16384, COLOR    AT 

{SPACEJ1024 
RG    240    SYS    IN,     2,     8192,     16384, 

1024 
BK    250    REM    CLEAR    SCREEN    AND    DR 

AW    CURVE 
MA    260    F5="":F0R   J=l    TO   40tF5" 

F5+CHR$(32):NEXT 
RH    270    FOR   J=0    TO    24: SYS    PR,     1 

5,     0,    J,     F?:NEXT 
PJ    280    FOR   Y=0   TO    199    STEP    .5 
XX    290   X   =    INT (160+40    *    SIN(Y/ 

J-0)) 
DG    300    BY   =   BASE +40    *    (Y   AND   2 

48}    +     (Y   AND    7)+{X   AND 

ISPACEJ504) 
m    310    POKE    BY,     PEEK(BY)    OR    (B 

KNOT    X   AND    7}) 
AB    320    NEXT    Y 
MX    330    REM    INITIALIZE    HIRES(l) 

(BITMAP   AT    8192,CHARSET 

AT    16384, COLOR   AT    1024 

GD    340   SYS    IN.     1,     8192,     16384, 

102  4 
QH    350    REM    PRINT   MESSAGES   ON    H 

I-RES    SCREEN 
HM    360    SYS    PR,     6,     1,     1,     "PRINT 

HR    DEMO" 
OJ    370    SYS    PR,     2,     1,     2,     "(C)    1 

987    COMPUTEl " 
RQ    3B0    SYS    PR,     1,     17,     21,     "HIT 

ANY    KEY   TO   EXIT" 
HR    390    SYS    PR,     8,     17,     5,     "YOU 

I  SPACE  J  CAN    PRINT    NORMAL 

LY" 
AM    400    REM    INITIALIZE    FOR    REVE 

RSE 
DJ    410    SYS    IN,     2,    8192,     16  384, 

1024 
EM    420    SYS    PR,     5,     17,     13,     "OR 

is PACE} IN  REVERSE  LETTE 

RS" 
JA  430  REM  NORMAL  CHARACTERS  A 

GAIN 
RM  440  SYS  IN,  1,  83  92,  16384, 

V024  . 
CG  450  SYS  PR,  14,  2,  9,  "TIME 

R:" 
HM  460  SYS  PR,  14,  2,  17,  "SCO 

RE:" 
CS  470  REM  UPDATE  SCORE  ADD  TI 

MER 
PD  480  FOR  JW0  TO  10000 
EX  490  SYS  PR,  0,  8,  9,  TI 
FP  500  SYS  PR,  0,  8,  17,  J 
BB  510  GET  XS 

JD  520  IF  X5=""  THEN  NEXT  J 
AO  530  REM  BACK  TO  NORMAL  TEXT 

SCREEN 
EP  540  POKE  53265, 27: POKE  5327 

2,21 
PS  550  PRINT  CHRS (147) SEND 

Program  4:  Rclocator 

KJ  100  REM  THIS  PROGRAM  RELOCA 

TES  THE 
PJ  110  REM  'HRPRINT'  ML  ROUTIN 

E  AND  WRITES 
CA  120  REM  THE  RELOCATED  CODE 

t SPACE  I  TO  DISK 
QS  130  IF  A=0  THEN  A«1:L0AD  "il 

RPRINT", 8, J 
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HJ  140 
JD  150 

EX  ),60 
XQ  J  70 
RX  180 

PM  190 
GK  200 

AR  210 
HJ  220 

JQ  230 

XD  240 

QR  250 

QK  260 


HX  270 
JS  280 


QJ  2  90 
HX  300 
AS  3J0 
JQ  320 
PE  330 
KP  340 

EF  350 
XR  360 
FK  370 

KF  380 

DD  390 
DQ  400 

QR  410 
BE  420 
RF  430 

SB  440 
SD    450 


INPUT    "NEW    LOCATION    FOR 

HRPRINT"rN 
INPUT    "NEW   FILENAME   FOR 

HRPRINT":F5 
A=INT(N/2  56) :B=N-2  56*A 
PRINT    "WORKING. . ." 
CLIJSE    l5:OPEN    15,8,15," 
10" 

GOSUB    410 

OPEN    2,    e,    2,    F$    +    ",P, 
W" 

GOSUB    410 

PRINT»2,    CHR?(B);CHRStA 
)f 

GOSUB    410 

FOR  J=49152   TO   49675 
P=PEEK(J) 
IF    P<>76    AND    P<>10e   AND 

P<>32   THEN    PRINT#2,CHR 
5 ( P ) J : NEXT   J 
Z=PEEK(J+2) 

IF    Z<192   OR    Z>194   THEN 
[SPACE] PRINT»2,CHR|(P); 
sNEXT   J 
X=49152-N 
y=PEEK(J+l) 
A='Y+Z*2  56-X 
Z=INT(A/256) 
Y=A-2  56*2 

PRINT#  2 ,     CHR5 ( P  J  f  CHRS { V 
) ;CHR5(Z) ; 
J=J+2 
NEXT    J 

PRINT    "NEW    SYS    VALUE    FO 
R    'IN':";N 

PRINT    "NEW    SYS    VALUE    FO 
R    'PR' : ";N+S5 
CLOSE    2:CL0SE    ] 5 : END 
REM    CHECK    DISK    DRIVE    ER 
ROR   STATUS 

INPUT»15,EX,EX5,TR,SE 
IF    EX=0    THEN    RETURN 
PRINT    CUR? (18)     "DISK    ER 
ROR" 

PRINT    EX;EX5;TRjSE 
GOTO    3  90 


BEFORE  TYPING  .  .  . 

Before  typing  in  programs,  please 
refer  to  "How  to  Type  In 
COMPUTEl's  GAZETTE  Programs," 
cls<?where  in  this  issue. 


Power  BASIC:  128 

Instant  Keywords 

Article  on  page  43. 

FG  100  PRINT" {CLrI "5S=INPUT("] 
300")  :  =  {n)l5;F0RD=ST0S  + 
] 76: READ  A?: POKE  D, INPU 
T(A5) :NEXT 

HB  110  M=S+22:V%=M/256:V=M-256 
*V%:POKE  S+J2,V%!P0KE  S 
+14,V;M=D-52iV%=M/256!V 
=.M-2S6*V% 

FM    120    POKE    S+65,V1:P0KE    S+64, 
V:    SYS(S) iPRINT" 
[2    DOWN}  (RVS)  (WtiT)lNSTA 
NT    KEYWORDS    ACTIVATEDl 

RK  130  PRINT" [ DOWN i {RVS) TO  DE/ 
ACTIVATE    SYS"S:NEW 

JG  1.40  DATA  A9,C8,CD,3  7,03,FO, 
04,A2,05, D0,04, A9,  13,A2 
, 16,8D,37,03,8E,36 

KE    150    DATA    03 , 60, EA, 48, A6, F4, 


F0 , 04 , 68 , 4C, 0 5 , C8 , a4, D4 
,AD, 3E,03,85, 24, AD 

AR  160  DATA-  3F, 03, 85, 25,31,24, 
EA, 38,E9,41 

QA  170  DATA  C9,) A,B0,E6,A2,02, 
E4,D3,D0,02,69, 19, A8,B9 
,70, 13,C9,27,B0,09 

EE  180  DATA  69,7E,AA, A0,09,A9, 
46,D0,05,AA,A0,  1,  7,A9,44 
,84, 24,85, 25, A0, 00 

MK  190  DATA  CA, 10, 0F, Bl , 24, 48, 
E&,24,D0,02,E6,25,68,  10 
,F4, 30,EF,C8,B1,24 

BH  200  DATA  30,05, 20, 0C, 56,00, 
F6,29,7F, 20, 0C, 56,68,60 
,EA,0B, 18,C7,0D,D5 

KA  210  DATA  81 , 89, D2, 85 , CF, E5 , 
EC , CA , 82 , A3 , 99 , E3 , 8E , 07 
,A7.FB,67,FD,97, DE 

QD  220  DATA  CB, C4, 1 9, E7, 0F, 0A, 
O3,8D,D1,D4,04,E0,E6,06 
, 17,A6,DF,E4,ec,DA 

KQ  230  DATA  05, FC, 83, 1 A,C2, E2, 
C9 


Program  2: 


GA    J0    GOTO 30 

EF    20    RKM    **PLACE    KEYWORD    [lERE 

AG    30    =(Bi].5:B=PEEK(45)  +  12+PEE 
K(46)*256:PRINT"KEYWORD 
{SPACE  )VALLfE(S)    =    "; 

PC    40    H=PEEK(B)!PRINTRIGHT$(DI 
M{H),2);"    "; 

AE    50    IFH=254ORH=206THENB=B+] : 
GOTO40 


DOS  Calc 

Set'  instructions  in  article  on  page 
31  before  typing  in. 


0801 :0B 
08()9s3J 

081  I  !A9 
08J9:A9 
0821;B1 

082  9:FE 
0831 :C0 
0839:09 
0841:08 
0849 sFF 
0B51:FF 
0859:02 
0861:D2 
OB69:20 
087l!E9 
0879:FB 
0681: AC 
0889 :8C 
089)  :C3 
0899 :UD 
08AJ :FC 
08A9:02 
08Q1:43 
08B9:4E 
08C1:44 
08C9:59 
08D1;4F 
08D9!43 
08E1:56 
08^9:45 
0BFl!52 
08F9:00 
0901:00 
0909:43 
0911:49 
0919:49 
0921:00 
0929:52 
0931 1 4E 


08  0A 
00  00 

00  85 

01  85 
FD  91 
E6  FC 
AD  03 
03  8D 
03  A9 
BD  6A 
F0  03 
C9  40 
FF  A9 
84  C) 
CI  A9 
CI  20 
CO  BD 
CE  A9 
AA  BD 
4B  CJ 
4C  7D 
A0  00 

54  49 

55  FF 
49  52 
00  4C 


41 
41. 


4  5  00 
00  42 
45  2D 

53  43 
52  45 
4F  50 

44  41 

54  49 
52  45 
2E  20 

45  57 


00  9E 

00  A0 

FB  A9 

FD  A9 

FB  C8 

CA  D0 

03  8D 
AB  C0 
CO  BD 
CI  60 
6C  AA 
00  F6 
13  A0 
A9  AD 
BB  A0 
66  C  2 
QD  CE 

41  A0 
4A  CI 
80  A0 
C0  20 
00  00. 
4F  4E 
45  58 
45  43 
4F  41 
20  52 

4  5  44 

52  45 

53  41 

42  53 
52  41 
4E  41 
59  00 

54  45 
41  4C 
41  44 

43  48 
20  4] 


32  3fJ 

00  A  2 
C0  85 

08  85 
D0  F9 
F2  4C 
AA  CO 
A9  4D 

09  03 
A5  3i\ 
CO  AD 
A9  8E 

01  A2 
A0  CO 
C0  38 
A9  00 
A9  20 

52  20 
8D  9F 
CO  20 
6C  C2 
46  55 
20  4D 
49  54 
54  4F 

44  00 

45  4C 
00  53 

53  41 
56  45 
41  56 

54  4  3 
40  4  5 
56  41 
00  49 
49  5A 
20  45 
4E  2E 
20  44 


36  2E 
10  0C 
FC  BE 
FE  46 
E6  DF 
31  DA 
AD  84 
8D  CF 
A9  97 
C9  FD 

00  7  8 
20  8D 

01  90 
20  OF 
20  70 
8D  AC 
BD  90 
12  7D 
C0  CE 
E2  97 
6C  A3 
4E  F4 
45  69 
00  2B 
52  41 
4C  6C 
4F  F3 
41  C4 
56  E3 
00  08 
4  5    D7 

48  96 
00  FE 
4C  58 
4E  51 
45  A3 
52  04 
00    FF 

49  05 


0939:53 

0941:41 

0949:52 

0951: DA 

0959:67 

0961:54 

0969: 2C 

0971 :00 

0979:00 

0981 :G0 

0989:C1 

0991:63 

0999:78 

O9A1:02 

09A9:6F 

09B1:38 

09U9:6E 

09C1:00 

09C9:AE 

09D1:20 

09D9:A9 

09E1:A9 

09E9:60 

09F1:FB 

09F9:F6 

0A01:1B 

0A09;A9 

0A11 sBE 

0A19:AD 

0A21:2O 

0A29:EE 

0A31;B] 

0A39:C8 

0A41:CA 

0A49:FE 

0A51:C2 

0AS9:A5 

0A61:E6 

0A69: 20 

0A71:7E 

0A79:20 

0A81:C1 

0A89:8D 

0A91:6F 

0A99:BD 

0AA1:02 

0AA9!20 

0AB1:85 

0AB9:A2 

0AC1:F9 

0AC9:A5 

0AD1:AA 

0AD9:6A 

0AE1:60 

0AE9:AA 

0AF1:75 

0AF9:C1 

0B01:A7 

0B09: 18 

0nil:6C 

0B19:FP 

0B21:F5 

OB29:0A 

0B31lCE 

0B39:F0 

0341:85 

0B49:0C 

0351:84 

0B59:FF 

0361:39 

0B69jD5 

0B71:BD 

0B79:FE 

0B81iP0 

0B89:A9 

0B91SD2 

0B99: 3E 

0BA110C 

03A9:8B 

OBBliSA 

0BB9:4F 

0BC1:54 

0BC9:45 

0BDli45 

0BD9t4B 


4B    45 

4C  43 
FF  A4 
CA  6D 
CB  63 
CD  58 
C5  FF 
00  00 
00  00 
A4  AC 
AE  6A 
CI  98 
CI  E0 
8D  70 
CI  AD 
20  F0 
CI  A9 
BD  A7 
6A  CI 
AC  C2 
93    20 

00  20 
A2  41 
CI  A9 
C2  60 
90  02 
62  20 
78  CI 
6C  CI 
D2  FF 
6C  CI 
FB  F0 
D0  02 
D0  ED 
A9  62 
A  5  FD 
FB  65 
FC  4C 
CF  C2 
CI  85 
AC  C2 
E0  FF 
6B  CI 
CI  8D 
A7  02 
AE  6D 
F0  FF 
OJ  AO 
04  BI 
E6   FC 

01  09 
BD  F0 
CI  BE 
20  D2 
BD  F] 
69  AB 
AE    5A 

02  BC 
20  FO 
CI  85 
C9  00 
C5  FC 
60  48 
85  FC 
FF  A9 
CC  F0 
A5  CE 
CF  20 
C9  14 
C9  20 
A6  FD 
CE  91 
EE  BD 
BC  C6 
90  20 
FF  A9 
C3  A6 
A9  20 
CA  DO 
60  46 
4E  53 
00  43 
4E  54 
41  52 
00    57 


54  54 

55  4C 
CO  3B 
CB  6A 
CC  E0 
CD  60 
00  41 
00  00 
OA  0D 
B4  48 
CI  9D 
9D  75 
00  D0 
CI  AD 
A7  02 
FF  8E 
00  8D 
02  A9 
BD  7E 
AD  6A 
D2  FF 
CF  C2 
8E  6C 
02  2  0 
85  FB 
A9  38 
D2  FF 
CA  CA 
20  D2 
A9  20 
CA  CA 

07  C9 
A9  20 
Bl  FB 
20  DZ 
DO  10 
FE  85 

08  C2 
60  AE 
FC  A9 
CE  6A 
F0  0A 
20  F9 
A7  02 
AD  71 
CI  AC 
60  A5 
00  84 
FB  91 
B6  FK 
91  85 
C2  20 
78  CI 
FF  CA 
C2  20 
B3  6  A 
CI  BD 
75  CJ 
FF  60 
FB  B4 
F0  F9 
B0  Fl 
A9  8F 
68  85 
00  85 
FA  78 
AE  87 
13  EA 
F0  21 
90  D9 
E4  FE 
FB  20 
CE  D0 
FE  CE 
D2  FF 
9D  20 
FE  AC 
88  Dl 
F8  C8 
55  4E 
3A  FF 
4C  45 
52  59 
20  53 
52  41 


45  00 
41  54 
C9  DD 
CB  64 
CC  DD 
CD  5A 
00  00 

00  00 
OE  AO 
SA  EE 
72  CI 
CI  68 
26  AD 
A7  02 
8D  71 
6D  CI 
A7  02 
04  85 
CI  85 
Ci  D0 
20  F9 
20  F6 
CI  18 
CF  C2 

84  FC 
8D  15 
AC  6A 
18  90 
FF  A9 
20  D2 
CA  A0 
FF  F0 
20  D2 

85  FD 
FF  20 
E6  FE 
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All  programs 

listed  in  this 

magazine  are 

available  on  the 

GAZETTE  Disk 

Details  elsewhere 

in  this  issue. 


Quality  Hardware  from  SCI 

The  FSD-2  Excelerator  +  Plus       Slimline  64  Freeze  Machine 


I  100%  ttjmpatibiL-  for  the 

64  or  64C 
I  Faster,  quieter,  more  reliable 

than  the  1541  or  1541C 
I  Breakthrough  direct  drive 

technology 


f  Full  one  year  warranty 
I  Hall  height  drive,  smaller 

and  slimmer  than  the  1541 
I  Separate  power  supply, 

drive  remains  cool 
I  Priced  at  S159 


I  Sleek  new  replacement 

case  for  the  64 
I  Takes  only  10  minutes 

with  a  phillips  to  install 
I  Gives  your  64  a  new  image 
I  Priced  at  S29 


■  The  ultimate  archival  device 

■  Totally  unstoppable 
freeze  utility 

■  Buik-in  file  copier 

■  Two  fast  loads 

■  Priced  at  S39 


1-800-548-9669 

Surfsidc  Components  International 
P.O.  Box  1836  Capitola,  CA  95010 
In  California;  408-462-9494 

F\ifuy,  Vjsa/MC/MuRry  Otder^  Pctsonal Checks  (requirt  J  wffifs  todfar).  (MUjornia 
reuiifnii  add 6.5%  ^olritax.  Prices  rrflrcl  4% ta\h  di^iounl.  add ^% for  t  tctUl  lani^ 


I  FACTORY  AUTHORIZED 

I  COMA/IODORE  REPAIR  CENTER 

1-800-772-7289 

(3I2)879-Ze88  IL 
42.95      Amiga  Repair 

Amiga  Drive 

Repair 149.95 

Printers CALL 

Monitors CALL 

Other  Equipment . .  CALL 


C64  Repair  iraoMTi 

CI  28  Repair  ,K,w,Ti,  64.95 

1541  Permanent 

Alignment   29.95 

1541  Repair 79.95 

1S71  Repair 79.95 


CALL  BEFORE  SHfPPIISIG 

PARTS  AND  LABOR  INCLUDED 

FREE  RETURN  SHIPPING 

(flPO,  FPO.  AIR  ADD  510001 

24-48  HR.  TURNAROUND 

(Subject  to  Part!  Avall^bllltyl 

30  DAY  WARRANTY  ON  ALL  REPAIRS 

COMMODORE  PARTS 

C-64  Power  Supply 34,95 

128  Power  Supply 59.95 

C-64  Over  Voltage  Ser^sor    1 9.95 

Other  Parts   CALL 

(Plin  S3.00  ShlpplnglH^ndllngJ 

All  parts  for  Commodore  equipment  usually  In  stock 

For  Parts  Call  (312)  879-2350 

Dealer  Discounts  Available 


TEKTONICS  PLUS,  INC. 

150  HOUSTON  STREET 
BATAVIA,  I L  60510 


VISA' 


CLIP  AND  SAVE 


.SUPER  81  UTILITIES 


Super  81  Ulillties  is  a  complete  ulililies  package  (or  the 
Commodore  15B1  Disk  Drive  and  C128  compuler.  Copy  whole 
disks  or  Individual  flies  irom  IS-ll  or  1571  format  to  1581 
partitions.  Backup  1581  disks.  Contains  1581  Disk  Editor. 
Drive  Moriitoi,  RAM  Writer,  CP/M  Utilities  and  more  for  only 
S39.95. 


1541/1571  DRIVE  ALIGNMENT 


154in571  Drive  Alignment  reports  ttie  alignment  condition  of 
ttie  disk  drive  as  yoj  perform  adjustments.  Includes  features 
lor  speed  adjustment  and  stop  adjustment.  Includes  program 
disk,  calibration  disk  and  instruction  manual.  Works  on  C64, 
C12a.  SX64,  1541,  1571.  Only  S34.95. 

'  .excellent,  ellicient  program  thai  can  help  you  save  both 
money  and  downtime."  Computers  Gazette.  Dec,  1987. 


GALACTIC  FRONTIER 


Exciting  space  exploration  game  Iro  the  C64.  Search  lor  life 
forms  among  the  200  billion  stars  in  our  galaxy.  Scientifically 
accurate.  Awesome  graphics!  For  the  serious  student  of 
astronomy  or  the  causal  expiorar  wiio  wants  to  tjoidly  go 
where  no  man  has  gone  before.  Only  $29.95. 


MONDAY  MORNING  MANAGER 


Statistics-based  baseball  game.  Includes  64  all-time  great  major 
league  teams  Realistic  strategy.  Great  sound  &  graphics!  Apple  It 
systems  -  $44,95,  C-64  S  Wari  systems  -  S39.95. 

Order  viUfi  chock,  money  order,  VISA,  f^flasterCard,  COD.  Free 
shipping  &  handling  on  US,  Canadian,  APO.  FPO  orders,  COD 
&  Foreign  orders  add  $4,00.  Order  Irom: 

Free  Spirit  Software,  Inc. 

905W.  Hillgrove,  Suite6 

LaGrange,  IL  60525 

(312)  352-7323 


MmtwCordll 


AOmCED 
DETECTION  &  CONTROL 


NO   INTERFACE   IS   EASIER  TO   USE 

•  Control  lights,   appliances,    healing   and   cooling   systems, 
relays,     motors     and     virtualty     any     electrical     device. 

•  Connect  10  temperature,  light,  sound,  moisture,  fluid  level 
;inil  pressure  sensors. 

•  32  separate  bullered  digital  Output  lines. 

•  32  separate  digital  input  Imps 


BH100 


I/O 


Card 


User  Manual,  instructions, 
samplf!  programs  &  diagrams 
of  tyriiciil  hookups  $129 


Complete     I/O     Course 

Includes     BHIOO,     Beginner  s 
Module     Course    Manual    and 

User  Manual.  S159 


Beginner's  I/O  Interface 
Course  Manual  $15 

Learn    all    about    Interfacing! 


8  Channel  A/D    Plug-in 
Conversion  Module    $45 

l=asl  H  hil  0-5V  A.'D  converter. 


Security  System  Module 


With      siren, 
software 


switches      anrl 
$35 


Beginner's  Module     S25 

With  8  LEDs    a  switches  and  i 
relay    Requires  the  BH  100 


INTELLIGENT  I/O 

7  WATER  ST,  •  MASSENA.  NY  13862 

(315)  769-2716 

Call  lor  free  brochure  today' 

Beware  of  Imitations-  get  the  high  quality  original  BHIOO 
Add  $4  for  postage  and  spaclfy  0-64  or  VIC-20 


Call  for  FREE  CATALOG! 
QUALITY  SUPPLIES! 
Budget— Friandiy  Prices! 


•  sturdy  Blank  PVC  Jacks! 

•  Witfi  ID  LatMi 

•  With  Wrile  Prolect  Tatji 

•  Willi  env«(o(»» 

•  In  Factory  S«alat)  Poly  Pack! 
SOLD  IN  LOTS  OF  100 


•J                   ;l 

© 

^./) 

3V2"  DISKETTES 
(UNBRANDED) 


SALE 


99<f 


each 


SOLD  IN  LOTS  OF  50 


S4H  J4  00,  FIRST  IQOOR  FEWFJi  -   . 

J3TO.  EACHSUCCEEOING  ^0QO(ifBViU'  DiSKE'TES 

MmrMUM  OinDEn  SSSOO.  SAH,  C-ontinflnlal  USA.  Foreign 
Olivers,  APO.'FPO,plflfl5e  call  Ml  residents  add  i%ta«  CO.O 
add  £4.130,  pay?Tient  w<1h  cash,  certified  check  or  money  ofdec 
Prices  subjecl  '.o  change  H<?ufs-  S:30  AM-  ?  CO  F*M  ET 

COMPUTERFACTS^"  Pubiicalioni  Tfom  SAMS 

V£f^YAFfORDABLE      DItcounI  Prlcai! 

■  Wiring  DiasraTi*  *Reo«-r  O^lJi  <Plfl»  Ulti 

*rrC^br»  SNxjIing  T«GNrtiQU«3  Iw  HI  [»CKjll<r  b'andt  Ql 
micrc>COinipul«rs,  monilori.,  prinltci  &  dllh  at\*vi 

Appifl  II,  II  -^ ,  iitseniitii  tie,fl5«*, 

QuinrnDdorq  M4y  iJtsX  drlirt tlS.flS  «a. 

IBM  PC-AT  5170 i.,.i.,  .f3r.flS». 

Oi>.^a*^»S2.9it!f&^pf^n^t1         .,   ..     .na.QjaA. 

CtH  To/I  if 99  tor  itricB  on  ointr  moUtfS 


NEW! 

MOUSE  EASE 

#MP2 


St£B: 
3'x9V, 
Proieclive  nylon 
laminated  rubber  mouso 
pad  kq^ps  mousti 
Cleanf^r  and  tracking 
smoolhar.  Protects  Ihc 
mousfi  and  surfacQ  It  i^ 
on.  No  morfl  scralchlng. 
Rubber  surface  won't 
let  pad  alip  under  iriQ 
Roughest  conditions. 


r. 


J 


COD  <^^ 

Precision  Data  Products  * 

PO  t)l:JIaJ&^Gf^ncr  fijfiifH  Mi49f>ia 

1616)  1«  3457  ■  FAX  ifittlMH?  4914 
Vlirhiurari  1.600-632  2*^ 
Ou1>,i<]r?  Michigan  IBOOJIB  002H 


$6.95 


PLUS 
S2.00 
S  S,  H 


Software  Discounters 
OF  America    ..„.„„„. .„„ 


S.D.  of  A. 


For  Orders  Only- 1-800-225-7638 
PA  Orders- 1-800-223-7784 
Customer  Service  412-361-5291 


Free  shipping  on  orders 

over  $100  in  continental  USA 

No  Surcharge  for  VISA/MasterCard 

Your  card  is  not  charged  until  we  ship 


Commodore  64/128  Bargain  Basement— Dozens  of  Titles  For  Less  Than   $10! 


COMPUTER  SOFTWARE 


Design,  print,  fold  & 
fly  award-winning  high- 
performance  airplanes. 


Great  International  Paper 
Airplane  Construction  Kit 
Our  Discount  Price  S9.88 


ACCIHADE 

Djn>i}us1rr»    S9,flS 

Liv.  <if  Ihf  Wn\  ....  MJIH 

A(:ilVI«ilON 
Cto*i  Country 

Road  Kilt S4£8 

ChoHlwHfii. SMS 

KacVrr  19.88 

linlr  Com(Xitci  PcnplpS'JJIB 
ARTWOBX 

WllrybJll SflJS 

Equtttrijn  Show 

Jun^irr SIM 

Higt>>l<'nd  Cjmn.  .  .  .i'^M 
Hrilf  in  Onr    .   Sin.    iMB 

Piiliti' Cjiirt iq.H8 

Thai  ItijiinB    19.08 

AVAMAGF 

Decrplui    J^JB 

Dnrrl  Fat   MM 

Powtr MJa 

Pmini  ^^ce  Station  S9.Bft 

SiRinj  7    S9.BB 

Spy  n.  Spv  1  &  2  .  .  .  S9.8R 

BHODEIlHUNn 

Cht]filiEtrr'[>Jvid's 

Midninht  Maiiit       i9J)B 

Kjritdbl ..KM 

lodtfunn*  r $9  Jfl 


CPA 

America  Cooitt  S«ri(?4: 

Amrrican S9Jlfl 

Chinrw ilSB 

French  StM 

iUlijn S9£S 

Mnlcan i9«B 

DATA  EAST 

Uit  Miisiun iSS^ 

Q-Bcrt $B.a8 

TSK  lit %flM 

EASY  working; 

iPINNAKEH 

fil« SfcM 

Pllnnrt St*B 

Wriltr Sb£8 

EtECTRIC  DWEAMS 
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^^ 
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Software  Discounters 
OF  America    ._..„. _ 


S.D.  of  A. 


For  Orders  Only -1-800-225-7638 
PA  Orders- T-800-223-7784 
Customer  Service  412-361-5291 


•  Free  shipping  on  orders 
over  $100  in  continental  USA    ' 

•  No  Surcharge  for  VISA/MasterCard 

•  Your  card  is  not  charged  until  we  ship 
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Bob's  Term  Pro    529 

Bob's  ferm  Pm  I2B  .  .  .$39 

C.P.  Copy  1 .521 

Ekiodk' $25 

Final  Cartridge  .1  ....  .$43 

fbnl  .Master  2    $19 

Font  Master  118 $3'> 

Super  Snapshot  |R1 .  .  .  .  $43 

Superbase  64 $39 

Supetliase  12S $44 

Superscript  ti4 $29 

.1u|>rrMripl  1211   $19 

ORIGIN 

Autoduel .$12 

Moeljius $25 

Ogre $19 

Ultima  I  or  3    $15  Ea. 

Ultima  4    539 

Ultima  5   $39 

PROFESSIONAL 

Fl«l  Syslem  2  Plus  .  .  .$39 

fleel  Syslem  4  128 $47 

SI  .WIN  &  SCHUSTER 

Chrm.  lab $25 

IK  lasstr  Money  Mgr.    .  $25 

Tyfjing  lutor  4 525 

SIR  TECH 

LJeep  Space SIS 

Wizardry:  Proving 

Grounds .  - $25 

SOmWRE  SIMULATIONS 

FoDIbaM   519 

Pure  Slat  Baseball   523 

Purr  Slat  College 
Basketball  ........  .$2.5 

•Data  Uisks  Avail.  Call 
SPRINGBOARD 

Certificate  Maker $25 

CM.  library  Vbl.  I  .  .      $19 

Nesvsroonn $32 

N.R,  Clip  Art  Vt>l.  I  .  .  .519 
N.R.  Clip  Art  \*)l.  2  .  ..$25 
N.R.  Clip  Art  \t!l.  3  .  ..$19 
P.S.  Graplilcs  Expander. $23 
SSI 

Battle  of  Antietam $32 

Battle  Cmiser $37 

Battle  Croup   »7 

B-24 5J3 

Eternal  Dajmcr 525 


Geny\hurg $17 

KampfRtupfH'  ....  $17 

Phantasie  I,  2  ur  3  525  Ea. 
President  ll»t  PIftH  .  .  .$ll> 
Realms  of  Darkness  .     ,525 

RinKi  nl  /ilflii    525 

RiMclwar  2001) 525 

Ruadsyar  Lunipa $25 

Shatil  of  Sprlfti; 525 

Shiloh:  Grant's  Trial  ...$25 

Sons  of  liberty 52.1 

War  Game  Const.  Set.  .519 
Wjr  in  S.  Pjiilic    537 


Wji^fli[l ,  ,  , 

Wijjrd's  Crown  ,  , 

suniocjc 

fli^fit  Simolator  2 
I.S.  S(  eiH-rs  Disks 
jet  


,$37 
.$15 

$32 
Call 
$2b 


THREE  SIKIY 

Dark  Castle  $21 

TI.WUVORKS 

-Vcctv  P,tyit>le    $33 

Acns  Reteisable    $33 

•Data  Mjoai;er  2 519 

DjI.i  Mjnaiier  128  53) 

l>esklop  Publisher  $it 

CjeTM'rjl  Leifiter  531 

Parlm-i  64  IRl  5V1 

Partner  I2H  IRI  $19 

•Swilliak.Siik^ssjvs  lilt  519 
SssiflcakSiik-AjyA  12t<    5lt 

Ssvifl  rai  '117 5H 

Sylyia  IVirt*"'s  Pi-rsona1 

Fin.  Planei'r  Ii4 5t1 

Sylvia  Portct's  Pi'rsonal 

hn.  Planner  128  $19 

■\Vnrti  Writer   1 $33 

Win)  Writer  1211 in 

'All  3  titles  in  I  Pk.  ,  .  ,$59 

UNICORN 

[ki  inial  DiinjtiMin    .  .  .    $19 

fraction  Aition 519 

fV'rcentaHe  Pa  nil    $19 

Race  Car  Rilhmetit    .  .  .519 

Ten  tittle  Hiiliols    519 

UNISON  Wf>Rlll 

Art  GalU>ry  1  or  2  .51b  fa. 

An  Callers:  fantasy  .  .  ,51b 

Print  Master  Plus 523 

WirktV  RfAIHR 
StiikylH-ar  Series 

ABC's   516 

Malh  1  ur  2    $16  fa. 

-Numbers   5ib 

Oppnsitft $tli 

Readini;   ,^.  ........  .  $16 

Sfuprs $11: 

Spelbtrabbn $lb 

Typing  5tb 

ACCESSORIES 
Animatiun  Station  ...  .549 
ftonus  SS,  ni)  54.99  Be. 
Bonus  US.  DIl  $5.99  Bl. 
Cnmpuserse  Starter  Kit  519 
FUsk  (Caw  (Itokfs  7'.)  WiJlfl 
Dtik  Drive  Cleaner  .  $6J)B 
Dosv  lories  Neyss  Reffii'vai 

Membership  Kil  .  .  .  .514 
Epyi  StXI  KI  (orstiik.  .  .$14 

Icont  roller $14 

SurKom  luy^ticks Call 

Vlficti  Bat  Handle $17 

Wico  Boss   $12 

Vrico  Tlifc-e-Way ....  $19,<)5 
XETEC  Super  Grjpbii  .559 
XFTEC  Supi'r  Graptiis  |r.$39 
*All  pri^Krams  on  disk 

unless  nlhi'rsyisi'  notedl 


P.O.  BOX  111327— DEPT.  CG— BLAWNOX,  PA  15238 


•Please  Read  the  Eollossing  Ordering;  Terms  S/  Conditions  Carefulty  Before  Piaiinu  Your  Order:  Orders  svith  cashiers  i  heik  or  money  order  shipped  immediately  on  in  stiKk  itemsr  Personal 
a.  Company  cheiks,  allow  3  sseeki  clearance.  No  C.O.O.'s!  ShippinR:  Continc-nlal  U.S.A.-Orden  under  $101)  a(W  $3;  free  shippinj  on  orders  over  $100.  AK.  HI,  FPO,  APOadd  $5  on  all 
oriters.  Ciniii  «,  Puerto  Rico-add  $10  on  all  orders.  Sorry,  no  olher  International  nrderc  accepted;  PA  residents  add  b'4  sales  tai  on  the  total  amount  of  order  including  shinpint  <  barges 
CUSTOMER  SERVICt  HOURS:  Mon.-Fti.  9  AM-5:}0  PM  Eastern  Time.  REASONS  FOR  CAl LING  tUSKJMER  SEJlVlCE-413, 36 1-3291  (llStalus  of  order  ur  lui  k  order  I2lil  any  men handise 
purchased  ysithin  60  days  frnra  S,D.nl  A.  is  dilectiye,  please  call  for  a  return  authoriialinn  numliei.  We  isitl  not  process  a  retorn  without  a  return  auth.  ■;  l>elective  merihandiir  will 
IM-  n-pUfed  ssilb  lire  same  inert handise  only.  Other  returns  subject  to  a  15*tu  n-sttKkinR  charKe!  After  bU  days  from  your  purchase  date,  please  refer  to  the  warranty  irK  lutfetf  with  the 
product  purihasrd  &  return  directly  to  Ihe  manufacturer.  Customer  service  will  not  accept  collril  calls  or  calls  on  S.D.ol  A.'s  800^  order  lin«;  ORDER  LINE  HOURS:  Mon.lri.  9  AM  5;]0 
PM,  SAT  10  AM-4  PM  EASTERN  TIMf,  Because  this  ad  had  to  be  written  2,3  mcis.  before  it  was  published,  pricfv  H  availability  are  subject  to  chaneel  New  litJrrs  are  arifvins  dailyl  Please 
call  lor  nuirr  infiirirutiun. 


•  Most  Cables $15 

•  Casks  CZ  700  $275 

•  Casio  CZ  101 $250 

•  Oigiview  Stand $50 

•  AB  Switch $30 

•  Mousfl  Pad $6 

•  Time  Saver $60 

•  25fiK  Sutter $80 


^C  commodore 


5  MEG 
Hard  Drives 

9060 


REFURBISHED 


DISK  ACCESS         1 

DISK  CASE  (?5I 

DISK  FILE  (1201 

6.9S 

9  95 

4  95 

7  95 

1995 

J99S 

1995 

e.oo 

DISK  NOTCHER 

aft  DAr*  CASE  (30) 
TEAK  5',V  DISK  HBLDER  (50) 
TEAK  5'.4  DISK  HOLDER  (90) 
TEAK  3'-i  DISK  HOLDER  (30)    , 
DISK  HEADCLNR 

iti  I  «  r  tt  f»  I  c  s 


NPio*M25 


00 


PRINTERS 

NX10 *»149« 

NX10C *«159» 

NB2410 *»379»s 

NR15 *»419" 

NX15 **279'"' 

Powertype *«159" 

NX  1000 **CALL 


WI2  flitjMn  Purchase 


SYSTEM  INCLUDES 


512K 

CGA  Card 

SeOK-.X  Drive 

8086  (8  MHZ) 

Mouse 

Parallel  S  Serial  Port 

Joystick  Port 
Tilt  Mon.  Stand 
XT  style  KeytMard 
Quartz  Clock 


FREE  SOFTWARE! 

(500.00  Value) 

DOS  3.2  •  GEM  Desktop 

GEM  Paint  •  GEM  Doodle 

Basic  2 


PLUS 


•  Paper  While 

•  Monochorome  Mon. 
116  Grey  Levels) 


SEAGATE  W/Cimtroller 
20MEG*275*    30MEG«315* 

■package  Pricing 


•  Zucker  Boards $Call 

•  1.2  MEG  Drives $119"* 

•  Multi  Functian  Cards  —  SCall 


AMIGA  NEW 
RELEASES 


Innii  FwrnjIiOnt 
leslcrjll  Plul  [m  lIKIil 


S  l» 

1  it 


IjjrhCiitlte 
Heic  CDacn 
Gold  Rur^pr 

HoUvwUt  f*tl 


%  n 


[l^luxF  PrKiMI 
Wofd  PcrlcCl 
Ihe  Wwki 

SEudo  htjgK 


am 

1120 
t  3? 
IC» 


Kind  Words 

Vatnscipc  30 
Lurkir>d  H4rr{f 


t  30 
S  EO 
t  30 

II  ;o 

t  30 


MOST  SOFTWARE 
40%  OFF 


FnEE  T-Srvlrt  with  th<  purchaia 

or  inylZ)  Eltctronic  Arti 

PrKtucul  Whil*  Supply  L»ti 


HBctkek-y 
5^   "        ■ 


%xSi  Tjie 
B^d's  ^i\c  II 
Ches&nujlei  ?000 
WpckJ  loui  Ciilt 
MJIE|I«  UtAMtil 

fctufd«f  Piity 
Ogre 

nil  ITU  IV 

Auto  Dufl 
SiritUi 

AmcrFCj'i  Cup    . . 
ArtPCFoi! 

*ii  easws 

A/flncsi4 
flisiiwh  . . 

lotnjii 

PapnCIVlll 
(hftrHHXd  Pjgn 
ChitHcM 

EannQrIMSIjlw 

MINDSCAPE 

Dvlonkff  cri  inc  Crwn 
Bcp  md  Wrntle     . 
Si*«  SI*  Hotkey 

HigliFlalK    . 
Inw  5PV19 

kifii&jtaf 

Utuhm 

S^V«f  St#  Soccff 


i^eno 

76(10 

;e[io 

fOCIO 
70  00 

;ocio 
leoo 

?3  00 
16  00 
38  00 

32  no 

23  00 
»l}0 

II  DO 
26  OO 
73  00 
23  00 
23  00 
37  OO 
32  00 

ttoo 

20  OO 


12100 

laoo 

2tOO 
ISOO 

tsoo 

1100 
1100 

1100 
2100 


0ED5 
Fonljjjk  I . 
I>esk  PjCh 

wiiiH  wvh  srni 
Ceod«« 

C4oCdicrCKifiifl 
OoCdble 

crosi2e 

CwEubliilv 
C«cprogrinmir 


I  Soft  work* 


Abacus 


CEOS  TiKKSind  TvS 

Abacus  eoc*s 

GEOS  In^rdCuEIOiiK) 

ej!i:  I2B 

M5ICH 

Cmieux  1 21 

CMP)kl4 

ChdrlDJfe  121 

OurKutM 

OMlolM 

Ciui  121 

Sl««CCWiig.to  641129 

SupCf  P Jit  41 


136  00 
1100 
2100 
30  00 
2*00 
Mill  30  00 
3000 
1200 
4200 


900 
(SAVE 

900 
3600 
2100 
36  OO 
2100 
24  00 
24  00 
24  00 
3600 
3600 
36  OO 


SrK]NC_.ilOAI{I) 

CcrliriCdtt  Mak«F  130  00 

NfA^iQont  30  00 

Cl^  Ar^t  yaOO 

Cr«Arl2  24  00 


Tvneuia^ 


Kni^lit  Ork 
W<H!>Pilh 

T4II1100  Fejcrw 
bi4lctol  Thirves 


124  00 
tCAU 
24  00 
2100 
24  00 


DJII  Hgi  120 

SwiUcalb  1 29 
M'ordwrhtff  3 
All  business  l>[le& 
PJMW  64 
Pjrlott  128 
Svlvij  Poners 
OtltlOB  PuWishec 


»36  00 
3600 
3000 
3600 
36  00 
42  00 
36  00 
tCALL 


MicroProse 


UNISON  WORLD 

AilSjIlcfi  (1600 

Ait(Silwy2  to  00 

Ptiffl  Mjsm  71 00 


Gunsikp 

F  IS 

PioiKC  Stesiin  f  ^nief 

A'nwn*  FtanQCf 

Siltni  Spvict 

Pnacts 

TcD  Gmw 


PRECISION 

Stiocficrie^  i?a 
SvfKfiaiffT  1?0 
Vtu&tvH 
ViHwMff  IJ8 


jg^>w;c£ss 


HiKlUII 
Ab* 

Ttfl  Orrv« 

wtoiAce 

MmPutl 
Fiutn  indlrcfTf 


ACCOLADE 


MACH  I7fi 

icrri  Ffifv 

I. nee  Toyfnjjwieni 
Toufnammi  1 

f  i'DOU'i  Cpiflt 


1I7« 
tIAOO 
t1ft[» 
.    1&00 

..laoo 


ft^rwl  (?l  Fertile 


each 


TiliiX 
|jtir>iitn 

Hjichcf  14 
tcvFuflElmi 

MiOjC  SCudQ 


AdMskw 


130  00 
2100 

2roo 

2100 
2100 

1200 
1700 
1200 
1200 


124  00 

llOO 
2100 
21  OO 
3100 
2100 

ICAll 
2100 
itOO 

♦2100 


C4rd  wt 

Wjirii<tn<ui 


HITECH 


160  00 
11  OO 
1100 
11 M 
94  00 
64  00 
36  00 


I  600 

6  0O 
60O 
900 


11^10'—    In 


BrrjdeftwndSoftiuye 


bighctLlt 

KJflltkj 

PrnI  shoe  conv 


126  00 
1600 
2100 
1100 
2100 


UOGIC 


Foni  Wuin  II  61 
FiinlMul«l21 


CffMtofts  Hejitf 
OillysDurg 
Unvlgfi^ 
PiWb1asw7 
Rf^  0^  2E^lri 
Hou  Wi  2000 
Snjro  or  Spring 
W[Jjrd's  Crown 


Ucro  L  0414041 
Girw^Mgi 
SulChlA 
66  tun  Disk 


Fl^tSjm  II 
5c«rWV  drill 

Fgcnm 


tJpp4iitnot 


130  00 
ItOO 
30  00 
24  DO 
3000 
20  00 


iafeen*  12t 

PdOuI  iMmcr  2/F4ef  Pm«f 

SiCCPtCt  2II21J 

PatA  Wrm  12&y4r^i1flTV 


12100 
21  OO 
24  00 
24  OO 
24.00 
24  OO 
1100 


t3O0« 
3600 


518  00 
3600 

.3600 
2100 
1100 
24  00 
7100 
2100 


12100 

74  00 
1600 

1200 


4S0O 
3600 
6000 
3000 

2100 


FiSUOSd.  ^—'~ 

Hxl  Warrior. .    . 
Street  Spcds 

-easeballi'Qaskrtlull 
world  Karate  Ctiamo 

Summer  Games  It 

Super  Cyeifl  . . 

World  Games 

Football 

Multi'Plan 

Winler  t^anres 

Suoeaille 

Caiilomi^  Ganges 

Bojlder  Dash  GiytslrucliDn 

S{r(vs  S«  III 


124  OO 
IGALL 

each  li  00 
16.00 
20OO 
24  00 
24  00 
20O0 
7*00 
20OO 
2*00 
7*00 
IGALL 
IGAll 


Fast  HKkcm 
Kracier  Jajr 


.25  00 
llSarve 


NEW  RELEASES 


tntiltrilof  II 
CMS  Aawmling 
Glue  Books 
Slat  Oo£ 
Air  Hatley 
Oungfon  nunners 
tnsttfl  Mui< 
Legacy  ot  AAdenl 
Palt<^  M^  Rofnmel 
Skate  or  D# 
t^matiTAk    - 

Uimpc'r  

Mav^  Seaixvi  Typriig 

BeyorxiZGrt  .  .  

Kino  01  Chtago 
TlwiOH  Ghocvef 
Gauintfi 

NSA 

Pace  B(^ 
Nord  tndBen 
Uoutiuap 
StAimj  C4rd  uaMf 

Fkxidraw 
Oak  pKk  1 21 
Geoaxil 

Gncjic  121    

Geotle  126 

Cn  S^  Cfesvw — 
Oe(^wTie121 

SUfiisn 

unnav 
McfWca^jeMrtslkrio 


(2100 

lTomS9  96 
ICALl 
MS  96 
1100 
1100 
1000 

laoo 

1100 

laoo 

1800 

JIM 

2SflQ 

...»am 

H.in 

ito« 

1100 
tCAlL 
1000 
2100 
1700 
ICAU. 
11M 
tCAlL 
IGAU 
1100 

.   «e*a 

---ICAll 
.  21.00 

4200 

2100 
SGAU. 
ICAU. 
ICAU 


132    COMPUTEfi  Gazette  Special  1988  laue 


Qz  commodore 


64C.   soSSW   .*12995- 

128 «18985* 

128D S429S5* 

C64 , . .  m^u^ . . .  *998=* 

'paekaga  pricing 


M  AG  N  AVOX  8562 $240 


1B02C  .TTTT $ie9«= 

2002  $249»: 

1086 SCALL 


OKIMATE2O...S9995* 

1351 «349s* 

Plug  &  Print *Call 

Device  One  Interface 
W/16K  Buffer...  55995 

1764  RAM  ...*12000 

*W/Plus  &  Print  Pure  ha  so 


MODEMS 


PRACTICAL 
PERIPHEPHELS 

2400  . .  .*15995. 


KISS 

ENGINEERING 

24  OOlNTEHNAL.S  14995 


Avatex 

1 200  Baud.,..  *7995* 
1200  Internal...  *9995 

1200  H.C «9995* 

2400 Baud.  ..*19995* 

•W/Cable  Purchase 


ALPS 

240CPS 


18  PIN 
%  COLOR 

$39995 


1  Year  Warranty 
EPSON/IBM  COMP 
lOOCPSLQ. 


^ 


SFD  1001 

1  MEGA      '^f'O" 
BYTE      $99951 


•  IEEE  CABLES  •  VJC  SWITCHES 

•  IEEE  INTERFACES  Itiyn /9.96  I 

•  F'llWLlELTOIE££INrEBf«[:E  SCaa 


I  AMIGA  2000 $CALL]| 


.COMMODORE 

AMIG/ 

500 

SPECIAL 
PROMO 


AMIGA  2000    C 

•  2  MEG  RAM  A 

•  BRIDGE  CARD         t. 

•  HARD  DRIVES         L 


GENLOCK  . 
1020  Drive 


$18000 


1680  MODEM  »13000 

2002 SCall 


Sitlecar . 
256K  , 


$70000 
56965 


DIGI-VIEW 
512KRAM    .    . 

UIGI-VIEW 
Camera  w^ens . 

^tAHAUDER  II 


»130 
»120 

*200 
»24 


Vk  Drive. 
40  MEG 


SIBOoo 
$95000 


2  MEG.. 
20  MEG 


$349" 
$64905 


1  MEG  '^^^  S280O0 


AUTHOHIZED  AMIGA  SALES  \  SERVICE 


6064  EMULATOR 


»59b5 


SX-64 


5^^^ 


REFURBISHED 

30  OAV  WAflaANTY 


Canon 

COLOR  INK  JET 


$29995 

LIMIltU 
DUANtirv 


tO« 


REFURSISHEO  3Q  OAr  WARfl. 


n 


Industrial  Company 


-  it'vei<i:-iV- 


1080i-ll »160* 


1091i-ll 
10921.. 
15921-11 
15241-11 


S180* 
«280* 
»380* 
$520* 


*W/2  Ribbon  Purchase 


FREE-TRIAL  OFFERl 


HIGH  QUALITY  DS/DD 

DISKETTES 

190aach 

Lifetime  Warranty 

1 00%  Certified  W/Slsovos 
LlmltOna(10)pBckPsrCuiitomQr 


SEIKOSHA 


•  2YearWarr. 
*W/2  Ribbon  Purch 


SP180VC $12500* 

SP1000VC si  4900- 

SP1200AI 515400- 

MP1300mocPsi  ....  S27500- 
LASER     sCall 


DISKS 


3'/2  DS/DD M.30 

Vk  DS/DD »1 .80 

SONY-FUJI-MAXWELL 


5y4  DS/DDnoow)...  25* 
51/4  DS/DDmloii  ...  60<t 

BASF  •  NA5HJA 


°SS[5' 800-433-7756 

IN  MICH.  313.427-7713 

CUSTOMER  SERVICE  313-427-0267  ,"".6 
Monday  thru  Friday-  1D.DD  AM  to  ID  P.M 
Saturday-  10.00  A.M.  to  6:00  RM  |EST.) 


SCHOOL  P.O.'s  ACCEPTED  CALL  FOR  TERMS 


■WhVb 


MICROCOMPUTER  SERVICES 


DEALER  iNQLriREESfNViTEO  I 


No  Sk^  CtUiTBe  for  U  C1VI 5  Aj'O  I  SCQVt  S\  Sixry  m  wiU.  in  MU^ 

i*JI  fiSiMn%  rmjjt  hjrt  RA*  MwetdriJiw  (gunfl  aefecllrt  Wi^i  E«  '»CU'*t  C  ripliMO  Wi  tJQ  rvt 
(flff  f ffwixji  rw  dfFKtfvi!  cKwjueh  ff  \.y.  producis  tnndcnoi  pBffcn:i  iJicJici>:?i^  ittflmaMno 
9faranlH»lff  pftUucl  perionruncfl  AJiyifnone^lMch  guiriMfte  mult  twhiidW  dioCBy  with  IT* 
nurul^ciufsf  CiH  r«  $hi^ng  i^  hjnd^ng  indg  j^iicM  suC^Kt  to  i:ru.not  without  nelia 
l^eM  FAFlHINEiTON  RDAD.  LlVI^NlA.  Ul  4(15Q  We  C«UV4  ^utnrrllH  CDrnpattMlty 


COMPUTED  Gaiette  Speciat  }9d8  tssuG         133 


Classified 


SOFTWARE 


I  Ki-i-  burrvvARi;  for  CM,  ci:h,  [iim  k  ci'm 

Sfiiii  SASt  fur  iiirn  (sjH'cify  cuiiijiiilor)  lo: 

rUIil.IC  DOMAIN  VSVMS  CROUP 

PO  Urn  1442-A.l,  Omiikc  T'ork.  h'L  320h7 

FREE  PUBLIC  DOMAIN  SOFTWARE  • 
Rtft^UL^it  free  catalog  or  send  S2  for  sample 
disk  and  catalog  (rffiiiidable).  C64-128 
CALOKH  IND.,  Dcpt.  |K,  Box  IS477,  KC,  MO 
64133 

Mori'  than  21)0  f,n-M  ML  loulitii's  for  64  and 
1 2R,  tvmW  to  add  to  your  own  pri>g,rams,  in 
COMI'uflf!  Books'  MACHINR  LANGUAGE 
ROUTINHS  tOK  THIl  COMMODOUE  64/I2B. 

l:)(p]*i[>atinns,  usfSr  commented  source  code.  585 
pages,  SI 8.95.  Check  your  local  bookstore  or  call 
(SnO)  346-676". 

THOUSANDS  Oi"  I'D  TROGRAMS  FOR 
C64/13S!  We  have  G.imes,  Utililics,  Music  and 
much  more!  Infortnation  writt;  Lightspced 
Software,  POB  70-17,  Chesapeake.  VA  2,1,123 

LREi;  SOFnVARh  KOK  C6-1  (disl.  Only) 
Games,  Educ.  I lome.  Business,  Ulililies,  Music, 
lice  Brochure!  RVH  Publications,  Dept.  52, 

/IK  Alder  Circle,  Virsinia  Beach,  VA  23462 

KLNT  64/12S  SOITWARE!  lOO's  of  disks. 
I.iiivest  prices.  No  deposit  or  fee.  Free 
c.ilaloK,  Centsible  Software,  FO  Bot  "ilO, 
Si.  Joseph.  MI  491185  U'l*>)  982-1)327 

TALKING  SOFTWARE  FOR  YOUR 
COMMODORE!  Speaking  Oi>erjting  System 
Utilities.  Us<?s  BASIC  "SAY"  command  and 
SPEECH  64  (or  compatible)  in  Expansion  Port. 
Only  S!7  (includes  S/H)  Send  to;  Don  Hunt, 
P.O'  Box  32S3,  El  Sofiundo,  CA  90245 

CM  CAR  -  C54  USER  PORT  [.INK 
Engine  trouble  cixles  St  sensor  programs. 
Executive  Electronics,  Inc.  938  Main  St. 
Yarmouthport,  MA  02675  (617)362-3694 


SPEEDKIT  IMPROVES  SPEEDSCBIPT©  OR 
YOUR  MONEY  BACK!  5G%  discount  &  30  day 
m.b.  guarantee.  Btake  Lambert's  SS  3.0  -  3.2 
add-ons  (Speedpak,- Mate,- View  S  9000  word 
SpeedCheck  dIcL)  all  on  one  disk.  Send  S22 
■  S3  s/ti  (SB  non-US)  to:  Upstart  G7C,  POB 
22022,  GSO,  NC  27420.  MC/V  ok  (919)379-9732. 
6-10  pm  ET.  SASE/phone  !or  Info.  Ofter  eipires 
6/1/88 

C-.NIct  Bulletin  Board  for  C64  &  C128.  The  most 
vviLielv  ust'tl  and  respected  BBS  available. 
300/1200/2400  bps,  1000  accounts,  40  message 
bases/ file  transfer  SIGS.  X-Modem/  Punter,  a 
1-AST  M/L  Editor,  Online  games,  and  MUCH 
MORE!  Soflech  Computer  Systems,  Inc.,  I'O  Hos 
2,1397,  Lex,  KV  40523  (606)26H-I!AUD  or 
(aO0)992-SCSI  for  C.O.D./MC/V 

FH6E  USER  GROUP  MEMBERSHIP 

No  (Ves.  No  ilue^.  Disk  of  Ihc  munth.  Newsletter. 
Super  PD  libr.ity.  $5  gets  memtiership,  double 
silled  sanifiler  di^k   I   40pp  cilalog.  QSI  AlllBnca, 
Box  1403,  New  Albany,  IN  47150 

INEXPENSIVii  C64/128  ASTROLOGY  ic  NEW 
AGE  SOFTWARE.  From  S9.95  to  S39.95.  All  print 
l^AST  hard  copy.  Free  details.  HETnCER'S,  315 

Harmony  tt  "li",  San  Antonio,  TX  7S217 
(S12}599-6000  Visa/MasterCard  accepted. 


HARDWARE 


Now!  Comdf  Qualtd  Repair?!  C64,]28,SX64, 
Amiga,PC10,1541,157L  We  buy  uml  equipment 
Fast  Serv!  30  d,iy  wnlv!  Mom  &  Pop's,  RK2, 
Box  11"),  rainsville,  MO  64632  (816)872-611! 


WANTED:  SX-64's 

In  GOOD  CONDITION,  will  pay  SS  TOP 
DOLL.'\R  SSr  Write  to:  Jack  Kennedy,  108  East 
Fremont  Ave.,  =80,  Sunnyvale.  C A  94087  or 

Collect  (408)  248-8832 


MISCELLANEOUS 


i'ilRSONAl.  (.OMl'UTER  OWNERS  CAN  i^ARN 
$  1000  lo  55000  monthly  offering  simple 
services  pan  lime.  FREE  list  of  100  best. 

Write:  A.l.M.P.L. 

Box  60369,  San  Diego,  CA  92106 


,dw(irlffl©(i[rf 


COMPUTEI's  Gazette  Classified  is  a  low-cost  way  to  tell  over 
275,000  microcomputer  owners  about  your  product  or  service. 

Rates;  S25  per  line,  minimuti\  of  four  lines,  Anv  or  all  oi  the  first  line  set  in  capital 
letters  at  no  charge.  Add  S15  per  line  for  boldface  words,  or  S50  for  the  entire  ad  set 
in  boldface  (any  number  of  lines.)  Inquire  about  display  rates. 

Terms:  Prepayment  is  required.  Cheek,  money  order,  Arnerican  Express,  Visa,  or 
M.isterCard  is  accepted.  Make  checks  payable  to  COMI'UTKl  Publications, 

Form:  Ads  Lire  subject  to  publisher's  approval  ,ind  must  be  either  typed  or  legibly 
printed.  One  line  equals  40  letters  and  spaces  between  words.  Please  underline 
words  to  be  set  in  boldface. 

General  Information:  Advertisers  using  post  office  box  numbers  in  their  ads  must 
supply  permanent  address  and  telephone  numbers.  Orders  will  not  be  acknowl- 
edged. Ad  will  appear  in  tiexl  available  issue  after  receipt. 

Closing:  3rd  of  llie  Ihird  month  preceding  cover  date  (e.g.,  June  issue  closes  March 
3rd).  Send  order  and  remittance  to:  Harry  Blair,  Classified  Manager,  COMPUTEI's 
Gazette,  P.O.  Box  5406,  Greensboro,  NC  27403.  To  place  an  ad  by  phone,  call  Harry 
Blair  at  (919)  275-9809. 

Notice:  COMPUTE!  Publications  cannot  be  responsible  for  offers  or  claims  of 
advertisers,  but  will  attempt  to  screen  out  misleading  or  questionable  copy. 


Reader  5«rvicd  Numt»r/Adverttter 
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102  ABaCNS  Software BC 

103  Aier  Products ^7 

104  Berheley  Softwortis   , 11 

Crown  Custom  Covers  , 134 

lOi  Fifcbira  t-icensees  Inc.    , , . . , Z 

106  Free  Spoil  Soltwte.  Ific 129 

1 07  rmtiil'geni  I/O 129 

10B  Lyoo  Computer 70-73 

1 09  Maslor  SoUware  , 47 

110MC.S 132-133 

111  M  cro  Prose  Simulation  Softv^re   ,,.,..  5 

1 1 2  M  cro  Pfosa  Smuiation  Software   IBC 

NRi  Sctiools 41 

i  1 3  Precision  Data  Products   129 

114  Sir-tocfi  Soltware,  [r>o IPC 

115  Soitvraro  DiscountBrs  o(  Amertea  130-131 

lie  Stralflgic  Studies  Croup   .,,,..... 7 

117  Sur(s>Oo  Component    1ZB 

Tekiotiics  Plus 129 

1 18  Trad  ComputOfS 68 

1 19  Ulirattyto     60 

120  Utilities  Urtimted 53 

121  Xelec  Inc.    22 


COMPUTE!  Qootis'  CommodorB  64  &  128 

pfogranuniryj  &JOK  59 

COMPUTE'  Books'  ESect'orac  Battlefietd  and 

Sut>ni3rirto  Commantler       19 

COMPUTE!  Books'  Flighi  Simulator  BtxMs    69 

COMPUTE!  Books'  for  the  Commcklora  64  &t2a     .   t 
COMPUTE!  Books'  V\Sjroiiouso  Ctaaranco  Sale   . .  51 

COMPUTEi's  Commodoro  Buyer's  Guido    29 

COMPUTCi  3  Gaielte  Disk  Oder      26 

New  COMPUTE'  Socks  (Of  trie  Comtnodore  64 
S  128    9 


DUST  COVERS 

SATISfACTIOH  GUMiAHfiCD 

if  CUSTOM  MADE  TO  FIT 
if  HEAVY  3341.  VINYL  AMII-STAHC 
*  EXTENDS  EOUIPMtNI  UH 
if    Choia  of  Ce1<tr(  light  Tan  or  ftFDwn 
COHPUT»S  MINTEBS 

C.&.I  Plui  i  C-64C    ...  8.00      S«ikoiko  SMOM         13.00 
C  178  13  &0      ComrB*   230  ,13.00 

DotoH.I).  (C2N)  S.OO     C'ltoh  SS10  1J.00 

Amiga  1000      13.00       Juki    5510      13.00 

n»/»mgj  M»n.  SihWI  38.00      imog.writ.r  IS.OO 

K.yboord  oniy  7.00       Epion  JX  80  IJ.M 

Aiori  800X1,  I30XE     10.00      ^P""   '*   BI/1M     .13.00 
Atori    «0    ST  UOO      Okidola  W  13.00 

IBM    PC  XT  38.00      C.li.cn  MSP   10  13.tM 

IBMJ0J1  l(.,lK.ard       8.00     COPS  1101  16.00 

(OlmBniiDni  Rtquired  G«mjni  lO&^ior  lO's  13.00 

(oflBMCIonei)  G.miniUlSlorlS'ilS.OO 

Atari  10i7  13.00 

"l'^^"'/-.'"'  !■«      A.°.i's?"f22«G8       W.OO 

Tn^GT    M°SO  ;P.1      Ifo      ^-'^J  *™V00  1?» 

rf '"-^ooo      'til  t^'tZZ      :^ 

ItT    ^'"'"  lil  C.1TO2A  Masn.,  40   19,00 

Atar,  lOSO  8.00  „^^^^^^^  gj,  ,^3        i^^^ 

PRINTERS  Pilncetan  (Slate  Msajti  17.00 

C-1525MP5  801  10.00  Thorrpion  CM  365-6A  19.00 

C-1526  MPS  802  13.00  TEjjiofi   (Stofcr   Mod*!)    tff.OO 

C.MPS  803,  C.1S20  .     e.OO  Salcata    SC-100               1».00 

Panasonic  lOM  51  13.00  Zenilh  [State  WDdff!)     19.00 

Ohidaln   120/192  13.00  VIDEO  RECORDERS     13.00 

Okimore    10/20  8.00             Sralo  Make  S,  Modol 

EptDrtMK'fX    RXSO  13.00              DimAntioni    required 

Epion  lXBO/C-1000  13  00          including   ciock   cuLou) 

Orin  i,  itti.s,  M«t.  MOTtt  rt  COtM  CKOitE    UN  m  mnH  wtiH 
cS«k  Br  mflvi  viti  pliiJ  ITSJ  ffr  iltJTi  IStSO  Fim.l  ^"lippinig  v4 
C»lil,  fel.  Iniludt  i'-    •  iKll  111.     »f0.  JM'iitm,  ftrtip  SOO'iltiii 
SPECIAL  COVERS  WILL  BE  MADE  TO  YOUR 
DIMEt^SIONS.     SEND  YOUR  BEQUIREMENTS 
FOR  OUR  LOW  PRICE  QUOTES. 

Crown  Custom  Covers 

24631  PAIGE  CIRCLE        OtPr    A 
UIGUNA  HilLi,  CA  926S3 
17M)  472-4363 
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Recognized  by  Reviewers . . . 
"  I        "GUHSHIP  may  be  the  besf  simulatfon  of  any  type 
'.'     .  ever  created  for  the  C-64..,  a  perfect  simulation  for 
^mi^^nd  aerial  oiiDbat  v^erans  alike. . ." 

f|;"-^' '  (RUN.  Augusl1M7) 

y*^     lake  all  your  combat  flight  simulators  and  stfck  them 
'■        It)  the  bin,  GUNSHIP  fettle  uftimate..." 

(Computef  8  Video  Games  MontWy.  U.K..  f^,  1967) 

>  In  terms  of  action  alone,  GUNSHIP  is  the  best  flying 
game  we've  ever  played. , ,  it  oojid  become  one  of 
your  favorites."  (Family  Computing,  June  1987) 

"GUNSHIP. . .  isaverywell-executed  simulation,  not 
just  a  game, . .  MicroProse  has  anothef  winner." 

I  (Compule!'s  Gazelle,  May  1987) 


mmm\ 


Acknowledged  by  our  customers. . . 

". . .  from  the  eye-catching  packaging  to  the  palm- 
drenching,  flak-dodging  flight  visuals,  GUNSHIP  is  a 
standaid  setter  for  the  hdustry." 

(JA,  fWand.  Oregon) 
"I  think  H's  the  best  flight  simulator  IVe  seen  fof  [my 
computerl  and  I've  seer  them  all. . . 

(LC„  Crystal  Lake.  Ftorida) 

■Thank  you  for  releasing  the  most  AWESOME  program 
GUNSHIP. .  .'should  easily  be  the  #1  program  of  the 
year..."  (R.T.,  Chicago,  Illinois) 

Tfye  GUNSHIP  team  has  produced  a  landmark  in  8-bfl 
computers.  The  manual  is  the  STANDARD," 

(S.M.,  Pennsauken,  New  Jersey} 


GUMSHW.  For  C-64/}2S.  IBM-PC/XT/AT  anS  compatibles.  Amiga.  AM  ST  and  Apple  - 
IIGS/We.  Can  MictoPmse  or  chect;  with  your  dealer  lor  specif  nachine  ara/bfeffiiy.       L 
Amiable  at  3  Valued  MicroPfOse  Retailer  (VMRj  iKaryou.  Call  fw  tocafons,'  II  product  not    /^y. , 
found  locally,  call  or  write  MicroProse  for  MC/VISA  orders.  ■' ""  - 

(IBM  screen  shown.  Actual  screens  may  vary.) 


Through  S  man-years  of  research  and 
devetepment,  Ihe  Gunship  Design  Team 
has  crafted  an  unparalleled  simulation 
experience... 

•  RealisUc  Helicopter  Right  Characleristics 

•  True  3-Dltnenslonal,  Out-ttie-CockpIt  Graphics 

•  Authentic  Right  Controls  and  Bectronlcs 

•  Accurate  Weapons  and  Counter-Measures 

•  Up-to-date  Enemy  Threats 

•  Complete  and  Carefully  Researched  Docun^tation 

•  Right  and  Combat  Tutorials 

•  Hundreds  of  Mission  Scenarios 


PROSE 
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with  proven  software  and  books  from  Abacus. 
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Abacus 


Super  Pascal— Gel  the  fastest  and 
complete  Pascal  for  your  computer. 
Super  Pascal  is  a  full  implementation 
of  standard  Pascal.  Extensive  editor 
features  search,  replace,  etc.  Even  add 
machine  language  routines  witti  the  built- 
in  assembler.  Fast  graphics  library,  C-64 
version  has  high-speed  DOS  for  faster 
access.  More  than  just  a  compiler- 
Super  Pascal  is  a  complete  system 
that  gives  you  programming  results. 
C-64    $59.95  C-128    S59.95 


New! 


■I  Pima 


Cadpak—The  professional  design  tool. 
Enter  simple  or  intricate  drawings  with 
the  keyboard,  ligtitpen  or  153t  mouse. 
With  the  flexible  object  editor  you  can 
create  libraries  of  furniture,  electronics, 
etc.  as  intricate  as  screen  resolution 
permits.  Zoom  in  to  do  detailed  worl<. 
Produce  exact  scaled  output  to  most 
printers  in  inches,  feet,  etc.  Get  design 
results  fast  with  Cadpak  and  your 
Commodore''"-'  computer. 
C-54    $39.95  C-12S   $59.95 


New'. 


Super  C— You  can  now  develop 
software  or  just  Learn  C  on  your 
computer.  Easy-to-use  and  takes  full 
advantage  of  this  versatile  language. 
Produces  6502  mactiine  code  and  Is 
many  times  faster  than  BASIC.  Includes 
lull-screen  editor  (search,  replace  and 
block  operations),  compiler,  linker  and 
handbook.  Libraries  for  graphics  and 
advanced  math  are  included.  Whether 
you  want  to  learn  C,  or  program  in  a 
serious  C  environment  lor  your 
Commodore,  Super  C  is  the  one  to  buy. 
C-64    $59.95  C-128     $59.95 


BASIC  Compiter—  Now 
anyone  can  make  their  BASIC 
programs  run  fasterl  Easily 
converts  your  programs  into  fast 
machine  language  or  speed 
code.  Even  speed  up  programs 
written  in  Simon's  Basic,  Video 
Basic  etc.  If  your  program  walks 
or  crawls,  give  it  speed  to  RUN! 
C64    $39.95    C123  $59.95 


G EOS-"  Tricks  &  Tips— A 
new  book  with  something  for 
everyone.  Contains  over  50 
tricks  and  tips  that  you  can  use 
everyday.  Converts  any  word 
processor  file  into  geoWrite 
format;  edit  existing  GEOS  fonts 
or  create  your  own:  Write  in 
machine  language  or  explore  the 
internals  of  GEOS.       $16.95 


Please  nofe  our  new  address  and  phone  numbers 


Abacusill 


Dept.  G1  ■  5370  52nd  Street  SE  ■  Grand  Rapids,  Ml  49508 
Phone  616/698-0330 -Telex  709-101  -Telefax  616/698-0325 
Call  or  write  today  for  your  free  catalog  or  the  name  of  your  nearest 
dealer.  Or  you  can  order  direct  using  your  Visa,  Amehcan  Express  or 
MasterCard.  Add  $4.00  per  order  for  shipping  and  handling.  Foreign 
orders  add  $12.00  per  item.  30-day  money  back  guarantee  on 
software.  Dealer  inquiries  welcome — over  2400  dealers  nationwide. 
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